Discussion :

[vandrie]

Bonjour,

J'avais déjà posté quelque chose sur ce point et j'avais trouvé. enfin je croyais car je n'arrive plus à faire fonctionner un clic droit sur un noeud sélectionné d'un treeview. Ca fonctionne très bien quand je clique ailleurs que sur un noeud mais pas sur un noeud !
Pire encore, la routine événementielle n'est même pas visitée par le code quand je fais un clic droit sur un noeud du treeview, curieux !

Voici mon code :

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
Private Sub Tw_Mousedown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
 
'Gérer le click droit de la souris sur un noeud
'Click droit seul : on ouvre un menu contextuel de type utilisateur
'Click droit + Shift : on ouvre un menu contextuel de type configurateur
 
    Dim nodCurrent As Node
    Dim Vloc As New ObjVariables
 
    'Si click droit sans SHIFT sur un noeud déclenche le menu Utilisateur
    DoEvents
    If Button = vbKeyRButton And Shift = 0 Then
        Set nodCurrent = Tw.HitTest(X, Y)
        Set Tw.DropHighlight = Tw.HitTest(X, Y)
        Select Case Vloc.Item("VpTwName")
            Case "INFRA" 'Le treeview actif est l'infrastructure générale
                'Vérifier qu'un Node est effectivement pointé
                If Not (nodCurrent Is Nothing) Then
                    'Si l'objet pointé est un équipement
                    If Vloc.Item("VpObjStrType") = "E" Then
                        Call Contextuel("TwEqpUser", Vloc.Item("VpUserPrivilege"), "-")
                    End If
                Else
                    'Click droit dans le treeview sans noeud défini
                    Call Contextuel("TwEqpGen", Vloc.Item("VpUserPrivilege"), "-")
                End If
        End Select
    End If
    'Si click droit avec SHIFT sur un noeud déclenche le menu configurateur
    If Button = vbKeyRButton And Shift = 1 Then
        Set nodCurrent = Tw.HitTest(X, Y)
        Select Case Vloc.Item("VpTwName")
            Case "INFRA" 'Le treeview actif est l'infrastructure générale
            'Vérifier qu'un Node est effectivement pointé
            If Not (nodCurrent Is Nothing) Then
                Call Contextuel("TwEqpConf", Vloc.Item("VpUserPrivilege"), "-")
            End If
        End Select
    End If
 
'    Set Tw.DropHighlight = Nothing
    Set nodCurrent = Nothing
    Set Vloc = Nothing
 
End Sub

Si quelqu'un a une idée ...
Bonne Année à tous et bon code.

[micniv]

Bonjour
plus simplement, tu peux utiliser l'evt node_click puis utiliser ton cosde

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
Private Sub TV1_Click()
'   Ajout d'un menu contextuel
    ....
    Dim i As Integer
    Dim oNode As Object, strNodeKey As String
    Dim lngNodekey As Long, strParentNodekey As String
 
    'On Error GoTo Err_0
 
    Set oNode = Me.TV1.SelectedItem
    If Not oNode Is Nothing Then
 
        i = oNode.Index
        strNodeKey = oNode.Key
       ...
 
      End if
 
     End sub