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 Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

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!