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
'类的代码结束
（2）类的引用；
已经编写完成的类可以经过两种格式进行引用，第一种方式：Private（public或者dim)
myCLS（指定的类名） As New
cls（编写完成的类名）；第二种方式较多用于程序编写风格较“老”的程序员：首先在窗体代码中进行模块级声明——Dim myCLS As
cls,然后在具体代码过程中进行具体定义—— Set mycls = New
cls。这两种方式的效率和代码的简洁性方面可能会有所差别，但在笔者的编程实践中，并没有什么特别的感觉，不过我较多使用第一种方式，因为它书写起来更加方便。另外，在代码结束的时候，使用
Set myCLS =
Nothing来取消类的资源占用是一种非常好的编程习惯。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
