تقييم الموضوع :
  • 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 ك ب / التحميلات : 25)
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 safalo 1 50 19-09-17, 03:48 PM
آخر رد: أبو نوره
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 5 805 18-09-17, 03:40 PM
آخر رد: رمضان محمد
  كيفية دمج جدول المبيعات والمشتريات وحساب عدد المشتريات والمبيعات والمثال مرفق كصورة max_1978 3 342 17-09-17, 01:05 AM
آخر رد: Rabeea Qbaha
  كيفية تغير نوعية الاتصال من xmpp الي improver socket using Tls and DIGEST-MD5 login e-coder 0 29 16-09-17, 04:24 PM
آخر رد: e-coder
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 135 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
Question [سؤال] كيفية سحب قيمة متغير ادخل Public alims 7 161 11-09-17, 04:39 AM
آخر رد: محمد كريّم
  كيفية نسخ ملفات في مجلد الـ System32 أو أي مجلد خاص بالوندوز بواسطة ملف الـ Setup نبيل فتحى 5 123 09-09-17, 01:51 AM
آخر رد: نبيل فتحى
  [سؤال] كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس alims 8 155 04-09-17, 11:27 PM
آخر رد: alims
  [VB.NET] كيفية جلب مستند نصي من Resources الي Listbox e-coder 3 98 04-09-17, 07:28 AM
آخر رد: سعود
  كيفية اضافة حقل CheckBox لعنوان العمود المتألق9 6 137 24-08-17, 04:18 PM
آخر رد: سعود الشامان

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


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