Discussion :

[engrobel]

Bonjour à tous,

J'ai réalisé un serveur d'automation de test déclenchant un évenement avec c++ Builder.

Je cherche à utiliser ce serveur avec Microsoft Visual Basic, par exemple.
Pour cela, j'ai écrit quelques lignes de code dans l'éditeur de Word :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
Dim obj As ServeurTest.ClassTest
Set obj = New ServeurTest.ClassTest
 
rem appel à la méthode déclenchant l'évenement EventTest 
obj.CallServer
 
End Sub

Ce code fonctionne mais je ne sais pas comment collecter l'évenement EventTest que je peux voir dans l'explorateur d'objet :

Event EventTest()
Membre de ServeurTest.ClassTest

[Cravis]

Je ne suis pas du tout à l'aise avec la programmation objet en VB6 mais peut être mon idée n'est-elle pas stupide :
Lorsqu'on déclare l'événement click d'un buton par exemple on declare la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Buton_Click()

Qu'est-ce que cela donne si tu essai de déclarer la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub obj_EventTest()

Il faudra bien sur dans ce cas pour tester que la déclaration de l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private WithEvents obj As ServeurTest.ClassTest

Ne soit plus dans procédure Test mais soit Global / ou ai une portée sur tous le code du module dans lequel tu déclare ton événement (Déclaré en entête juste après "Option Explicit").

Ce n'est qu'une idée, je n'ai absolument pas testé et n'ai jamais eu à instancier un objet possédant des événements de cette manière.

Edit : Correction de la déclaration de l'objet contenant l'événement avec le mot clé "WithEvents"