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 |
Partager