تابع به نام image_resize رو بصورت زير تعريف مي کنيم :

Public Function img_resize(ByVal picname As String,ByVal maxHeight As Integer, ByVal maxWidth As Integer) As String End Function

picname نام تصويري است که قصد کوچک سازي اونو داريم ( مثل ali132.jpg (

خوب حالا شي از نوع Image تعريف کرده و فايل عکس را داخل اون ميريزيم (فرض کردم که تصويرم در پوشه mypics درون روت قرار داره ):

Dim currentImage As System.Drawing.Image = System.Drawing.Image.FromFile(server.mappath("mypics\") + picname)

اين شي رو براي بدست آوردن سايز اصلي تصوير نياز داريم :

Dim imgHeight, imgWidth As Integer imgHeight = currentImage.Height imgWidth = currentImage.Width

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