+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أستفسار عن حدث لداتا قريد فيو (/showthread.php?tid=23829)
أستفسار عن حدث لداتا قريد فيو - طـلال - 13-02-18
السـلام عليكم روحمة الله وبركاته
عندي داتا قريد فيو وفيها بيانات محتاج أضيف لها 3 أعمد بحيث أن الأعمده تكون أزرار (أضافه -تعديل - حذف )
ماهو الحدث المستخدم لهذه العمليات بحيث ما يكون فيه لخبطه بين الأزرار
RE: أستفسار عن حدث لداتا قريد فيو - طالب برمجة - 13-02-18
PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim cmdAdd As New DataGridViewButtonColumn
cmdAdd.Name = "cmdAdd"
cmdAdd.HeaderText = "إضافة"
cmdAdd.DefaultCellStyle.NullValue = "إضافة"
cmdAdd.Width = 40
Me.DataGridView1.Columns.Add(cmdAdd)
Dim cmdUpdate As New DataGridViewButtonColumn
cmdUpdate.Name = "cmdUpdate"
cmdUpdate.HeaderText = "تعديل"
cmdUpdate.DefaultCellStyle.NullValue = "تعديل"
cmdUpdate.Width = 40
Me.DataGridView1.Columns.Add(cmdUpdate)
Dim cmdDelete As New DataGridViewButtonColumn
cmdDelete.Name = "cmdDelete"
cmdDelete.HeaderText = "حذف"
cmdDelete.DefaultCellStyle.NullValue = "حذف"
cmdDelete.Width = 40
Me.DataGridView1.Columns.Add(cmdDelete)
End Sub
PHP كود :
Private Sub DataGridView1_CellContentClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
If e.ColumnIndex = Me.DataGridView1.Columns("cmdAdd").Index Then
MsgBox("Add row( " & e.RowIndex & " )")
End If
If e.ColumnIndex = Me.DataGridView1.Columns("cmdUpdate").Index Then
MsgBox("Update row( " & e.RowIndex & " )")
End If
If e.ColumnIndex = Me.DataGridView1.Columns("cmdDelete").Index Then
MsgBox("Delete row( " & e.RowIndex & " )")
End If
End Sub