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.
GFU-Schulungen  [Anzeige]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Administratoren - Kompakt

Nach dieser Schulung beherrschen Sie die Grundlagen des TFS. Sie erledigen administrative Aufgaben schnell und sicher.

C# Grundlagen

Die Schulung vermittelt Ihnen die Grundlagen von C# in der Arbeit mit Datentypen sowie bei Klassenbibliotheken. Sie lernen, mit Variablen umzugehen und deren verschiedene Formen zu konvertieren. 

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!