Gambas France BETA


Pas de compte ? Incription

Création de Menus :

Les menus peuvent être créés grâce à l'outil intégré de l'IDE :



Éditeur de Menu :





Les éléments que vous voyez dans l'éditeur s'affichent ainsi, dans leur formulaire, remarquez le résultat de l'indentation dans l'affichage de ceux-ci.

image suivante :





Où l'on peut voir qu'il manque le menu6, le menu7 et le menu8 dans notre formulaire, définis pourtant, dans l'éditeur de menu
car ceux-ci constituent un PopupMenu (menu contextuel) visible et accessible uniquement quand on clique avec le bouton de droite de la souris ou qu'on enfonce le bouton menu du clavier.
En rendant, dans l'éditeur de menu, le menu6 invisible celui-ci ne s'affichera pas dans le menu principal du formulaire et sera disponible et attribuable à n'importe quel autre contrôle (grâce à ses propriétés) appartenant au formulaire.

Ils peuvent, aussi être créé directement dans le code :
Documentation sur les Menus

Un exemple de code direct extrait de CherchMail téléchargeable depuis la forge de Gambas :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
PUBLIC SUB grgrvw_menu() 'menu contextuel sur liste de mails d'un compte

DIM hMenus AS Menu ' 'menu lui même
DIM hMenu AS Menu 'menuItem

hMenus = NEW Menu(FMain)
hMenu = NEW Menu(hMenus) AS "hMenu"
hMenu.Text = ("Ouvrir mail")
hMenu.Picture = Picture["./icônes/mail-new.png"
hMenu = NEW Menu(hMenus) AS "hMenu1"
hMenu.Text = ("Supprimer sélection"
hMenu.Picture = Picture["./icônes/effacer.png"
hMenu = NEW Menu(hMenus) AS "hMenu2"
hMenu.Text = ("Répondre à l'auteur"
hMenu.Picture = Picture["./icônes/repondre.png"
Module1.son(Module1.shade)
hMenus.Popup()

CATCH
Message.Title = ("Horreur!")
Message(gb.CrLf & ("Une erreur : ") & Error.Text & gb.CrLf & "Code : " & Error.Code & gb.CrLf & "grgrvw_menu")

END

Et les actions qui vont avec :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PUBLIC SUB hMenu_Click() 'menu 0uvrirMail

Module1.son(Module1.shade)
mnuOuvrirMail_Click()

END

PUBLIC SUB hMenu1_Click() 'mnuSupprMail

mnuSupprMail_Click()

END

PUBLIC SUB hMenu2_Click() 'mnuReponseMail

mnuReponseMail_Click()

END


====================

Navigation :



<-- Liens du Wiki : <--
<-- Accueil du WIKI : <--
<-- Créer une Interface : <--

====================

Documentation :



==================