Roepen en luisteren

Een ActiveX klasse kan worden opgeroepen, enkan ook worden opgeroepen over een netwerk. We geven daarvan een voorbeeld.
We maken een ActiveX klasse die zal luisteren, en reageren als ze wordt opgeroepen. Die ActiveX component zal worden opgeroepen door een programma.
De Luisteraar ziet er als volgt uit:
Private Sub Class_Initialize()
MsgBox "Ik word geroepen"
End Sub
De Roeper ziet er als volgt uit:
Private Sub Command1_Click()
Dim obj
Set obj = CreateObject("Luisteraar.Listener")
End Sub
Het gevolg is dat de Luisteraar reageert met een MsgBox als je in het programma op de knop drukt. Noteer dat je bij de oproep ook de naam van een server op het netwerk kan meegeven.
Je kan het project downloaden.