[Microformt]

(15-12-15, 05:46 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم سالم ، هذا كود لعملية الفحص :

PHP كود :

Dim IsOk As Boolean
Dim I As Integer
Dim CharsCount As Integer

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.SetFoucs
    Exit Sub
End IF 


اخي العزيز  احمد
السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم