[eeee2]

السلام عليكم ورحمة الله وبركاته 

اريد طريقه في حال تفعيل checkbox 
يجعل اي رقم يتم الضغط عليه في الكيبورد يكتب في TextBox1 
بدون الضغط على التكست بوكس للكتابه داخله

[asemshahen5]

كود :

If checkbox1.cheked then
textbox1.text=1
End if

[eeee2]

(16-09-20, 04:34 PM)asemshahen5 كتب :

كود :

If checkbox1.cheked then
textbox1.text=1
End if

ماعتقد فهمت قصدي
اقصد اي زر يضغطه المستخدم بالكيبورد يطبع في تكست بوكس
بدون الحاجه لضغط على التكست بوكس للكتابه فيه

[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 


[eeee2]

الله يعطيك العافية يارب

[Anas Mahmoud]

بالاضافة لرد الاخ عاصم

الافضل الاستماع للحدث KeyPress لانه يتيح الحرف مباشرة عن طريق e.KeyChar

كود :

   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