Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim ImgOffset As Int32 = 0 Dim ImgLength As Int32 = 0 Dim ImgResolution As Int32 = 200 Dim ImgHeight As Int32 = 574 Dim ImgWidth As Int32 = 1312 Dim ImageWriter As IO.FileStream = New IO.FileStream("C:\TestImage.tif", FileMode.Create) Dim memstrm As IO.MemoryStream = New IO.MemoryStream Dim ticket As New Bitmap(ImgWidth, ImgHeight) 'Fonts: Dim TicketID_Font As New Font("Arial", 20, FontStyle.Regular) Dim ticketGraphics As Graphics = Graphics.FromImage(ticket) ticketGraphics.FillRectangle(Brushes.White, 0, 0, ImgWidth, ImgHeight) ticket.SetResolution(ImgResolution, ImgResolution) ticketGraphics.DrawString("-- My Ticket --", TicketID_Font, Brushes.Black, 520, 90) ticketGraphics.DrawString("Ticket ID: 800001", TicketID_Font, Brushes.Black, 10, 160) ticketGraphics.DrawString("Ticket Amount: 111", TicketID_Font, Brushes.Black, 10, 200) ticketGraphics.DrawString("Date: " & Now().ToShortDateString, BatchID_Font, Brushes.Black, 10, 240) ticket.Save(memstrm, System.Drawing.Imaging.ImageFormat.Tiff) memstrm.WriteTo(ImageWriter) ImgLength = memstrm.Length ticket.Dispose() memstrm.Close() memstrm.Dispose()
|VB.net Move a class from Solution Items to a project||2||33|
|Modal Popup Extender control||1||38|
|Get distinct values from excel or comm seperated file||4||30|
|How to share My.Settings in multiple application instances ?||7||27|