کار اصلي ما اينجاست :

If imgWidth > maxWidth Or imgHeight > maxHeight Then "Determine what dimension is off by more Dim deltaWidth As Integer = imgWidth - maxWidth Dim deltaHeight As Integer = imgHeight - maxHeight Dim scaleFactor As Double If deltaHeight > deltaWidth Then "Scale by the height scaleFactor = maxHeight / imgHeight Else "Scale by the Width scaleFactor = maxWidth / imgWidth End If imgWidth *= scaleFactor imgHeight *= scaleFactor End If

خوب تو اين قطعه کد ابتدا چک ميشه که آيا سايز عکس ( چه طول چه عرض ) بزرگتر از ماکزيمم تعيين شده هست يا خير !

اگر جواب مثبت باشه :

1- يک متغير به نام deltaWidth که تفاضل بين عرض عکس واقعي و ماکزيمم تعيين شده است.

2- يک متغير به نام deltaHeight که تفاضل بين طول عکس واقعي و ماکزيمم تعيين شده است.

3- اگر تفاضل deltaHeight > deltaWidth بود

نسبت ماکسيسم طول رو به طول واقعي عکس بدست مياوريم!

4- در غير اين صورت

نسبت ماکسيسم عرض رو به عرض واقعي عکس بدست مياوريم!

5- اين نسبت رو به عنوان يک ضريب کوچک نمايي در نظر مي گيريم ، وقتي اين ضريب در طول و عرض عکس واقعي ضرب شود طول و عرض کوچک شده بدست مي آيد.