比如：
If e.Sender.Value.length = 3 OrElse e.Sender.Value.length = 4 Then
For Each c As Char In e.Sender.Value
If Char.IsDigit(c) = False Then
MessageBox.show("请输入数字!")
e.Cancel = True
Return
End If
Next
Else
MessageBox.show("请输入3位或4位区号数字!")
e.Cancel = True
End If
又比如
If e.Sender.Value.length = 3 OrElse e.Sender.Value.length = 4 Then
If Val(e.Sender.Value) = 0
MessageBox.show("请输入数字!")
e.Cancel = True
End If
Else
MessageBox.show("请输入3位或4位区号数字!")
e.Cancel = True
End If
又比如：
If e.Sender.Value.length = 3 OrElse e.Sender.Value.length = 4 Then
Dim d As Integer
If Integer.TryParse( e.Sender.Value,d) = false
MessageBox.show("请输入数字!")
e.Cancel = True
End If
Else
MessageBox.show("请输入3位或4位区号数字!")
e.Cancel = True
End If
加好友 
发短信
Post By：2019/5/31 21:34:00 [显示全部帖子]
