مشکل در مورد 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 AsLong = 100

Dim wid AsLong

Dim hgt AsLong

Dim picname AsString = 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()

EndTry

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

EndIf

ElseIf hgt > 0 Then

wid = (hgt * input.Width) / input.Height

ElseIf hgt > 0 Then

hgt = (wid * input.Height) / input.Width

EndIf

If (hgt < 1) Or (input.Height < hgt) Then

output = input

Else

output =

New Bitmap(input, wid, hgt)

EndIf

PictureBox1.Image = output

input.Dispose()

EndIf

اما الان همین کد رو وقتی تو 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