VB6.0编写开发模块的一个例子,这个模块的解释和class1一样,大家如果看懂了class1,就懂这个模块了。这个模块只不过是class1的一个复制品,不过这里实现的是form2。OwnerInterface.RequestOperation OwnerClass, Text1.Text '和调用的对象通信,其实就是调用了他的方法而已,本来调用的应该是ICommClass的RequestOperation方法,但是因为frmtest中实现了他的方法,所以为调用frmtest中的RequestOperation,OwnerInterface.RequestOperation OwnerClass, Text1.Text 和调用的对象通信,其实就是调用了他的方法,还请注意:onconnection 不是IAddInInterface里的方法了,而是TestAddin.Class1的onconnection。
ICommClass.cls模块是用来通信用的,用来给调用的类实现接口用的,没有其他的用处,但是也不能少
Public Sub RequestOperation(pInst As IAddInInterface, Operation As String)
MsgBox "执行到了这里 RequestOperation方法" '注意,因为这个方法被实现接口,所以,这里永远不会被执行
End Sub
Public Sub AddinStatusMessage(pInst As IAddInInterface, sMessage As String)
Debug.Print "执行到了这里 AddinStatusMessage方法" '注意,因为这个方法被实现接口,所以,这里永远不会被执行
End Sub
1