تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 4 118 أمس, 02:39 PM
آخر رد: Crazy_Vb.NeT
  كيفية الاختصار bidaya 3 61 أمس, 01:05 AM
آخر رد: مساعدة
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 75 21-02-17, 09:03 PM
آخر رد: noway
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 60 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 62 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 141 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 55 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 35 06-02-17, 05:03 PM
آخر رد: المتألق9
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 80 05-02-17, 01:43 AM
آخر رد: المتألق9
  [VB.NET] كيفية جلب برامج التنقيح من اى جهاز لو موجودة؟ الماجيك مسعد 4 114 02-02-17, 07:17 PM
آخر رد: الماجيك مسعد

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


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