All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
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()
|Do my app need to have windows media player to use axwindowsmediaplayer in Visual Basic?||6||36|
|help with issues with ReportViewer in VS2015||5||24|
|Set form below another form||3||26|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!