Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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()
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|VB.Net error: An exception occurred during a WebClient request||6||57|
|Name Space error VS2015||1||45|
|Need Help I cannot Get a User's Group Memberships to display and Of course I can't get Global OU Group to display using Active Directory and VB.NET 2017||3||46|
|Need Help With GDI+ in VB.Net||8||29|