Feedback

VB - Neues Größenverhältnis eines Bilds berechnen

Veröffentlicht von am 02.07.2006
(2 Bewertungen)
Diese Funktion ist dafür gedacht um ein neues Verhältnis zu erstellen wenn man z.B. die Größe eines Bildes verändern möchte und das Bild soll in der neuen Größe nicht "verzogen/verzerrt" werden sondern die Verhältnisse sollen beibehalten werden.
Public Function NewRatio(ByVal Width As Integer, ByVal Heigth As Integer, ByVal NewWidth As Integer)
    Dim SizeFactor As Decimal = NewWidth / Width
    Dim NewHeigth As Integer = Heigth * SizeFactor
    Return NewHeigth
End Function
Abgelegt unter Bild, Größe, Verhältnis.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!