تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن كود منع كتابة ارقام في text
#1
السلام عليكم


احتاج كود منع المستخدم من ادخال ارقام في text1

تحياتي
الرد }}}
تم الشكر بواسطة:
#2
جرب ذلك الكود وأخبرني, بالتوفيق.

PHP كود :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If 
IsNumeric(Chr(KeyAscii)) Then
KeyAscii 
0
End 
If
End Sub 
الرد }}}
تم الشكر بواسطة:
#3
كيف يكون العكس يعني يكتب ارقام فقط بدون نص
الرد }}}
تم الشكر بواسطة:
#4
كتابة ارقام فقط

Private Sub Text3_KeyPress(KeyAscii As Integer)

Dim ss As String
If KeyAscii = 8 Then Exit Sub
ss = "0123456789."
i = InStr(ss, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0

End Sub
الرد }}}
تم الشكر بواسطة:
#5
تفضل هذا المثال
الرد }}}
تم الشكر بواسطة: حامد محمد
#6
abbr999 كتب :كيف يكون العكس يعني يكتب ارقام فقط بدون نص

هذا كود السيد عبدالله الصافي لكتابة الحروف فقط
PHP كود :
Private Sub Text2_KeyPress(KeyAscii As Integer
If 
IsNumeric(Chr(KeyAscii)) Then 
KeyAscii 

End 
If 
End Sub 
يمكن عكس الكود لكتابة ارقام فقط وذلك بوضع not امام الشرط ليصبح بالشكل التالي
PHP كود :
Private Sub Text2_KeyPress(KeyAscii As Integer
If 
Not IsNumeric(Chr(KeyAscii)) Then 
KeyAscii 

End 
If 
End Sub 
الرد }}}
تم الشكر بواسطة:
#7
شكراً جزيلاً للجميع
الرد }}}
تم الشكر بواسطة:
#8
شباب ممكن كود اذا كتبت في text مثلا 
if text1.text = "بر "then 
text1.text ="برود باند "
 المشكة انو لما تكتب بر 
يضيف حرف و مع برود باند 
تصبح وبرودباند 
ممكن حل
الرد }}}
تم الشكر بواسطة:
#9
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii > 31 Then
       If (KeyAscii < 48) Or (KeyAscii > 57) Then
           KeyAscii = 0
       End If
   End If
End Sub
الرد }}}
تم الشكر بواسطة:



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


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