|
我本想在类模块被初始化时调用外部函数将自身放到全局变量里,但是找不到什么东西可以指向自身,而其他语言里都有像this、self这样的指针。后来我想到Form里可以用Me指向自身,试验后发现类模块里也可以使用这个东西,例子:
Class1中:- Option Explicit
- Sub abc()
- MsgBox "123"
- End Sub
- Private Sub Class_Initialize()
- MsgBox Hex(ObjPtr(Me))
- Me.abc
- End Sub
复制代码 窗体中:- Option Explicit
- Private Sub Form_Load()
- Dim a As Class1
- Set a = New Class1
- End Sub
复制代码 接着运行看到先弹出类模块的实例指针,然后是弹出“123”,说明类模块里亦可以使用Me |
评分
-
查看全部评分
|