مشکل در مورد load کردن عکس در vb

[nabeqe]

با سلام
من تقریبا 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 مینویسم ارور میده!!!!!!
کسی میدونه باید چیکار کنم؟
اگه کدی شبیه اینم دارین و کارم و راه بندازه ممنون میشم بهم بدین.

[nabeqe]

راستی یادم رفت بگم
قسمت openfiledialog1 رو ارور میده
ارورnotdeclared

[JaVa]

سلام...

اول کدت رو بذار توی تگ کد که بشه لااقل بفهمید چی نوشنی؟

با تشکر

[nabeqe]

کار با این تگ ها اینقد عجیب قریب بود که مجبور شدم تو یک فایل notpad کد رو ذخیره کرم

[the king]

کد ئه ایرادی نداره، صرفا یک PictureBox1 و یک OpenFileDialog1 رو باید روی فرم قرار دهید تا کار کنه :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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
End Sub
End Class

[farbod61]

سلام
حالا یه سوال
ما این عکس رو لود کردیم
چه جوری میتونیم این عکس رو که انتخاب کردیم تو یه فرم دیگه فرخونی کنیمش تو پیکچر باکس

[xxnagin]

تو فرم دیگه این کد را بذار

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
یا این
form2.PictureBox1.Image =PictureBox1.Image



یا تو قسمت اخر کدت اینو بذار که با هم لود بشن

form2.PictureBox1.Image =output