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,