Hi to all,
I have written this code to resize (shrink) a bitmap:
Public Function ResizeBitmap(bm_source As Bitmap, scale_factor As Double) As Bitmap
Try
Dim bm_dest As New Bitmap(CInt(bm_source.Width * scale_factor), CInt(bm_source.Height * scale_factor))
Dim g As Graphics =...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.