[hichem1]

السلام عليكم 
أعرف أنني أكثرت من الأسئلة اليوم و أنا أسف لذلك لكنكم لطالما أجبتم عن أسئلتي فشكرا لكم
أما بعد 
أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا
و textbox أخر لا يسمح بالكتابة عليه سوى بالحروف فقط
و textbox أخر لا يسمح بالكتابة عليه سوى بالأرقام فقط

في إنتظار ردودكم و شكرا مسبقا !

[سعود]

الاول عن طريق خاصية ReadOnly اجعلها True
الثاني
ضمن حدث TextBox2_KeyPress

PHP كود :

If Char.IsLetter(e.KeyChar.ToString) = False Then
            e.Handled = True
        End If 


والثالث

PHP كود :

If Char.IsDigit(e.KeyChar.ToString) = False Then
            e.Handled = True
        End If 


[محمد كريّم]

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

اولا textBox لا يقبل الكتابة عليه من قبل المستخدم
حدده ومن نافذة الخصائص اختر readonly = true

او بالكود

كود :

textbox1.ReadOnly = true

ثانيا مربع نص للارقام فقط

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

           If Char.IsDigit(e.KeyChar) Then
               e.Handled = True
           Else
               e.Handled = False
       End If

End Sub

ثالثا مربع نص للحروف فقط

كود :

   Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

           If Char.IsLetter(e.KeyChar) Then
               e.Handled = True
           Else
               e.Handled = False
           End If

   End Sub

المصدر http://vb4arb.com/vb/showthread.php?tid=...55#pid4355

---

اخي سعود دائما سباق ما شاء الله عليك
اعتذر لم اشاهد مشاركتك الا بعد الرسال

[hichem1]

(06-06-18, 03:06 AM)محمد كريّم كتب : وعليكم السلام ورحمة الله وبركاته

اولا textBox لا يقبل الكتابة عليه من قبل المستخدم
حدده ومن نافذة الخصائص اختر readonly = true

او بالكود

كود :

textbox1.ReadOnly = true

ثانيا مربع نص للارقام فقط

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

           If Char.IsDigit(e.KeyChar) Then
               e.Handled = True
           Else
               e.Handled = False
       End If

End Sub

ثالثا مربع نص للحروف فقط

كود :

   Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

           If Char.IsLetter(e.KeyChar) Then
               e.Handled = True
           Else
               e.Handled = False
           End If

   End Sub

المصدر http://vb4arb.com/vb/showthread.php?tid=...55#pid4355

---

اخي سعود دائما سباق ما شاء الله عليك
اعتذر لم اشاهد مشاركتك الا بعد الرسال

عظيم .. شكرا لكما