[BlackEagleSA]

السلام عليكم ورحمة الله وبركاته

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

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

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

وشكراً

[سعود]

جرب
ضمن حدث TextBox1_KeyPress
اكتب

كود :

If IsNumeric(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If

[BlackEagleSA]

شكراً أخوي على الرد بس ما زبطت

اذا في أي أحد ثاني أكون شاكر لكم

[amgadtamer]

في حدث keypress

PHP كود :

if e.keychar < "0"c or e.keychar > "9"c then
e.handle= true
end if 


[BlackEagleSA]

يا شباب ترى كل الكودين عملوا عملهم اللي المفروض يعملوه

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

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

وأشكركم مجدداً

[saudy007]

كود :

if e.keychar < "0"c or e.keychar > "9"c then
e.handle= true
end if

اضف الي الكود Or "."

سوف يعمل مع جميع الارقام وكذلك النقطة

[BlackEagleSA]

شكراً أخوي تم بحمد الله

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

شكراً للجميع