18-06-18, 03:03 AM
أرجو المساعدة لتحويل هذا الكود إلى لغة السي شارب :
Private Sub DGV_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DGV.EditingControlShowing
Dim i As Integer = DGV.CurrentCell.RowIndex
Dim j As Integer = DGV.CurrentCell.ColumnIndex
If j = 3 Or j = 4 Then
column_index = DGV.CurrentCell().ColumnIndex
Dim TextEdit As TextBox = e.Control
RemoveHandler TextEdit.KeyPress, AddressOf TextBox_KeyPress_Number
AddHandler TextEdit.KeyPress, AddressOf TextBox_KeyPress_Number
End If
End Sub
Public Sub TextBox_KeyPress_Number(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim i As Integer = DGV.CurrentCell.RowIndex
Dim j As Integer = DGV.CurrentCell.ColumnIndex
If j = 3 Or j = 4 Then
Select Case column_index = 0
Case 0
If (e.KeyChar >= "a" And e.KeyChar <= "z") Or (e.KeyChar >= "A" And e.KeyChar <= "Z") Or (e.KeyChar >= "ا" And e.KeyChar <= "ي") Then
e.Handled = True
End If
End Select
End If
End Sub
Private Sub DGV_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DGV.EditingControlShowing
Dim i As Integer = DGV.CurrentCell.RowIndex
Dim j As Integer = DGV.CurrentCell.ColumnIndex
If j = 3 Or j = 4 Then
column_index = DGV.CurrentCell().ColumnIndex
Dim TextEdit As TextBox = e.Control
RemoveHandler TextEdit.KeyPress, AddressOf TextBox_KeyPress_Number
AddHandler TextEdit.KeyPress, AddressOf TextBox_KeyPress_Number
End If
End Sub
Public Sub TextBox_KeyPress_Number(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim i As Integer = DGV.CurrentCell.RowIndex
Dim j As Integer = DGV.CurrentCell.ColumnIndex
If j = 3 Or j = 4 Then
Select Case column_index = 0
Case 0
If (e.KeyChar >= "a" And e.KeyChar <= "z") Or (e.KeyChar >= "A" And e.KeyChar <= "Z") Or (e.KeyChar >= "ا" And e.KeyChar <= "ي") Then
e.Handled = True
End If
End Select
End If
End Sub