+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا (/showthread.php?tid=25259)
أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا - hichem1 - 06-06-18
السلام عليكم
أعرف أنني أكثرت من الأسئلة اليوم و أنا أسف لذلك لكنكم لطالما أجبتم عن أسئلتي فشكرا لكم
أما بعد
أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا
و textbox أخر لا يسمح بالكتابة عليه سوى بالحروف فقط
و textbox أخر لا يسمح بالكتابة عليه سوى بالأرقام فقط
في إنتظار ردودكم و شكرا مسبقا !
RE: أنا أسف جدا . - سعود - 06-06-18
الاول عن طريق خاصية 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
RE: أنا أسف جدا . - محمد كريّم - 06-06-18
وعليكم السلام ورحمة الله وبركاته
اولا 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=883&pid=4355#pid4355
اخي سعود دائما سباق ما شاء الله عليك
اعتذر لم اشاهد مشاركتك الا بعد الرسال
RE: أنا أسف جدا . - hichem1 - 06-06-18
(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=883&pid=4355#pid4355
اخي سعود دائما سباق ما شاء الله عليك
اعتذر لم اشاهد مشاركتك الا بعد الرسال
