25-11-12, 09:37 PM
25-11-12, 11:31 PM
جرب ذلك الكود وأخبرني, بالتوفيق.
PHP كود :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
15-05-13, 06:05 PM
كيف يكون العكس يعني يكتب ارقام فقط بدون نص
16-05-13, 10:00 AM
كتابة ارقام فقط
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
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
16-05-13, 12:49 PM
تفضل هذا المثال
16-05-13, 07:08 PM
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
18-05-13, 07:54 AM
شكراً جزيلاً للجميع
30-07-19, 12:54 PM
شباب ممكن كود اذا كتبت في text مثلا
if text1.text = "بر "then
text1.text ="برود باند "
المشكة انو لما تكتب بر
يضيف حرف و مع برود باند
تصبح وبرودباند
ممكن حل
if text1.text = "بر "then
text1.text ="برود باند "
المشكة انو لما تكتب بر
يضيف حرف و مع برود باند
تصبح وبرودباند
ممكن حل
08-02-21, 08:42 PM
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
If KeyAscii > 31 Then
If (KeyAscii < 48) Or (KeyAscii > 57) Then
KeyAscii = 0
End If
End If
End Sub