Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
不用写代码的。
设计窗口的时候,设置该按钮的提示信息即可
If Char.IsPunctuation(e.KeyChar) OrElse Char.IsSymbol(e.KeyChar) OrElse Char.IsLetter(e.KeyChar) OrElse Char.IsLetter(e.KeyChar) Then
e.Cancel = True
End If
在论坛的库管系统之五金建材版,里面有一段判断电话号码是否合法的代码,仅供参考:
if e.col.name = "联系方式_电话" and e.row("联系方式_电话") isnot nothing then
if not isnumeric(e.row("联系方式_电话").replace("-","").replace("-","").replace("/","")) then
MessageBox.Show("对不起,您输入的电话号码不合法!", "系统提示:",MessageBoxButtons.OK,MessageBoxIcon.Exclamation,MessageBoxDefaultButton.Button1)
end if
end if