限制输入类型(类模块）

andymark

         限制输入类型的示例

1. Private m_DataType As Integer   '定义数据类型
   
2. Private WithEvents LimitTextBox As TextBox
   
3. 
   
4. Enum DType
   
5.     MyChar = 0     '字符类型
   
6.     MyInt = 1      '整数
   
7.     MyDecimal = 2  '小数
   
8.     MyPhone = 3    '电话
   
9.     MyEmail = 4    'Email
   
10.     MyNone = 5     '常规
    
11. End Enum
    
12. 
    
13. 
    
14. Property Get DataType() As DType
    
15.     DataType = m_DataType
    
16. End Property
    
17. 
    
18. Property Let DataType(Value As DType)
    
19.     m_DataType = Value
    
20. End Property
    
21. 
    
22. Public Sub SetTextBoxType(LimitText As TextBox, LimitType As DType)
    
23.   '设置文本数据类型
    
24.     Set LimitTextBox = LimitText
    
25.     With LimitTextBox
    
26.         DataType = LimitType
    
27.        .OnKeyPress = "[Event Procedure]"
    
28.     End With
    
29.   
    
30. End Sub
    
31. Private Sub LimitTextBox_KeyPress(KeyAscii As Integer)
    
32.    
    
33.    Select Case m_DataType
    
34.       
    
35.       Case 0
    
36.          If Not IsChar(KeyAscii) = True Then KeyAscii = 0
    
37.       Case 1
    
38.           If Not IsInt(KeyAscii) = True Then KeyAscii = 0
    
39.       Case 2
    
40.           If Not IsDecimal(KeyAscii) = True Then KeyAscii = 0
    
41.       Case 3
    
42.            If Not IsPhone(KeyAscii) = True Then KeyAscii = 0
    
43.       Case 4
    
44.            If Not IsEmail(KeyAscii) = True Then KeyAscii = 0
    
45.       Case 5
    
46.          
    
47.     End Select
    
48. 
    
49. End Sub
    
50. 
    
51. 
    
52. Private Sub Class_Initialize()
    
53.     Set LimitTextBox = Nothing
    
54. End Sub
    
55. 
    
56. 
    
57. Private Function IsChar(ByVal A As Integer) As Boolean
    
58.     If (A < 97 Or A > 122) And (A < 65 Or A > 90) And (A <> 8) And (A <> 32) Then
    
59.         IsChar = False
    
60.        Else
    
61.         IsChar = True
    
62.     End If
    
63. End Function
    
64. Private Function IsInt(ByVal A As Integer) As Boolean
    
65.     If (A < 48 Or A > 57) And (A <> 8) Then
    
66.       
    
67.           IsInt = False
    
68.        Else
    
69.           IsInt = True
    
70.     End If
    
71. End Function
    
72.    
    
73. Private Function IsDecimal(ByVal KeyAscii As Integer) As Boolean
    
74.     If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = Asc(".") Then
    
75.         IsDecimal = True
    
76.      Else
    
77.         IsDecimal = False
    
78.     End If
    
79. End Function
    
80. Private Function IsPhone(ByVal A As Integer) As Boolean
    
81.     If (A < 48 Or A > 57) And (A <> 8) And (A <> Asc("-")) Then
    
82.         IsPhone = False
    
83.        Else
    
84.         IsPhone = True
    
85.     End If
    
86. End Function
    
87. Private Function IsEmail(ByVal A As Integer) As Boolean
    
88.     If (A < 97 Or A > 122) And (A < 65 Or A > 90) And (A <> 8) And (A < 48 Or A > 57) And A <> Asc("-") And A <> Asc("@") And A <> Asc(".") Then
    
89.         IsEmail = False
    
90.        Else
    
91.         IsEmail = True
    
92.     End If
    
93. End Function
    
94. Private Function IsProperDecimal(ByVal No As String) As Boolean
    
95.     Dim NoLen
    
96.     Dim DotFlag
    
97.     DotFlag = 0
    
98. 
    
99.     NoLen = Len(No)
    
100.     Dim I As Integer
     
101.     For I = 1 To NoLen
     
102.         If Mid(No, I, 1) = "." Then DotFlag = DotFlag + 1
     
103.     Next I
     
104.     If DotFlag > 1 Then IsProperDecimal = False Else IsProperDecimal = True
     
105. End Function
     
106. 
     
107. 
     

复制代码

完整示例

tanhong

有些日了没见到老兄新作了，收藏了，多谢分享。

Henry D. Sy

今天大请客

xuwenning

谢谢分享
收下

yanghua1900363

收藏了 谢谢分享

yanwei82123300

多谢分享。

koutx

好东西一定要收藏

huangli0356

谢谢分享