以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何控制输入格式  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28798)

--  作者:秋叶蓝
--  发布时间:2013/2/19 11:08:00
--  [求助]如何控制输入格式

请教怎样去判断输入的值是否符合要求的格式

例如在窗口的文本框内输入的值我要检查它是不是0001234 或者0001234-A 这两种格式的,如果不是就弹出对话框要求重新修改.
请问这个代码如何写呢?

--  作者:lin_hailun
--  发布时间:2013/2/19 11:15:00
--  
 你说的0001234-A,左边的0001234是指数字,还是指000是固定的,1234是数字随意变换?
--  作者:lin_hailun
--  发布时间:2013/2/19 11:30:00
--  
 编写控件的 validating 事件,规则根据你自己想要的格式改变。

Dim text As String = e.Sender.Text
Dim match As String = "^000{1}[0-9]{4}$|^000{1}[0-9]{4}-A{1}$"
If Not System.Text.RegularExpressions.Regex.IsMatch(text, match) Then
    msgbox("格式不正确")
    e.Cancel = True
End If

--  作者:秋叶蓝
--  发布时间:2013/2/19 12:42:00
--  
测试成功!
感谢lin_hailun !!!
在foxtable的官方帮助文档中找不到关于正则表达式的使用介绍方法呢?