VB指针

来源:百度文库 编辑:神马文学网 时间:2024/07/14 00:30:11
VB 5.0有一个古怪的特性,你可以利用AddressOf得到一个过程、函数指针,并把它传递给Windows API函数加以调用,但VB自己不能调用这样的指针。
如果你要想实现类似指针的功能,只能先建立几个Class Module,在这些Class中增加共同的成员函数,如Execute。然后建立Object类型的变量,将这个变量赋上不同的类,然后加一调用。如:
Dim A As New Class1
Dim B As New Class2
Dim C As New Class3
Dim objFunc As Object
Select Case nChoice
Case 1
objFunc = A
Case 2
objFunc = B
Case 3
objFunc = C
End Select
objFunc.Execute