منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة بالكتابه داخل التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة بالكتابه داخل التكست بوكس (/showthread.php?tid=36433)

مساعدة بالكتابه داخل التكست بوكس - eeee2 - 16-09-20

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

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

RE: مساعدة بالكتابه داخل التكست بوكس - asemshahen5 - 16-09-20

كود :
If checkbox1.cheked then
textbox1.text=1
End if


RE: مساعدة بالكتابه داخل التكست بوكس - eeee2 - 16-09-20

(16-09-20, 04:34 PM)asemshahen5 كتب :
كود :
If checkbox1.cheked then
textbox1.text=1
End if

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

RE: مساعدة بالكتابه داخل التكست بوكس - asemshahen5 - 16-09-20

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 


RE: مساعدة بالكتابه داخل التكست بوكس - eeee2 - 16-09-20

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

RE: مساعدة بالكتابه داخل التكست بوكس - Anas Mahmoud - 17-09-20

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

الافضل الاستماع للحدث 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