problem with delegates

[Boni]

Dear All,
I would like to pass delegate (i.e function pointer ) into class
--------------------------
delegat TAAADelegate()
class A
dim myhandler as TAAADelegate
sub initialize ( handler_ as TAAADelegate)
myhandler=handler_
end sub

public shared sub Handler1()
end sub

end class

 

[Larry Lard]

Dear All,
I would like to pass delegate (i.e function pointer ) into class
--------------------------
delegat TAAADelegate()
class A
dim myhandler as TAAADelegate
sub initialize ( handler_ as TAAADelegate)
myhandler=handler_
end sub

public shared sub Handler1()
end sub

end class

It helps if you actually copy and paste directly from the editor

delegat TAAADelegate()

Guessing this is meant to be

Delegate Sub TAAADelegate()

dim oA as new A
A.initializelize(A.Handler1) 'Compiler complains
A.initializelize(addressof A.Handler1) 'Compiler complains

- The sub is called 'initialize' not 'initializelize'
- 'initialize' is an instance method not a shared method, so should be
invoked on oA not A

Once those changes are made, this compiles:

Dim oA As New A
oA.initialize(AddressOf A.Handler1)