VBA, Access et treeview

Version imprimable

20/04/2015, 16h44
cobaye13

VBA, Access et treeview

Bonjour,
Je développe une petite application access et j'utilise un treeview (MSComctlLib.TreeCtrl.2).

Ce treeview possède quatre niveaux hiérarchiques, pas de souci pour le remplir et pas de souci non plus pour déclencher un traitement quand j'arrive au dernier noeud enfant.
Pour naviguer dans ce treeview j'utilise aussi bien click droit que click gauche.
Je souhaiterai utiliser le click gauche pour naviguer dans le treeview et quand je suis sur un noeud, notamment les noeuds parents, je souhaiterai avec un click droit (ou un double click) déclencher un traitement propre au niveau hiérarchique où je me trouve.

Est ce que ça parle à quelqu'un ? Je suis preneur de tout bon tuto sur le sujet et/ou de toute piste.
Merci d'avance
20/04/2015, 18h54
kiki29

Salut, via une recherche ?
20/04/2015, 19h34
cobaye13

Effectivement,
j'avais déjà fait une recherche et lu des tuto sur le sujet, mais je n'ai pas trouvé mon bonheur.

il y a des sub treview_click, sub treeview_nodecheck est ce qu'il y a des sub du style treview_rightclick treview-leftclick ?

Merci

Salut, à l'instar de Comment cocher automatiquement tous noeuds enfants d'un TreeView, les créer.

qqch dans le genre :

Code:

1
2
3
4
5
6
Private Sub TreeView1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
    ' clic Droit
    If Button = 2 Then
       ' procédure appelée par le clic Droit
    End If
End Sub

21/04/2015, 08h56
cobaye13

Bonjour,
Un grand merci pour ces éléments, je vais tester cela et je reviens faire un compte rendu
A quoi sert ceci ?
ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS
21/04/2015, 10h21
kiki29

Salut, à priori x renvoie la position horizontale dans le treeview et y renvoie la position verticale.
21/04/2015, 17h12
cobaye13
J'ai testé mais j'ai des soucis,

Initialement j'avais une sub
Code:

1 2 3 Private Sub tvsb_NodeClick (byval Node as object) ' traitements end sub
j'ai gardé dans un premier temps les traitements pour vérifier que ça marchait aussi bien avec mousedown qu'avec nodeclick

j'ai donc

Code:

Private Sub tsvb_MouseDown (byval Button As Integer, Byval Shift As Integer, Byval x As Long, Byval y As Long)

Et évidemment ça bloque dans les traitements car j'ai des choses du genre

Code:

strObjectType = Split(Node.Key, ";") (1)

et Node n'existe plus
Une idée ?