[hitman48]

السلام عليكم ورحمة الله وبركاته
كما هو موضح في العنوان اريد اظهار صورة في الفورم 2 انطلاقا من تكست بوكس الفورم الاول
انا عملت الكود بس فيه خطء

كود :

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim x As New OpenFileDialog

       If x.ShowDialog Then
           TextBox1.Text = x.FileName
       End If


   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Form2.Show()
   End Sub
End Class

اما في الفورم الثاني هي المشكلة ؟؟؟ لقد اضف picturbox1

واريد اظهار الكود في الحدث لود مباشرة

كود :

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim from As New Form1

End Sub

[Mostafa Saad]

السلام عليكم ........... جرب هذا الكود

Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As New OpenFileDialog
"x.Filter = "Image Files|*.bmp;*.png;*.jpg;*.jpeg;*.gif;*.tif
If x.ShowDialog Then
TextBox1.Text = x.FileName
End If
End Sub
----------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
End Class
----------------------------------------------------------------------------------------
Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.PictureBox1.ImageLocation = Form1.TextBox1.Text
End Sub
End Class

[hitman48]

الله يجازيك الخير شكرا لك اخي افدتني

[Mostafa Saad]

العفو أخي .....