VB的一些项目中常用的通用方法-一般用于验证类
1.VB的一些项目中常用的通用方法:
' 设置校验键盘输入值,数字 Public Function kyd(key As Integer) As Integer '20060728 Dim mychar mychar = "0123456789-" & Chr(8) & Chr(46) If InStr(mychar, Chr(key)) = 0 Then kyd = 0 ' MsgBox "只能输入数字" Exit Function Else kyd = key End If End Function ' 设置校验键盘输入值,数字 Public Function knum(key As Integer) As Integer '20060728 Dim mychar mychar = "0123456789." & Chr(8) & Chr(46) If InStr(mychar, Chr(key)) = 0 Then knum = 0 ' MsgBox "只能输入数字" Exit Function Else knum = key End If End Function ' 设置校验键盘输入值,数字 Public Function krq(key As Integer) As Integer '20060728 Dim mychar mychar = "0123456789" & Chr(8) & Chr(46) If InStr(mychar, Chr(key)) = 0 Then krq = 0 ' MsgBox "只能输入数字" Exit Function Else krq = key End If End Function ' 设置校验键盘输入值,数字和字母可以 Public Function knumCHAR(key As Integer) As Integer '20060728 Dim mychar mychar = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" & Chr(8) & Chr(46) If InStr(mychar, Chr(key)) = 0 Then key = 0 ' MsgBox "只能输入数字" Exit Function Else ' key = key End If End Function
作者: 王春天 出处: http://www.cnblogs.com/spring_wang/ Email: spring_best@yeah.net QQ交流:903639067
QQ群:322581894 关于作者: 大连天翼信息科技有限公司 技术总监。 SNF快速开发平台 创始人。应用平台架构师、IT规划咨询专家、业务流程设计专家。 专注于快速开发平台的开发、代码生成器。同时专注于微软平台项目架构、管理和企业解决方案,多年项目开发与管理经验,精通DotNet系列技术Vue、.NetCore、MVC、Webapi、C#、WinForm等,DB(SqlServer、Oracle等)技术,移动端开发。熟悉Java、VB及PB开发语言。在面向对象、面向服务以及数据库领域有一定的造诣。现从事项目实施、开发、架构等工作。并从事用友软件产品U8、U9、PLM 客开工作。 如有问题或建议,请多多赐教! 本文版权归作者和CNBLOGS博客共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,如有问题,可以通过邮箱或QQ 联系我,非常感谢。