[mawad]

(30-03-16, 03:27 PM)foxweb كتب :

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If (checkLetter(txtValue.Text)) Then
            MsgBox("Ok")
        End If

        If (checkNoLetterOrDigit(txtValue.Text)) Then
            MsgBox("Ok")
        End If
    End Sub

    Private Function checkLetter(ByVal z As String) As Boolean

        For index = 0 To z.Length - 1
            If (Char.IsLetterOrDigit(z(index))) Then
                Return True
            End If

        Next ' end for

        Return False
    End Function

    Private Function checkNoLetterOrDigit(ByVal z As String) As Boolean

        For index = 0 To z.Length - 1
            If (Not Char.IsLetterOrDigit(z(index))) Then
                Return True
            End If

        Next ' end for

        Return False
    End Function

End Class