[dubai.eig]

(21-11-17, 09:15 AM)a.ahmed كتب :

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

    Dim s As String = TextBox1.Text

    Dim Number As Boolean = False
    Dim Letter As Boolean = False
    For Each c As Char In s.ToCharArray
        If IsNumeric(c) Then Number = True Else Letter = True
    Next

    If Number And Not Letter Then MsgBox("Number only")
    If Letter And Not Number Then MsgBox("Letter only")
    If Number And Letter Then MsgBox("Number and Letter")

End Sub 


تسلم بارك الله فيك

شكرا  شكرا احسنت دائما تساعد الشباب  

في ميزان اعمالك انت وجميع الاخوى في هذا المنتدى

شكرا