What are the business impacts of how well businesses communicate during an IT incident? Targeting, speed, and transparency all matter. Find out more in this infographic.
Public Sub ResizeImage(ByVal fileName As String, ByVal width As Integer, height As Integer) Dim bm As New Bitmap(fileName) Dim thumb As New Bitmap(width, height) Dim g As Graphics = Graphics.FromImage(thumb) g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel) g.Dispose() bm.Dispose() thumb.Save(fileName & "new.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) thumb.Dispose() End Sub
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.