18-02-24, 09:27 PM
(18-02-24, 08:45 PM)Taha Okla كتب : السلام عليكم ورحمة الله وبركاته
في الفيجول بيسك فيك تتعامل مع أي نافذة كما تتعامل مع أي أداة على النافذة التي تتحكم منها..
فقط أجعل النافذة الأخرى حقيقة وليست صورة عنها .
يعني لما تريد اظهار النافذة (Form_result) أظهرا بأمر مباشر وبدون وسيط أو صورة عنها ..
كود :
Form_result.Show()
لو كان عندك نافذة Form1 وعليها Button1 , Button2
وعندك نافذة Form2 يوجد أداة TextBox1 , DataGridView1
وتريد الكتابة فيهما من النافذة Form1
فقط عليك أن تكتب الأمر بشكل مباشر وبدون أي حيلة;
وكـ مثال :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form2.Show()
Form2.TextBox1.Text = "Take easy"
Dim dt As New DataTable
dt.Columns.Add("ID")
dt.Columns.Add("Name")
dt.Columns.Add("Address")
dt.Rows.Add("001", "Bador Shaker", "Baghdad")
dt.Rows.Add("002", "Ahmed Shawqi", "Cairo")
dt.Rows.Add("003", "Hafedh Ibrahim", "Cairo")
Form2.DataGridView1.DataSource = dt
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form2.Show()
Dim dt As New DataTable
dt.Columns.Add("ID")
dt.Columns.Add("Name")
dt.Columns.Add("Address")
dt.Rows.Add("001", "Ahmed Rami", "Cairo")
dt.Rows.Add("002", "Readh ALsunbati", "Cairo")
dt.Rows.Add("003", "Ibrahim Khafaji", "Readh")
dt.Rows.Add("004", "Ahmed Musaed ALsderi", "Readh")
Form2.DataGridView1.DataSource = dt
End Sub
بارك الله فيك وجزاك كل خير أستاذ طه على التوجيه الطيب والشرح المفيد.
وسأحاول إتباع الخطوات التي قلتها وأخبرك النتيجة
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ

