关于Visual Basic 6.0类开发之二(转)

（二） 类的方法的实现 ；

　　 类的方法类似于动态链接库的接口函数，它能够接受其他窗体代码的指定类型参数，并且传递到类中。一般来说类的方法是能够指定是否有返回值的。它在类中通常是一个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博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925242/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925242/