主题：建议增加“EditMask”示例语句

问题来源：

在用文本框控件来输入身份证号时，想通过代码来设定掩码，于是在AfterLoad加入：

e.Form.Controls("TextBox3").EditMask="00000000000000000>"

意思是前17位一定输入数字，最后一位强制转换为大写。因为身份证号的最后一位有可能为“X”。

如进行大小写转换，有可能带来输入不正确。

如按照这个看类正确的掩码入时，发现文本框这个只能输入17位数字，最后一位不让输入。

后经“木华”指点，把代码改为：e.Form.Controls("TextBox3").EditMask="00000000000000000>A"

后才正常。

对照http://www.foxtable.com/help/index.html?n=1866.htm 有关EditMastk中有关“>”说明，怎么也看不出要再加一个“A”

所以请狐爸在解释这个文本框掩码的示例时，加入这个身份证号的用法。输入身份证号应该在人事管理中经常会遇到的，有普遍性。

而且也能加深“>”这个大写转换的用法。

 

自己顶一下，顺便发一个测试项目。

大家可以试下，在身份证号的控件中，只能输入17位数字。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:掩码测试.table

项目例子放在第二楼了

翻一下前几天的贴，热心的人士也帮着测试一下。

再顶一下

好，先谢谢！

程版，再次谢谢您完善了程序。

 

另外，我想这个身份证号输入是经常遇到的事情。狐表对于数据输入的代码效率很高。

从简化代码考虑，我觉得应该把输入“掩码”与身份证号的验证(ValidPIN用于校验身份证号码是否正确，如果正确，返回True，否则返回False)

 

这样写法更符合狐表的特色。如果ValidPIN还有不完善的地方，那就由狐表公司升级来改进。

这是我初学者的一点意思，不知道是否能行。

 

纯技术上探讨。晚上我去写一下掩码加验证的例子。

发一个验证身份证号的例子。

代码简单点。

 

主要代码：

 

身份证号验证示例_AfterLoad

 

Dim xfzh As WinForm.TextBox = e.Form.Controls("TextBox1")

xfzh.EditMask="00000000000000000>A"

 

 

 

身份证号验证示例_TextBox1_Validating

 

Dim XFZH As WinForm.TextBox = e.Form.Controls("TextBox1")

 

Dim XB As WinForm.TextBox = e.Form.Controls("TextBox3")

Dim CSRQ As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

If ValidPIN(XFZH.text)

    XB.TEXT = ReadSex(XFZH.TEXT)

    CSRQ.Value=ReadBirthDay(XFZH.TEXT)

Else

    MessageBox.Show("输入的身份证号有误,请重新输入!")

    e.Cancel = True

End If

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:简单身份证号验证.table

嗯