Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
sSourceAbsFilePath = "C:\autos\photo_source\" & sImageLocation sDestAbsFilePath = "C:\autos\photo_new\" & sImageLocation sTextLine = "VIN No:" Dim oFont As Drawing.Font = New Drawing.Font("Calibri", 36, FontStyle.Regular, GraphicsUnit.Pixel) 'read jpg to bitmap Dim oBitmap As Bitmap = Bitmap.FromFile(sSourceAbsFilePath) 'create new bitmap with border at bottom Dim oNewBitmap As Bitmap = New Bitmap(oBitmap.Width, oBitmap.Height + 100) 'create new image with oversized canvas Dim oGraphic As Graphics = Graphics.FromImage(oNewBitmap) 'draw original image on new canvas oGraphic.DrawImageUnscaled(oBitmap, 0, 0) oGraphic.DrawString(sTextLine, oFont, Brushes.Red, New Rectangle(0, oBitmap.Height, oBitmap.Width, 100)) oNewBitmap.Save(sDestAbsFilePath)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.