Declancher un event depuis un class module
Bonjour:P,
Voici mon problème, je souhaite communiquer avec un instrument de mesure (LT) via un module de class defini comme suit:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Dim ObjConnect As New LTConnect
Dim WithEvents ObjSync As LTCommandSync
Public Sub WorkSheet_Init()
End Sub
Private Sub Connect_Click()
Set ObjSync = ObjConnect.ILTCommandSync
ObjConnect.SelectNotificationMethod LTC_NM_Event, 0, 0
End Sub
Private Sub GetReflectors_Click()
ObjSync.GetReflectors
End Sub
Private Sub ObjSync_ReflectorsData(ByVal reflectorID As Long, ByVal reflectorName As String, ByVal targetType As LTCONTROLLib.ES_TargetType, ByVal surfaceOffset As Double, ByVal reflectorsTotal As Long)
msgbox ("event!")
End Sub |
Depuis un module classique j'instancie cette classe, réussi a me connecter, lorsque je fais appel a GetReflectors, l'instrument m'envoie des packets d'info successif cens2 declancher l'evenement ObjSync_ReflectorsData, mais il ne se declanche jamais:(.
Que me manque-t-il:??
D'avance merci pour vos reactions.
