تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا
#1
السلام عليكم 
أعرف أنني أكثرت من الأسئلة اليوم و أنا أسف لذلك لكنكم لطالما أجبتم عن أسئلتي فشكرا لكم
أما بعد 
أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا
و textbox أخر لا يسمح بالكتابة عليه سوى بالحروف فقط
و textbox أخر لا يسمح بالكتابة عليه سوى بالأرقام فقط

في إنتظار ردودكم و شكرا مسبقا !
الرد }}
تم الشكر بواسطة:
#2
الاول عن طريق خاصية 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 
=====* التوقيع *======
=================
الرد }}
#3
وعليكم السلام ورحمة الله وبركاته

اولا 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

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

الرد }}
#4
(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
الرد }}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم