Neues Größenverhältnis eines Bilds berechnen

Sprache: VB

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

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

Alte URL: /snippet/neues-groessenverhaeltnis-eines-bilds-berechnen/117