+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية التحكم في مدخلات الtext box (/showthread.php?tid=6818)
كيفية التحكم في مدخلات الtext box - BlackEagleSA - 03-11-12
السلام عليكم ورحمة الله وبركاته
اليوم طلعتلي مشكلة بسيطة جداً وهي كالتالي:
أنا عندي مشروع على الvb 6 وكنت ما أخلي المستخدم يدخل في التكست بوكس غير الأرقام وغير كذا ما ينكتب في التكست بوكس
وهذا الكود اللي استخدمته :
كود :
Private Sub Text2_keypress(KeyAscii As Integer)
Dim s As String
s = "1234567890.-" & vbBack
If InStr(s, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Subبس لمن استخدمته في الvb2010 لم يقبل الkeyascii والمثال موجود بالمرفقات
فياريت اللي يجب الحل يشرح لي ايش المشكلة اللي كانت بالزبط
وشكراً
كيفية التحكم في مدخلات الtext box - سعود - 03-11-12
جرب
ضمن حدث TextBox1_KeyPress
اكتب
كود :
If IsNumeric(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End Ifكيفية التحكم في مدخلات الtext box - BlackEagleSA - 03-11-12
شكراً أخوي على الرد بس ما زبطت
اذا في أي أحد ثاني أكون شاكر لكم
كيفية التحكم في مدخلات الtext box - amgadtamer - 03-11-12
في حدث keypress
PHP كود :
if e.keychar < "0"c or e.keychar > "9"c then
e.handle= true
end if
كيفية التحكم في مدخلات الtext box - BlackEagleSA - 03-11-12
يا شباب ترى كل الكودين عملوا عملهم اللي المفروض يعملوه
بس أنا ما عرفت كيف أسوي الأمر والحين زبط معاي الأمرين أشكركم على مشاركتكم
بس في الرموز اللي أنا أبغاها زي "-." (اللي هي النقطة والشرطة) كيف ممكن أضيفهم للتكست
وأشكركم مجدداً
كيفية التحكم في مدخلات الtext box - saudy007 - 03-11-12
كود :
if e.keychar < "0"c or e.keychar > "9"c then
e.handle= true
end ifسوف يعمل مع جميع الارقام وكذلك النقطة
كيفية التحكم في مدخلات الtext box - BlackEagleSA - 03-11-12
شكراً أخوي تم بحمد الله
تنفيذ الأكواد وكلها سليمة
شكراً للجميع