Récupération d'évenement en VB Résolu/Fermé

Question

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 :


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?

Merci !



Configuration: Windows XP / Firefox 3.6.6

lermite222 · Answer

Bonjour,
Beh oui, tu déclare tes variables dans le Form_Load.. ce qui fait qu'elle ne sont aps visible ailleur.
bien que je ne sois pas familiarisé avec le .Net je verrais plutôt..
dans la partie générale du module..
Dim WithEvents gCanApp As CANalyzer.Application
Dim WithEvents gCanMeasurement As CANalyzer.Measurement
et dans form load..
Set gCanApp = New CANalyzer.Application
set gCanMeasurement = New CANalyzer.Measurement

A+

lermite222 · Answer

Tu peu tester si l'objet est déjà "Set" avec (comme c'est un objet c'est un peu Heuuu..)
    If Not CANalyzer.Measurement is nothing Then
       'C'est initialiser
    else
        'C'est pas initialiser
    End if

Possible qu'il faudra un On Error mais je ne pense pas vu que tu le déclarre en haut du module.
A+

abdo · Answer

j'ai décidé de créer un interface graphique en utilisant uniquement Visual Basic.comment je peux communiquer Visual Basic avec le CANalyzer  pour appeler les fonctions CAPL déjà mis en oeuvre dans CANalyzer, la fonction CAPL sont mis en oeuvre pour contrôler le trafic sur 2  de bus CAN  Je veux une indication qui peut m'aider à démarrer mon projet (docs ou GUI) 
jevous remercie pour votre aide

Récupération d'évenement en VB

3 réponses

Discussions similaires