Ajout dynamique à un menu

Bonjour,
Dans mon application, j'ai créé un menu avec le créateur de menu.
Maintenant, j'aimerais manipuler dynamiquement les items et les rubriques de ce menu seulement, pour ce faire, j'ai besoin de connaître le nom système du menu, et là, je bloque!
Quelqu'un pourrait-il m'aider?

Bonsoir,
tu peux préciser un peu ce que tu appelles le "nom système" du menu ? Tu as donné un nom à chacun de tes menus, je ne comprends donc pas trop ton problème.

Pour utiliser une commande comme:
MonMenu.Items.Add("test")
il est nécessaire de connaître le nom du menu (ici "MonMenu") et pouvoir ainsi le manipuler.

Salut
Une façon simple de rajouter des menus (ou sous menu) est de créer un menu indexé en design.
Par la suite dans ton code, au moment opportun, du fait un Load MonMenu
Un exemple tout simple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form_Load() Load MonMenu(MonMenu.Count) MonMenu(MonMenu.Count - 1).Caption = "menu ajouté" End Sub   Private Sub MonMenu_Click(Index As Integer) Select Case Index Case 0: MsgBox "menu créé en design" Case 1: MsgBox "menu créé par code" End Select End Sub

---

Salut Francis,
Je ne suis pas sûr de tout comprendre.
Que faire de mon menu actuel?
Comment créer un menu indexé en design?
Comment ce menu supplémentaire va-t-il interagir avec le menu primitif?
Et surtout, comment se fait-il qu'on ne puisse pas manipuler un menu comme tout autre objet VB6?

Dans l'éditeur VB6, tu as un créateur de menu (Ctrl+E), lors de la création avec cette outils, il y a un champs Index qui permet de créer un groupe de contrôle, par la suite, si tu as mis Index = 0, l'ajout avec la commande Load permet d'en ajouté dynamiquement, à chaque ajout, le nouvel Index et égal à Menu.Count, comme décrit dans le code de ma première intervention.
Avec un Select Case Index, tu dois prévoir autant de Case n que tu permets de création par l'utilisateur final, pour chaque Case, tu gères ce qui devra se passer pour se n menu.

Citation:

---

Envoyé par ProgElecT

Avec un Select Case Index, tu dois prévoir autant de Case n que tu permets de création par l'utilisateur final, pour chaque Case, tu gères ce qui devra se passer pour se n menu.

---

Comme tu es obligé de prévoir le rôle de chaque menu, tu peux les créer tous au moment de l'écriture du programme et tu les fais apparaitre par la propriété "visible" False ou True

Je crois que je comprends. C'est un problème de sémantique. Dans mon esprit, le "Menu" était un ensemble de commandes textuelles, dans le tien (le vôtre!) il ne s'agit que d'un item du menu. J'ai essayé la méthode Load et Index avec le dernier item et ça fonctionne parfaitement. Reste maintenant à savoir comment créer des sous-items et comment intercepter leur sélection par l'utilisateur.

Salut

Citation:

---

Envoyé par DAUDET78

Comme tu es obligé de prévoir le rôle de chaque menu, tu peux les créer tous au moment de l'écriture du programme

---

Tu as tout à fait raison, dans ce cas la propriété Visible et mieux adaptée.

D'ailleurs, un Select Case n'est pas forcement indispensable pour d'autres cas de figure.
Exemple, sur un Form un menu MnCharger Caption = "Charger une image" et un menu MnAfficher Caption = "Afficher l'image" avec son sous menu SmnAfficher Caption = "" indexé à zéro, un CommonDialog.

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 40 41 42 43 44

Option Explicit Dim T As Integer   Private Sub Form_Load() 'rendre le menu primaire d'affichage invisible ici plutôt que depuis le créateur de menu MnAfficher.Visible = False End Sub   Private Sub MnCharger_Click() On Error Resume Next CommonDialog1.CancelError = True CommonDialog1.ShowOpen If Err Then Exit Sub   Me.Picture = LoadPicture(CommonDialog1.FileName) Dim Nindex As Integer If SmnAfficher(0).Caption <> "" Then Nindex = SmnAfficher.Count Load SmnAfficher(Nindex) Else Nindex = 0 MnAfficher.Visible = True End If SmnAfficher(Nindex).Caption = CommonDialog1.FileTitle 'nom (sans le chemin) du fichier à ouvrir SmnAfficher(Nindex).Tag = CommonDialog1.FileName 'chemin et le nom du fichier SmnAfficher(Nindex).Checked = True 'puisque l'on va le dessiner sur le Form, on l'indique au niveau sous menu 'par contre on efface cette indication pour tout les autres sous menu For T = 0 To Nindex - 1 SmnAfficher(T).Checked = False Next T SmnAfficher(Nindex).Visible = True 'on affiche le nouveau sous menu End Sub   Private Sub SmnAfficher_Click(Index As Integer) 'Sous menu de MnAfficher "Afficher l'image" 'on efface l'indication image affiché en cours en effacent toute indication de sélection For T = 0 To SmnAfficher.Count - 1 SmnAfficher(T).Checked = False Next T SmnAfficher(Index).Checked = True 'marque la nouvel sélection   Me.Cls Me.Picture = LoadPicture(SmnAfficher(Index).Tag) End Sub

---