+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ممكن كود منع كتابة ارقام في text (/showthread.php?tid=7126)
ممكن كود منع كتابة ارقام في text - imatawen - 25-11-12
السلام عليكم
احتاج كود منع المستخدم من ادخال ارقام في text1
تحياتي
ممكن كود منع كتابة ارقام في text - عبدالله الصافي - 25-11-12
جرب ذلك الكود وأخبرني, بالتوفيق.
PHP كود :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
ممكن كود منع كتابة ارقام في text - abbr999 - 15-05-13
كيف يكون العكس يعني يكتب ارقام فقط بدون نص
ممكن كود منع كتابة ارقام في text - mmali127 - 16-05-13
كتابة ارقام فقط
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
ممكن كود منع كتابة ارقام في text - الاصيله - 16-05-13
تفضل هذا المثال
ممكن كود منع كتابة ارقام في text - محمد العبيدي - 16-05-13
abbr999 كتب :كيف يكون العكس يعني يكتب ارقام فقط بدون نص
هذا كود السيد عبدالله الصافي لكتابة الحروف فقط
PHP كود :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
PHP كود :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
ممكن كود منع كتابة ارقام في text - abbr999 - 18-05-13
شكراً جزيلاً للجميع
RE: ممكن كود منع كتابة ارقام في text - ziadshhab - 30-07-19
شباب ممكن كود اذا كتبت في text مثلا
if text1.text = "بر "then
text1.text ="برود باند "
المشكة انو لما تكتب بر
يضيف حرف و مع برود باند
تصبح وبرودباند
ممكن حل
RE: ممكن كود منع كتابة ارقام في text - abuahmad - 08-02-21
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