1.VB的一些項目中常用的通用方法：

' 設置校驗鍵盤輸入值,數字 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 "只能輸入數字" Exit FunctionElsekyd = keyEnd IfEnd Function' 設置校驗鍵盤輸入值,數字 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 "只能輸入數字" Exit FunctionElseknum = keyEnd IfEnd Function' 設置校驗鍵盤輸入值,數字 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 "只能輸入數字" Exit FunctionElsekrq = keyEnd IfEnd Function' 設置校驗鍵盤輸入值,數字和字母可以 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 "只能輸入數字" Exit FunctionElse' key = key End IfEnd Function

?

轉載于:https://www.cnblogs.com/spring_wang/p/3423178.html

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。