Getting the image width and height automatically keeping aspect ratio

[Adin0605]

Hi there,

I have an image uploaded on the website, and I want to generate width and height automatically from a given values(image values in cm).

Ex:
' Image values in cm
Dim strInal as string = 140
Dim strLati as string = 90

Dim strRatio As String
Dim cnstInaltime As Integer
Dim cnstLatime As Integer

' checking to see the image format

If strInal.ToString > strLati.ToString Then
strRatio = Math.Round(strInal / strLati)
cnstInaltime = 15
cnstLatime = 10 * strRatio
End If
If strInal.ToString = strLati.ToString Then
strRatio = 1
cnstInaltime = 5
cnstLatime = 5
End If
If strLati.ToString > strInal.ToString Then
strRatio = Math.Round(strLati / strInal)
cnstInaltime = 10 * strRatio
cnstLatime = 15
End If

Dim intA As Integer = strInal
Dim intB As Integer = strLati

' generating the values in decreasing way

While (intA > 15 Or intB > 15)

intA -= cnstInaltime
intB -= cnstLatime
End While


The code above cannot keep aspect ratio. Can someone help me?
Thanks

 

[Kalisto]

Ok, my guess is that you are not really understanding what you are trying to do.

Dim strInal as string = 140
Dim strLati as string = 90
...
      If strInal.ToString > strLati.ToString Then

If strInal is a string as you have defined at the top, then why call ToString on it again ?

Put breakpoints in the code and step through, see what is really happening.

 

[Adin0605]

Thanks, you're wrong. MAy be I didn't explained but the code should explain himself.
What I want to achieve is the resize of an image while kepping aspect ratio of that image.
My code is running well, the only problem is that I dont know what formula I should apply to have a decent image height and a decent image width.

The conditional statement is wrong as the 2 values must compare while are integers.

So,

Dim strInal as Integer = 140
Dim strLati as Integer = 90

Dim strRatio As String
Dim cnstInaltime As Integer
Dim cnstLatime As Integer

' checking to see the image format

If strInal > strLati Then
strRatio = Math.Round(strInal / strLati)
cnstInaltime = 15
cnstLatime = 10 * strRatio
End If
If strInal = strLati Then
strRatio = 1
cnstInaltime = 5
cnstLatime = 5
End If
If strLati > strInal Then
strRatio = Math.Round(strLati / strInal)
cnstInaltime = 10 * strRatio
cnstLatime = 15
End If

Dim intA As Integer = strInal
Dim intB As Integer = strLati

' generating the values in decreasing way

While (intA > 15 Or intB > 15)

intA -= cnstInaltime
intB = intA * strRatio
End While


As I said the code it's ok, but the values are not, and I cannot figure out how to keep aspect ratio.