Class module query

[mogura]

I have a client application named MyClientApp that contains a class module named MyClass. MyClass contains a callback method named MyCallback. On the corporate network, there is a COM component named MyServerCOM that contains a method named CallMyCallback.

MyServerCOM contains a method named MyInitializer. After Myintializer has been called by MyClientApp, CallMyCallback will be called Myinitializer. CallMyCallback will call the MyCallback method of MyClientApp that is running on the client computer.

To call Myinitializer in MyServerCOM, MyClientApp creates an object variable for MyServerCOM named oServerCOM. I want to add the procedure in MyClientApp application that calls MyServerCOM.Myinitializer. Should the code be as follows:

Public oMyClass As MyClass
Set oMyClass = New MyClass
oServerCOM.Myinitializer (oMyClass)

Or is that wrong?

 

[TerraSamba]

Ok, no pointers are available in VB6, so you will need to point the MyServerCOM to the executing proces of MyClass to be able to supply the callback functionality.

You must use the adressOf operator, but somehow this only works with modules and not with the class that you referenced.

There is lot's of info available: take a look at

http://www.codenotes.com/articles/articleAction.aspx?articleID=507

for a nice example

or

http://www.vbaccelerator.com/home/VB/Code/Libraries/Subclassing/SSubTimer/article.asp

for an ok backgrounder

The gap between theory and practice is not as wide in theory as it is in practice.

 

[mogura]

Thanks, I'll check that out.