Feedback

VB - Bildgröße verändern (Prozentual)

Veröffentlicht von am 02.07.2006
(2 Bewertungen)
Diese Funktion ändert die größe eines Bilds und gibt es als Bitmap zurück. Hier kann man einen neuen Prozentwert angeben (100% = Originalgröße) Verhältnisse werden beibehalten.
Public Function PicResizeByPercent(ByVal SourceImage As String, ByVal Percent As Short) As Bitmap
    Dim InputBitmap As New Bitmap(SourceImage)
    Dim NewWidth As Integer = ((Percent / 100) * InputBitmap.Width)
    Dim SizeFactor As Decimal = NewWidth / InputBitmap.Width
    Dim NewHeigth As Integer = SizeFactor * InputBitmap.Height
    Dim OutputBitmap As New Bitmap(System.Drawing.Image.FromFile(SourceImage), NewWidth, NewHeigth)
    PicResizeByPercent = OutputBitmap
    InputBitmap.Dispose()
    OutputBitmap.Dispose()
End Function
Abgelegt unter Bild, Größe, Bitmap.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!