Bonjour,

Je suis en train de mettre très succinctement à VB, histoire de faire un bout de code pour commander un autre soft, disposant de fonction .COM.

J'arrive sans problème à lancer mon application (CANalyzer), mais impossible de récupérer les évènements.

Je me doute que personne ne connait cette application, j'aimerai juste connaitre si la structure générale de mon code est bonne :


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
23
24
25
26
27
28
29
30
31
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Dim WithEvents gCanApp As CANalyzer.Application
    Dim WithEvents gCanMeasurement As CANalyzer.Measurement
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If gCanApp Is Nothing Then
            gCanApp = CreateObject("CANalyzer.Application")
 
            gCanApp.Open("G:\myScript\Configuration.cfg")
            gCanApp.Measurement.Start()
 
 
            'quit the CANalyzer application 
            'gCanApp.Quit()
 
        End If
    End Sub
 
 
  Private Sub gCanApp_OnQuit() Handles gCanApp.OnQuit
 
        End
    End Sub
 
    Private Sub gCanMeasurement_OnStop() Handles gCanMeasurement.OnStop
        gCanApp.Quit()
    End Sub
End Class


Y-a-t'il quelque chose qui cloche de bien visible?
(en l'occurence, je cherche à capter l'évènement "fin de mesure" et "arrêt de l'application")