Diese Funktion ändert die größe eines Bilds und gibt es als Bitmap zurück. Hier kann man als Größe die Dimensionen angeben: X und Y als Point Objekt
Public Function PicResizeByDimension(ByVal SourceImage As String, ByVal Dimension As Point) As Bitmap
Dim OutputBitmap As New Bitmap(System.Drawing.Image.FromFile(SourceImage), Dimension)
PicResizeByPercent = OutputBitmap
OutputBitmap.Dispose()
End Function
Kommentare zum Snippet