nabeqe
چهارشنبه 18 مرداد 1391, 16:40 عصر
با سلام
من تقریبا 6 ماه پیش یه پروژه بهم خورد که با این کد تونستم عکس رو آپلود کنم
Dim result As DialogResult = OpenFileDialog1.ShowDialog()
If result = Windows.Forms.DialogResult.OK Then
Dim input As Bitmap
Dim output As Bitmap
Dim siz As Long = 100
Dim wid As Long
Dim hgt As Long
Dim picname As String = OpenFileDialog1.FileName
Try
input = Bitmap.FromFile(picname)
Catch ex As Exception
input =
New Bitmap(150, 150)
Dim grafinput As Graphics = Graphics.FromImage(input)
grafinput.FillRectangle(
New SolidBrush(Color.CornflowerBlue), 0, 0, 150, 150)
grafinput.Dispose()
End Try
If siz > 0 Then
If input.Height > input.Width Then
wid = (siz * input.Width) / input.Height
hgt = siz
Else
hgt = (siz * input.Height) / input.Width
wid = siz
End If
ElseIf hgt > 0 Then
wid = (hgt * input.Width) / input.Height
ElseIf hgt > 0 Then
hgt = (wid * input.Height) / input.Width
End If
If (hgt < 1) Or (input.Height < hgt) Then
output = input
Else
output =
New Bitmap(input, wid, hgt)
End If
PictureBox1.Image = output
input.Dispose()
End If
اما الان همین کد رو وقتی تو vb مینویسم ارور میده!!!!!!
کسی میدونه باید چیکار کنم؟
اگه کدی شبیه اینم دارین و کارم و راه بندازه ممنون میشم بهم بدین.
من تقریبا 6 ماه پیش یه پروژه بهم خورد که با این کد تونستم عکس رو آپلود کنم
Dim result As DialogResult = OpenFileDialog1.ShowDialog()
If result = Windows.Forms.DialogResult.OK Then
Dim input As Bitmap
Dim output As Bitmap
Dim siz As Long = 100
Dim wid As Long
Dim hgt As Long
Dim picname As String = OpenFileDialog1.FileName
Try
input = Bitmap.FromFile(picname)
Catch ex As Exception
input =
New Bitmap(150, 150)
Dim grafinput As Graphics = Graphics.FromImage(input)
grafinput.FillRectangle(
New SolidBrush(Color.CornflowerBlue), 0, 0, 150, 150)
grafinput.Dispose()
End Try
If siz > 0 Then
If input.Height > input.Width Then
wid = (siz * input.Width) / input.Height
hgt = siz
Else
hgt = (siz * input.Height) / input.Width
wid = siz
End If
ElseIf hgt > 0 Then
wid = (hgt * input.Width) / input.Height
ElseIf hgt > 0 Then
hgt = (wid * input.Height) / input.Width
End If
If (hgt < 1) Or (input.Height < hgt) Then
output = input
Else
output =
New Bitmap(input, wid, hgt)
End If
PictureBox1.Image = output
input.Dispose()
End If
اما الان همین کد رو وقتی تو vb مینویسم ارور میده!!!!!!
کسی میدونه باید چیکار کنم؟
اگه کدی شبیه اینم دارین و کارم و راه بندازه ممنون میشم بهم بدین.