Neues Größenverhältnis eines Bilds berechnen

1
2
3
4
5

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