المشاركات : 25
المواضيع 2
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم
احتاج كود منع المستخدم من ادخال ارقام في text1
تحياتي
المشاركات : 10
المواضيع 0
الإنتساب : Apr 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
كيف يكون العكس يعني يكتب ارقام فقط بدون نص
المشاركات : 189
المواضيع 19
الإنتساب : Sep 2012
السمعة :
13
الشكر: 114
تم شكره 144 مرات في 81 مشاركات
كتابة ارقام فقط
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
المشاركات : 6
المواضيع 2
الإنتساب : Jul 2019
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
شباب ممكن كود اذا كتبت في text مثلا
if text1.text = "بر "then
text1.text ="برود باند "
المشكة انو لما تكتب بر
يضيف حرف و مع برود باند
تصبح وبرودباند
ممكن حل
المشاركات : 2
المواضيع 1
الإنتساب : Nov 2015
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
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