Bonjour,

Voici mon problème, je souhaite communiquer avec un instrument de mesure (LT) via un module de class defini comme suit:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.