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

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

 

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

从简化代码考虑，我觉得应该把输入“掩码”与身份证号的验证(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

您这个倒是简单，可这样的身份证号码依然能够通过！

 

511324110000000007

这应该是贺老师给的ValidPIN()的判断不严谨，所以您要慎用之，还是自己的代码才好使！

嗯

学习了。