Evenement et classe

Question

Bonjour je voudrais savoir comment récupérer un évènement dans un module de classe, l'objet étant déclaré comme ceci :

dim truc as machen

set true = new bidule

 :clown)  :clown)  .:CrAzY_JoKe:.  :clown)  :clown)

Utilisateur anonyme · Answer

en fait je suis en train de créer une dll p2p !

 :clown)  :clown)  .:CrAzY_JoKe:.  :clown)  :clown)

crenaud76 · Answer

Si tu veux pouvoir gérer dans ton module les evt de ton objet Truc, il faut que tu le déclare "WithEvents" (c'esdt tellement évident qd on te le dis !!)

Private WithEvents Truc as Machin


Christophe R.

gandalflegris007 · Answer

EMMANUELTAV · Answer

j'ai a peu pres le meme probleme :

- j'ai une classe : cNoeudTypeDb

   Public Event evmDeplacementVersBas()

- Dans cette classe une propri&#233;t&#233;e :

Public Property Let ArbHierPosFils(ByVal vData As Integer)
   On Error GoTo ArbHierPosFilsLetErr
   
   mvarArbHierPosFils = vData
   
   '--   Si la Valeur de la variable interne a la classe est 0 --
   '--      alors l'est la premi&#232;re ecriture                   --
   If mvarArbHierPosFils = 0 Then
   
   '--   Si non On est en cour de la r&#233; assigner   --
   Else
       MsgBox "tu est en train de la bouger c'est un evenement"
      RaiseEvent evmDeplacementVersBas
   End If
   
   Exit Property


ArbHierPosFilsLetErr:
'---------------------------------------------------------------------------------------
   Call RaiseError(MyUnhandledError, "cNoeudTypeDb:ArbHierPosFils Propri&#233;t&#233;e Let")
End Property

- dans un form :

Private WithEvents test As cNoeudTypeDb

Private Sub test_evmDeplacementVersBas()
   cmdReduireBranche.Visible = False
MsgBox "c'es recu"


End Sub

- Rien ne marche !!! de plus lorsque je d&#233;bog les instruction dans la classe sont correctement executer mais l'evenement dans le form n'est pas executer. !!!!!

crenaud76 · Answer

D&#233;j&#224; pour leverton evt il te faut un appel &#224; ta propri&#233;t&#233; ArbHierPosfils de ton objet Test, ensuite tu verra si ton evt est bien lev&#233; ! Je ne vois pas pourquoi il ne le serait pas si mvarArbHierPosFils est diff&#233;rent de 0 dans l'instance Test

P.S. : Je suppose que la msgbox juste avant le raiseevent est a l&#224; des fins de test ? Sinon faut &#233;viter ! Et pour tes tests tu peux utiliser Debug.Print, plutot qu'une msgbox
Christophe R

EMMANUELTAVE · Answer

J'ai plac&#233; des debug.print partout => OK ; j'ai verifi&#233; que la propri&#233;t&#233; est bien appeller => OK, j'ai d&#233;bug&#233; avec F8 => Rien a faire, l'evenement ne s'execute pas dans le form.

Je me suis dit que peut etre cela vient du faite que le form est un form Fille (MdiFchild = true)
 

le gros mangeur de pat&#233;

crenaud76 · Answer

aucun rapport avec le fait que la form soit mdichild ! Tu es sur que ton code passe bien sur la ligne du RaiseEvent dnas le code de ta propri&#233;t&#233; ? Est-ce bien pour une instance d&#233;clar&#233; withEvent ?

Christophe R

EMMANUELTAVE · Answer

La ligne RaiseEvent est bien executer avec F8.

dans le form en declaration je place : Private WithEvents test As cNoeudTypeDb

j'ai lu toutes l'aide msdn sur les evenement, j'ai tester le programme qui s'appelle PROGWOB.VBP et je suis en train de me tapper la tete contre les mur !!!! ca me casse les .....
j'ai meme essayer de Faire des erreurs pour voir comment il r&#233;agit...

c'est le bonneur!!!!
Merci de ton aide

le gros mangeur de pat&#233;

Evenement et classe

8 réponses

Discussions similaires