If checkbox1.cheked then
textbox1.text=1
End if(16-09-20, 04:34 PM)asemshahen5 كتب : [ -> ]كود :
If checkbox1.cheked then
textbox1.text=1
End if
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
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
MsgBox(e.KeyCode)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
KeyPreview = True
End Sub
Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
If CheckBox1.Checked = True And Char.IsControl(e.KeyChar) = False Then
TextBox1.Text += e.KeyChar
e.Handled = True
End If
End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
KeyPreview = True
End Sub