salut,
tu declares ton évènement dans ton Module de Classe comme ceci :
Public Event Mon_Event(Mon_Param1 As Un_Type,Mon_Param2 As Un_Type,...,Mon_ParamN As Un_Type)
Ensuite tu peux utiliser RaiseEvent de n'importe quelle procédure ou fonction :
RaiseEvent Mon_Event(Par_1,Par_2,...,Par_N)
Dans le code qui utilise l'objet, tu déclares une varaible de ta classe comme ceci :
Private WithEvents Mon_objet As Ma_Classe
puis dans ton code (tu ne peux pas utiliser As New avec WithEvents)
Set Mon_Objet = New Ma_Classe
Dans les deux combos de l'éditeur de texte de VB, tu as : dans le
premier, Mon_Objet et dans le second, la liste de ses évènements :
Mon_Envent...
ShareVB
|