16-04-25, 12:59 PM
16-04-25, 06:10 PM
كود :
لاستدعاء داتا قريدفيو موجودة على
Form 1 من Form 2.
1. عن طريق تمرير الداتا قريدفيو كمعامل إلى
Form 2:
_ في الفورم 1
Dim frm2 As New Form2(DataGridView1)
frm2.Show()
- في الفورم 2
Public Sub New(dgv As DataGridView)
InitializeComponent()
Me.dgv = dgv
End Sub
Private dgv As DataGridView
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' يمكنك الآن استخدام dgv كما لو كانت في فورم 2
dgv.Rows.Add("بيانات جديدة")
End Sub
```
2. عن طريق جعل الداتا قريدفيو عامة
(Public) في Form 1:
_ في الفورم 1
Public dgv As DataGridView
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dgv = DataGridView1
End Sub
_ في الفورم 2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frm1 As Form1 = CType(Application.OpenForms("Form1"), Form1)
frm1.dgv.Rows.Add("بيانات جديدة")
End Sub
```
3. عن طريق إنشاء دالة عامة
(Public) في Form 1 تقوم بإضافة
حرب هذا الكود:
_ في الفورم 1
Public Sub AddDataToDGV(data As String)
DataGridView1.Rows.Add(data)
End Sub
- في الفورم 2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frm1 As Form1 = CType(Application.OpenForms("Form1"), Form1)
frm1.AddDataToDGV("بيانات جديدة")
End Sub