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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية برمجه serail port engmedomed@gmail.com 2 72 12-01-17, 03:50 AM
آخر رد: Basil Abdallah
  كيفية تغير رسائل الخطأ؟ noway 4 144 12-01-17, 02:05 AM
آخر رد: يسرى7
  كيفية استخراج ربح من المبيعات عندما تكون سعر شراء المادة مختلة في كل مرة max_1978 3 104 05-01-17, 12:40 AM
آخر رد: أبو عمر
  [VB.NET] كيفية رفع صوره مع السؤال في المنتدي engmedomed@gmail.com 3 103 02-01-17, 08:24 PM
آخر رد: Basil Abdallah
  كيفية التعديل على كود HTML ومن ثم عرضه في WebBrowser bidaya 5 131 24-12-16, 03:47 PM
آخر رد: ابو ليلى
  كيفية نقل بيانات من داتاجريد في فورم الى داتاجريد في فورم اخر قناص المدينة 0 79 22-12-16, 06:52 PM
آخر رد: قناص المدينة
  [VB.NET] كيفية استخدام مكتبة TLSharp الماجيك مسعد 5 159 13-12-16, 03:55 AM
آخر رد: الماجيك مسعد
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 107 06-12-16, 04:34 PM
آخر رد: Ayman97
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 180 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 181 23-11-16, 08:51 PM
آخر رد: newvbdev

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


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