[طالب برمجة]

PHP كود :

Private Sub txtEdit_Keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
    If e.KeyChar = "." And sender.Text.Contains(".") Then
        e.Handled = True
        Exit Sub
    End If

    'هنا نسمح بكتابة ارقام فقط وحقول معينة بها فاصلة 
    Console.WriteLine("KeyPress " & e.KeyChar.ToString())
    'Test for numeric value or backspace in first column
    If DataGridViewX1.CurrentCell.ColumnIndex = 0 Then
        If IsNumeric(e.KeyChar.ToString()) _
        Or e.KeyChar = ChrW(Keys.Back) _
        Or e.KeyChar = "." Then
            Console.WriteLine("KeyPress number")
            e.Handled = False 'if numeric display 
        Else
            Console.WriteLine("Enter Numbers Only")
            e.Handled = True  'if non numeric don't display
        End If
    End If

    '***********************************************************

    If DataGridViewX1.CurrentCell.ColumnIndex = 2 Or DataGridViewX1.CurrentCell.ColumnIndex = 3 Or DataGridViewX1.CurrentCell.ColumnIndex = 4 Then

        '  If DataGridView1.CurrentCell.ColumnIndex = 0 Then
        If IsNumeric(e.KeyChar.ToString()) _
        Or e.KeyChar = ChrW(Keys.Back) _
        Or e.KeyChar = "." Then
            Console.WriteLine("KeyPress number")
            e.Handled = False 'if numeric display 
        Else
            Console.WriteLine("Enter Numbers Only")
            e.Handled = True  'if non numeric don't display
        End If
    End If

    '*-*-********************************************************

End Sub