1.VB的一些項(xiàng)目中常用的通用方法：

' 設(shè)置校驗(yàn)鍵盤輸入值,數(shù)字 Public Function kyd(key As Integer) As Integer '20060728 Dim mycharmychar = "0123456789-" & Chr(8) & Chr(46)If InStr(mychar, Chr(key)) = 0 Thenkyd = 0' MsgBox "只能輸入數(shù)字" Exit FunctionElsekyd = keyEnd IfEnd Function' 設(shè)置校驗(yàn)鍵盤輸入值,數(shù)字 Public Function knum(key As Integer) As Integer '20060728 Dim mycharmychar = "0123456789." & Chr(8) & Chr(46)If InStr(mychar, Chr(key)) = 0 Thenknum = 0' MsgBox "只能輸入數(shù)字" Exit FunctionElseknum = keyEnd IfEnd Function' 設(shè)置校驗(yàn)鍵盤輸入值,數(shù)字 Public Function krq(key As Integer) As Integer '20060728 Dim mycharmychar = "0123456789" & Chr(8) & Chr(46)If InStr(mychar, Chr(key)) = 0 Thenkrq = 0' MsgBox "只能輸入數(shù)字" Exit FunctionElsekrq = keyEnd IfEnd Function' 設(shè)置校驗(yàn)鍵盤輸入值,數(shù)字和字母可以 Public Function knumCHAR(key As Integer) As Integer '20060728 Dim mycharmychar = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" & Chr(8) & Chr(46)If InStr(mychar, Chr(key)) = 0 Thenkey = 0' MsgBox "只能輸入數(shù)字" Exit FunctionElse' key = key End IfEnd Function

?

轉(zhuǎn)載于:https://www.cnblogs.com/spring_wang/p/3423178.html

總結(jié)

以上是生活随笔為你收集整理的VB的一些项目中常用的通用方法-一般用于验证类的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。