Menu Dynamique

Version imprimable

09/05/2005, 13h53
GrosQuicK

Menu Dynamique

Bonjour,

je me creuse la tête sur un problème :oops:

Alors, j'aimerai, de façon dynamique, créer un menu.
J'ai 3 tables :
[MATERIEL_GROUPE]
MGR_CODE
MGR_LIBELLE

[MATERIEL_TYPE]
MTY_CODE
MTY_MGR_CODE
MTY_LIBELLE

[MATERIEL]
MAT_CODE
MAT_MTY_CODE
MAT_LIBELLE

Ce que je souhaiterai, c'est afficher dans un sous-menu existant : Affichage --> Affichage Matériel la liste des groupes de matériels, avec pour chaque groupe, les types de matériels, et pour chaque type, les matériels correspondants.
Vu que ces 3 tables sont entièrement paramétrables, je ne sais pas combien il y a de groupes, ni de types, ni de matériels.
Il n'est donc pas possible de créer déjà des menus et d'en rajouter avec LOAD

Je pensais aux APIs.
Cependant, là je galère parce que pour rajouter un menu dans 'Affichage', ca va, mais pour en rajouter dans 'Affichage --> Affichage matériels', là ça se complique. Je n'y arrive pas du tout.
Donc si quelqu'un est à l'aise avec GetSubMenu , AppendMenu
, et les autres, je suis preneur :)
09/05/2005, 14h27
GrosQuicK

c'est en VB, mais tu peux toujours me montrer en VBA pour avoir une idée...
merci...
09/05/2005, 14h59
GrosQuicK

Ah oui, alors effectivement, ca ne va pas marcher pour moi ca ;)
Merci quand même.
Ma solution est plus dans les APIs mais je ne vois pas comment créer un sous-menu d'un sous-menu :?

Code:

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
Private Declare Function GetMenu Lib "user32.dll" ( _ 
     ByVal hwnd As Long) As Long 
 
Private Declare Function CreatePopupMenu Lib "user32.dll" () As Long 
 
Private Declare Function AppendMenu Lib "user32.dll" Alias "AppendMenuA" ( _ 
     ByVal hMenu As Long, _ 
     ByVal wFlags As Long, _ 
     ByVal wIDNewItem As Long, _ 
     ByVal lpNewItem As Any) As Long 
 
Private Declare Function InsertMenu Lib "user32.dll" Alias "InsertMenuA" ( _ 
     ByVal hMenu As Long, _ 
     ByVal nPosition As Long, _ 
     ByVal wFlags As Long, _ 
     ByVal wIDNewItem As Long, _ 
     ByVal lpNewItem As Any) As Long 
 
Private Const MF_BYPOSITION As Long = &H400& 
Private Const MF_POPUP As Long = &H10& 
Private Const MF_STRING As Long = &H0& 
 
Private Sub MDIForm_Load() 
 
    Dim SubMenu As Long 
    Dim IdMenu As Long 
 
    IdMenu = GetMenu(Me.hwnd) 
 
    SubMenu = CreatePopupMenu 
 
    AppendMenu SubMenu, MF_STRING, 0, "Element 1" 
    AppendMenu SubMenu, MF_STRING, 1, "Element 2" 
    AppendMenu SubMenu, MF_STRING, 2, "Element 3" 
    AppendMenu SubMenu, MF_STRING, 3, "Element 4" 
 
    InsertMenu IdMenu, 0, MF_BYPOSITION Or MF_POPUP, SubMenu, "Menu 1" 
 
End Sub

Reste à savoir comment réagir sur le clic de ces nouveaux menus...

Citation:

Envoyé par HPJ

Code:

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
Private Declare Function GetMenu Lib "user32.dll" ( _ 
     ByVal hwnd As Long) As Long 
 
Private Declare Function CreatePopupMenu Lib "user32.dll" () As Long 
 
Private Declare Function AppendMenu Lib "user32.dll" Alias "AppendMenuA" ( _ 
     ByVal hMenu As Long, _ 
     ByVal wFlags As Long, _ 
     ByVal wIDNewItem As Long, _ 
     ByVal lpNewItem As Any) As Long 
 
Private Declare Function InsertMenu Lib "user32.dll" Alias "InsertMenuA" ( _ 
     ByVal hMenu As Long, _ 
     ByVal nPosition As Long, _ 
     ByVal wFlags As Long, _ 
     ByVal wIDNewItem As Long, _ 
     ByVal lpNewItem As Any) As Long 
 
Private Const MF_BYPOSITION As Long = &H400& 
Private Const MF_POPUP As Long = &H10& 
Private Const MF_STRING As Long = &H0& 
 
Private Sub MDIForm_Load() 
 
    Dim SubMenu As Long 
    Dim IdMenu As Long 
 
    IdMenu = GetMenu(Me.hwnd) 
 
    SubMenu = CreatePopupMenu 
 
    AppendMenu SubMenu, MF_STRING, 0, "Element 1" 
    AppendMenu SubMenu, MF_STRING, 1, "Element 2" 
    AppendMenu SubMenu, MF_STRING, 2, "Element 3" 
    AppendMenu SubMenu, MF_STRING, 3, "Element 4" 
 
    InsertMenu IdMenu, 0, MF_BYPOSITION Or MF_POPUP, SubMenu, "Menu 1" 
 
End Sub

Reste à savoir comment réagir sur le clic de ces nouveaux menus...

Merci HPJ,
La question que je me pose, c'est comment ajouter un sous-menu à Element 1 par exemple dans ton exemple ? et un sous-menu à ce nouveau sous-menu, etc...

09/05/2005, 17h08
HPJ

Je ne sais pas... ce code n'est pas de moi.
Mais de toute façon c'est inutile de chercher tantqu'on ne peut pas exécuter du code sur le clic des menus créés...
09/05/2005, 17h26
GrosQuicK

C'est sûr, et je n'ai pas trouvé comment faire, ou si c'est tout simplement faisable... :?
18/07/2005, 09h25
ouskel'n'or

Tu n'as pas l'équivalent de

Code:

.OnAction = "Ta commande"

en VB ?

dans

Code:

AppendMenu SubMenu, MF_STRING, 3, "Element 4"

à quoi correspond "Element 4" ?

A+
18/07/2005, 14h20
sozie9372
Salut !
Pour ce qui est de l'appel des actions associées aux menus, tu peux utiliser la fonction CallByName. Par exemple si ton item de menu s'appelle "Additionner", il te faudra une méthode de classe "Additionner" que tu pourra appeler par son nom :
Code:

1 2 3 4 Private Sub itGenerate_Click(Index As Integer) CallByName maClasse, itGenerate(Index).Caption, VbMethod End Sub
Bon courage
+++
Ju