'如果是数字的话.
'If IsNumeric(Text1.Text) = True Then
'End If
Public Function PanDuan(ByVal str As String) As Boolean
Dim Eng As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghigklmnopqrstuvwxyz"
PanDuan = True
Dim i As Integer
For i = 1 To Len(str)
If Eng.IndexOf(Mid(str, i, 1)) = -1 Then
PanDuan = False
End If
Next
End Function
1.
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Select Case e.KeyChar
Case "0" To "9"
MessageBox.Show("数字")
Case "A" To "z"
MessageBox.Show("字母")
End Select
End Sub
2.用正则应该是最简单的!