[asemshahen5]

PHP كود :

   Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.T Then
            TextBox1.Text = 1
        End If
    End Sub 


او

PHP كود :

   Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = 97 Then '1
            TextBox1.Text = 1
        ElseIf e.KeyCode = 98 Then '2
            TextBox1.Text = 2
        ElseIf e.KeyCode = 99 Then '3
            TextBox1.Text = 3
        ElseIf e.KeyCode = 100 Then '4
            TextBox1.Text = 4
        ElseIf e.KeyCode = 101 Then '5
            TextBox1.Text = 5
        ElseIf e.KeyCode = 102 Then '6
            TextBox1.Text = 6
        ElseIf e.KeyCode = 103 Then '7
            TextBox1.Text = 7
        ElseIf e.KeyCode = 104 Then '8
            TextBox1.Text = 8
        ElseIf e.KeyCode = 105 Then '9
            TextBox1.Text = 9
        ElseIf e.KeyCode = 96 Then '0
            TextBox1.Text = 0
        End If
    End Sub 


لمعرفة ارقام الاحرف :

PHP كود :

MsgBox(e.KeyCode) 


لتفعيل تشغيل حدث الضغط على الازرار :

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        KeyPreview = True
    End Sub