منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
أعرف أنني أكثرت من الأسئلة اليوم و أنا أسف لذلك لكنكم لطالما أجبتم عن أسئلتي فشكرا لكم
أما بعد 
أريد أن أنشئ 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

اخي سعود دائما سباق ما شاء الله عليك
اعتذر لم اشاهد مشاركتك الا بعد الرسال
(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

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