تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية التحكم في مدخلات الtext box
#1
السلام عليكم ورحمة الله وبركاته

اليوم طلعتلي مشكلة بسيطة جداً وهي كالتالي:

أنا عندي مشروع على ال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 والمثال موجود بالمرفقات

فياريت اللي يجب الحل يشرح لي ايش المشكلة اللي كانت بالزبط

وشكراً


الملفات المرفقة
.rar   WindowsApplication test.rar (الحجم : 116.86 ك ب / التحميلات : 19)
BlAcKeAgLeSa
الرد }}}}
تم الشكر بواسطة:
#2
جرب
ضمن حدث TextBox1_KeyPress
اكتب
كود :
If IsNumeric(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#3
شكراً أخوي على الرد بس ما زبطت

اذا في أي أحد ثاني أكون شاكر لكم
BlAcKeAgLeSa
الرد }}}}
تم الشكر بواسطة:
#4
في حدث keypress
PHP كود :
if e.keychar "0"or e.keychar "9"c then
e
.handletrue
end 
if 
الرد }}}}
تم الشكر بواسطة:
#5
يا شباب ترى كل الكودين عملوا عملهم اللي المفروض يعملوه

بس أنا ما عرفت كيف أسوي الأمر والحين زبط معاي الأمرين أشكركم على مشاركتكم

بس في الرموز اللي أنا أبغاها زي "-." (اللي هي النقطة والشرطة) كيف ممكن أضيفهم للتكست

وأشكركم مجدداً
BlAcKeAgLeSa
الرد }}}}
تم الشكر بواسطة:
#6
كود :
if e.keychar < "0"c or e.keychar > "9"c then
e.handle= true
end if
اضف الي الكود Or "."

سوف يعمل مع جميع الارقام وكذلك النقطة
الرد }}}}
تم الشكر بواسطة:
#7
شكراً أخوي تم بحمد الله

تنفيذ الأكواد وكلها سليمة

شكراً للجميع
BlAcKeAgLeSa
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ قيمة Label في فيجوال دوت نت 2010 عامر الجبوري 8 104 منذ 9 ساعة مضت
آخر رد: alma2
  التحكم في برامج youssef1 3 77 20-05-17, 03:05 PM
آخر رد: Amir_alzubidy
  طريقة طباعة فاتورة و التحكم بشكلها Basil Abdallah 1 63 19-05-17, 12:34 PM
آخر رد: Adrees
  كيفية طباعة فاتورة مبيعات باستخدام الطابعات الصغيرة noway 0 47 19-05-17, 09:55 AM
آخر رد: noway
  كيفية انشاء الباركود المتألق9 2 49 18-05-17, 10:33 PM
آخر رد: المتألق9
Exclamation [سؤال] كيفية التعامل مع الdataset في الوضع المنفصل في الفيجوال البيسك 2010 moh_g 4 109 16-05-17, 06:50 PM
آخر رد: moh_g
  سؤال بخصوص التحكم بالمحرك عن طريق الحاسوب Basil Abdallah 2 63 16-05-17, 12:29 AM
آخر رد: alma2
  كيفية غلق هذا الفورم ان نفذ جملة شرط soper 4 72 13-05-17, 09:41 PM
آخر رد: العواد الصغير
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 251 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  [VB.NET] إستفسار عن كيفية تغيير كلمة مرور مستخدم في vb.net 2013 limia 1 63 13-05-17, 11:01 AM
آخر رد: khalid475

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


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