Feedback

VB - Bildgröße prozentual verändern (Interpoliert)

Veröffentlicht von am 27.11.2006
(2 Bewertungen)
Diese Funktion ändert die Größe eines Bilds und gibt es als Bitmap zurück. Hier ist die Prozentuale größe veränderbar.
Bei der Veränderung der Größe wird das Bild interpoliert so das die Qualität erhalten bleibt.
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.

ASP.NET 2.0 und 3.5

Dieser Kurs vermittelt Ihnen alle Erweiterungen von Microsoft ASP.NET 2.0. Zu diesen zählen u. a. Data Bindung, Master Pages, und Security.

''' <summary>
''' Diese Funktion ändert die Größe eines Bilds und gibt es als Bitmap zurück. Hier ist die Prozentuale größe veränderbar.
''' </summary>
''' <param name="SourceImage">Das Bild dessen größe verändert werden soll</param>
''' <param name="Percent">Die neue größe des Bilds in Prozent (100% = Normale größe)</param>
Public Function PicResizeByPercent(ByVal SourceImage As Image, ByVal Percent As Short) As Bitmap
    Dim NewWidth As Integer = ((Percent / 100) * SourceImage.Width)
    Dim NewHeigth As Integer = ((Percent / 100) * SourceImage.Height)
    Dim NewImage As New Bitmap(NewWidth, NewHeigth)
    Using G As Graphics = Graphics.FromImage(NewImage)
        G.InterpolationMode = InterpolationMode.HighQualityBicubic
        G.DrawImage(SourceImage, New Rectangle(0, 0, NewWidth, NewHeigth))
    End Using
    Return NewImage
End Function
Abgelegt unter Bild, Image, Picture.

1 Kommentare zum Snippet

Tim Hartwig schrieb am 28.11.2006:
Hier der Unterschied bei einer Verkleinerung:

<a href="http://home.arcor.de/khartak/dev/not_intercalated.png">Nicht interpoliert</a>
<a href="http://home.arcor.de/khartak/dev/intercalated.png">Interpoliert</a>
 

Logge dich ein, um hier zu kommentieren!