文本框只允许输入数字或 . 并且验证IP地址输入是否合法
If Not System.Text.RegularExpressions.Regex.IsMatch(Me.txtIP.Text,"^/d{1,3}/./d{1,3}$") Then
CCDC.Utility.msg.ShowWarning("服务器地址输入不正确。")
Me.txtIP.Focus()
Return False
End If
输入的是否是数字或.
Private Sub txtIP_KeyPress(ByVal sender As System.Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtIP.KeyPress
e.Handled = True
If System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar,"^[0-9]|/.$") OrElse (Asc(e.KeyChar) = Keys.Back) Then
e.Handled = False
End If
End Sub
原文链接：https://www.f2er.com/vb/262637.html