+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اظهار صورة في الفورم 2 انطلاقا من تكست بوكس الفورم الاول (/showthread.php?tid=11588)
اظهار صورة في الفورم 2 انطلاقا من تكست بوكس الفورم الاول - hitman48 - 03-03-15
السلام عليكم ورحمة الله وبركاته
كما هو موضح في العنوان اريد اظهار صورة في الفورم 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 Form1RE: اظهار صورة في الفورم 2 انطلاقا من تكست بوكس الفورم الاول - Mostafa Saad - 03-03-15
السلام عليكم ........... جرب هذا الكود
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
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
RE: اظهار صورة في الفورم 2 انطلاقا من تكست بوكس الفورم الاول - hitman48 - 03-03-15
الله يجازيك الخير شكرا لك اخي افدتني
RE: اظهار صورة في الفورم 2 انطلاقا من تكست بوكس الفورم الاول - Mostafa Saad - 03-03-15
العفو أخي .....