Discussion :

[GAGNON]

Salut à tous

Afin de permettre à l'utilisateur d'ajouter, de supprimer ou d'ouvrir un formulaire basé sur un noeud, j'aimerai pouvoir faire afficher sur un clic droit pointant sur le noeud sélectionné, ces 3 possibilités.

ça fait 2 jours que je tourne en rond sans succès...

est-ce tout simplement possible ?

(Access 2000)

merci

[Tofalu]

Oui c'est possible mais cela va demander une gestion dynamique peut être en t'inspirant de ceci :

http://access.developpez.com/sources...ContextMenuAPI

[GAGNON]

Merci pour le lien,

j'ai recopié ce code et implémenté dans un formulaire de test pour essayer de comprendre un peu ...

Je dois dire que je suis un peu largué et que vais souffrir pour l'adapter à mon treview ...

un peu d'aide serai le bienvenu

[GAGNON]

en fait, je ne comprends pas (entre autre)l'utilisation des constantes:

• Const MF_CHECKED = &H8&
  Const MF_APPEND = &H100&
  Const TPM_LEFTALIGN = &H0&
  Const MF_DISABLED = &H2&
  Const MF_GRAYED = &H1&
  Const MF_SEPARATOR = &H800&
  Const MF_STRING = &H0&
  Const TPM_RETURNCMD = &H100&
  Const TPM_RIGHTBUTTON = &H2&

notament dans la définition des variables:

• TypeMenu1 = MF_GRAYED Or MF_DISABLED
  TypeMenu2 = MF_GRAYED Or MF_DISABLED
  TypeMenu4 = MF_GRAYED Or MF_DISABLED

[Tofalu]

Const MF_CHECKED = &H8&

Définit un menu coché


Const TPM_LEFTALIGN = &H0&

Alignement à gauche

Const MF_DISABLED = &H2&

Menu désactivé

Const MF_GRAYED = &H1&

Menu grisé (compélment à disabled)

Const MF_SEPARATOR = &H800&

Définit un séparateur (une ligne)

Const MF_STRING = &H0&

Définit un menu avec du texte

Les autres constantes ne doivent pas être utiles ici.


Donc dans le code :

Code :

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

1
2
3
4
 
TypeMenu1 = MF_GRAYED Or MF_DISABLED 
TypeMenu2 = MF_GRAYED Or MF_DISABLED 
TypeMenu4 = MF_GRAYED Or MF_DISABLED

On définit 3 types de menu qui seront désactivé et grisé. Tout simplement

Par la suite il suffit de changer la valeur de TypeMenu pour que le menu change d'apparence

[Tofalu]

C'est finalement pas bien compliquer.

Mon TreeView s'appelle Treeview0.

Je crée un menu Visualiser/Supprimer

Dont voici le 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
Private Sub TreeView0_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)
'Traite le cas d'un clic droit
If Button = 2 Then
    'Declaration
    Dim Pt As POINTAPI
    Dim result As Long
    Dim hMenu As Long
    Dim Titre As String
    Titre = "Selection : " & TreeView0.SelectedItem.Text
    hMenu = CreatePopupMenu()
    AppendMenu hMenu, MF_STRING, 0, Titre
    AppendMenu hMenu, MF_SEPARATOR, 1000, ""
    AppendMenu hMenu, MF_STRING, 1, "Visualiser"
    AppendMenu hMenu, MF_STRING, 2, "Supprimer "
    'Récupere l'emplacement de la souris
    GetCursorPos Pt
    'Affiche le menu à l'emplacement de la souris
    'Et récupere la valeur de l'item cliqué
    result = TrackPopupMenuEx(hMenu, _
    TPM_LEFTALIGN Or TPM_RETURNCMD _
    Or TPM_RIGHTBUTTON, Pt.x, Pt.y, Me.HWnd, ByVal 0&)
    'Supprime le menu
    DestroyMenu hMenu
    'Traite le resultat
    Select Case result
        Case 1
        'ici le code pour ouvrir le formulaire pour visuliser un enregsistrement
        Case 2
        'Supprime l'élément
        TreeView0.Nodes.Remove (TreeView0.SelectedItem.Key)
    End Select
End If
End Sub

A toi de coder la visualisation

[GAGNON]

Merci beaucoup ça marche impécable, j'ai toujours du mal à comprendre certaines subtilités, mais ça viendra

je tag ce post, mais j'en ouvre un autre sur le remplissage du treeview

à+