Discussion :

[ekydeta]

Bonjour,
J'ai 3 fonctions :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
    Private Shared Sub PickTargets()
        'Begin UndoStep
        Project.UndoContext.BeginUndoStep("MultipleTarget")
        Try
            'Initialize GraphicPicker
           GraphicPicker.GraphicPick += New GraphicPickEventHandler(GraphicPicker_GraphicPick) ' ????
 Catch ex As Exception
            Project.UndoContext.CancelUndoStep(CancelUndoStepType.Rollback)
            Logger.AddMessage(New LogMessage(ex.Message.ToString()))
        Finally
            'End UndoStep
 
            Project.UndoContext.EndUndoStep()
        End Try
 
    End Sub
 
    Private Shared Sub GraphicPicker_GraphicPick(sender As Object, e As GraphicPickEventArgs)
        'Begin UndoStep
        Dim station As Station = TryCast(Project.ActiveProject, Station)
        Dim stepName As String = station.ActiveTask.GetValidRapidName("Target", "_", 10)
        Project.UndoContext.BeginUndoStep(stepName)
 
        Try
            ShowTarget(e.PickedPosition)
        Catch exception As Exception
            Project.UndoContext.CancelUndoStep(CancelUndoStepType.Rollback)
            Logger.AddMessage(New LogMessage(exception.Message.ToString()))
        Finally
            'End UndoStep
            Project.UndoContext.EndUndoStep()
        End Try
    End Sub
 
    Private Shared Sub ShowTarget(position As Vector3)
        Try
            'get the active station
            Dim station As Station = TryCast(Project.ActiveProject, Station)
 
            'create robtarget
            Dim robTarget As New RsRobTarget()
            robTarget.Name = station.ActiveTask.GetValidRapidName("Target", "_", 10)
 
            'translation
            robTarget.Frame.Translation = position
 
            'add robtargets to datadeclaration
            station.ActiveTask.DataDeclarations.Add(robTarget)
 
            'create target
            Dim target As New RsTarget(station.ActiveTask.ActiveWorkObject, robTarget)
            target.Name = robTarget.Name
            target.Attributes.Add(target.Name, True)
 
            'add targets to active task
            station.ActiveTask.Targets.Add(target)
        Catch exception As Exception
            Logger.AddMessage(New LogMessage(exception.Message.ToString()))
        End Try
    End Sub

Visual Studio m'indique 2 erreur à cette ligne : GraphicPicker.GraphicPick += New GraphicPickEventHandler(GraphicPicker_GraphicPick) (ligne 6)

Erreur 1 'Public Shared Event GraphicPick(sender As Object, e As ABB.Robotics.RobotStudio.Stations.Forms.GraphicPickEventArgs)' est un événement. Il ne peut donc pas être appelé directement. Utilisez une instruction 'RaiseEvent' pour déclencher un événement.

Erreur 2 Le délégué 'ABB.Robotics.RobotStudio.Stations.Forms.GraphicPickEventHandler' requiert une expression 'AddressOf' ou une expression lambda en tant qu'unique argument de son constructeur.

Si quelqu'un pourrait m'éclaircir le problème.

Merci d'avance,

[rv26t]

Bonjour,

Ce serait plutôt dans le style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AddHandler GraphicPicker.GraphicPick, AddressOf GraphicPicker_GraphicPick

pour attribuer l'évènement à la méthode
Sinon si le but est de le déclencher, il faut utiliser RaiseEvent

[ekydeta]

Merci de ta réponse,
Je vais tester de suite

Edit : Ca fonctionne, Merci RV, simple et efficace !

[Sehnsucht]

Si je peux me permettre une remarque un peu hors-sujet ; tu devrais éviter d'éditer ta réponse pour dire que ça fonctionne.
Je m'explique, lorsque tu réponds les gens qui suivent le sujet (soit parce qu'il y ont répondu soit parce qu'ils s'y sont abonnés) reçoivent une notification mais pas leur de l'édition d'un post ; par conséquent ils reçoivent une notification d'un message "peu utile" (typiquement "je vais tester") mais ne sont pas informés lorsque tu édites pour dire que ça fonctionne (ou pire que ça ne fonctionne pas) et donc risquent de passer à côté s'ils ne reviennent pas d'eux-mêmes vérifier (et quand on fait et suit pas mal de choses ça arrive vite).
Moralité, autant ne pas poster le message pour dire que tu vas tester (on se doute bien qu'à un moment tu vas tenter ce qui t'a été proposé) et poste juste le résultat de ce test (qu'il soit un succès ou un échec [avec les infos utiles supplémentaires dans ce cas ])

[ekydeta]

Si je peux me permettre une remarque un peu hors-sujet ; tu devrais éviter d'éditer ta réponse pour dire que ça fonctionne.
Je m'explique, lorsque tu réponds les gens qui suivent le sujet (soit parce qu'il y ont répondu soit parce qu'ils s'y sont abonnés) reçoivent une notification mais pas leur de l'édition d'un post ; par conséquent ils reçoivent une notification d'un message "peu utile" (typiquement "je vais tester") mais ne sont pas informés lorsque tu édites pour dire que ça fonctionne (ou pire que ça ne fonctionne pas) et donc risquent de passer à côté s'ils ne reviennent pas d'eux-mêmes vérifier (et quand on fait et suit pas mal de choses ça arrive vite).
Moralité, autant ne pas poster le message pour dire que tu vas tester (on se doute bien qu'à un moment tu vas tenter ce qui t'a été proposé) et poste juste le résultat de ce test (qu'il soit un succès ou un échec [avec les infos utiles supplémentaires dans ce cas ])

Je prends ta remarque en considération. Merci du conseil.