[طالب برمجة]

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