Discussion :

[alexkickstand]

Hello tout le monde

j'utilise un treeview dans un formulaire avec 2 boutons :

1 bouton pour ajouter un noeud parent et un autre pour rajouter un noeud enfant

j'aimerais pouvoir intégrer ces actions en faisant un click droit sur le treeview


merci pour de l'aide

Alex

[alexkickstand]

j'ai trouvé mon probleme mais il me reste un détail à corriger voici le code :

j'utilise le modele de : http://warin.developpez.com/access/tutorielcontext1/


dans un module nommé "mduAPI"

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Public Type POINTAPI
    X As Long
    Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

j'appelle un menu nommé "custom" auparavant créer dans access

dans le code de l'objet choisi (ici un treeview)
note : j'ai changé ByVal X As single, ByVal Y As single en :
ByVal X As Long, ByVal Y As Long sinon ca ne fonctionnes pas dans un treeview

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
 
Private Sub TreeView1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
 
Dim pt As POINTAPI
Dim NbPointParPouceX As Long, NbPointParPouceY As Long
 
'récupère la position de la souris
GetCursorPos pt
 
'Récupère le nombre de pixel par pouce
NbPointParPouceX = GetDeviceCaps(GetDC(0), 88)
NbPointParPouceY = GetDeviceCaps(GetDC(0), 90)
 
'Affiche la barre de menu à l'endroit souhaité
 
' si bouton droit clic alors on affiche le menu contextuel
If Button = acRightButton Then
 
' affiche le 
CommandBars("custom").ShowPopup pt.X - (X / (1440 / NbPointParPouceX)), pt.Y + (TreeView1.Height - Y) / (1440 / NbPointParPouceY)
 
End If
 
 
End Sub

voila ca fonctionne sauf que mon menu s'affiche en bas de mon treeview (le treeview est sur toute la hauteur de mon formulaire) j'aurais souhaité qu'il m'affiche le menu suivant le noeud de mon treeview sélectionnée

merci pour de l'aide

ps : ci-joint le fichier access au format 2003