15-12-15, 05:46 AM
(آخر تعديل لهذه المشاركة : 15-12-15, 10:13 PM {2} بواسطة Ahmed_Mansoor.)
أهلا أخي الكريم سالم ، هذا كود لعملية الفحص :
PHP كود :
Dim IsOk As Boolean
Dim I As Integer
Dim CharsCount As Integer
IsOk = True
If IsNumeric(Trim$(Text1.Text)) = True Then IsOk = False
For I = 1 To Len(Trim$(Text1.Text))
If IsNumeric(Mid$(Trim$(Text1.Text), I, 1)) = False Then
CharsCount = CharsCount + 1
End If
Next
If CharsCount = Len(Trim$(Text1.Text)) Or CharsCount > 1 Then IsOk = False
If IsOk = False Then
MsgBox "يرجى إدخال حرف واحد والباقي أرقام"
Text1.SetFocus
Exit Sub
End If

