03-11-12, 01:18 AM
السلام عليكم ورحمة الله وبركاته
اليوم طلعتلي مشكلة بسيطة جداً وهي كالتالي:
أنا عندي مشروع على الvb 6 وكنت ما أخلي المستخدم يدخل في التكست بوكس غير الأرقام وغير كذا ما ينكتب في التكست بوكس
وهذا الكود اللي استخدمته :
بس لمن استخدمته في الvb2010 لم يقبل الkeyascii والمثال موجود بالمرفقات
فياريت اللي يجب الحل يشرح لي ايش المشكلة اللي كانت بالزبط
وشكراً
اليوم طلعتلي مشكلة بسيطة جداً وهي كالتالي:
أنا عندي مشروع على ال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 والمثال موجود بالمرفقات
فياريت اللي يجب الحل يشرح لي ايش المشكلة اللي كانت بالزبط
وشكراً
BlAcKeAgLeSa