（二） 类的方法的实现 ；
类的方法类似于动态链接库的接口函数，它能够接受其他窗体代码的指定类型参数，并且传递到类中。一般来说类的方法是能够指定是否有返回值的。它在类中通常是一个public过程。请看下面的代码示例，它使一个密码框拒绝非字母的输入：
（1）类cls的代码；
Option Explicit'变量检查
Private WithEvents mytxt As TextBox
'本类中的方法接受和控制一个text密码框
Dim isNUM As Boolean
'类的模块级变量
Public Sub Attach(itTEXT As TextBox)
'接受外部变量到mytxt中
Set mytxt = itTEXT
End Sub
Private Sub mytxt_KeyUp(KeyCode As Integer, Shift As Integer)
isNUM = (KeyCode >= 65) And (KeyCode <= 90)
'测试密码框的键盘输入是否是英文字母
If isNUM = False Then
Beep
mytxt.Text = ""
'如果输入不是英文字母则响铃并且清空密码框内容
MsgBox "非法字符输入！"
End If
Debug.Print mytxt.Text
'调试输出密码框内容
End Sub
'类的代码结束[@more@]
类的方法类似于动态链接库的接口函数，它能够接受其他窗体代码的指定类型参数，并且传递到类中。一般来说类的方法是能够指定是否有返回值的。它在类中通常是一个public过程。请看下面的代码示例，它使一个密码框拒绝非字母的输入：
（1）类cls的代码；
Option Explicit'变量检查
Private WithEvents mytxt As TextBox
'本类中的方法接受和控制一个text密码框
Dim isNUM As Boolean
'类的模块级变量
Public Sub Attach(itTEXT As TextBox)
'接受外部变量到mytxt中
Set mytxt = itTEXT
End Sub
Private Sub mytxt_KeyUp(KeyCode As Integer, Shift As Integer)
isNUM = (KeyCode >= 65) And (KeyCode <= 90)
'测试密码框的键盘输入是否是英文字母
If isNUM = False Then
Beep
mytxt.Text = ""
'如果输入不是英文字母则响铃并且清空密码框内容
MsgBox "非法字符输入！"
End If
Debug.Print mytxt.Text
'调试输出密码框内容
End Sub
'类的代码结束[@more@]
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/8781179/viewspace-925242/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
