Le premier site francophone dédié au développement Pocket PC

Comment utiliser le contrôle MenuBar ? (Page 2/2)

Retour à la page 1

Les boutons de commande

Maintenant que nous savons créer des menus composés de sous-menu, nous allons ajouter des bouttons de commande à notre MenuBar.

Les boutons de MenuBar ressemblent aux boutons de la toolbar des programmes office 97. Il peuvent posséder un libellé (caption), une représentation graphique (image), il peuvent fonctionner comme des bouttons, ou des cases à cocher, il peut y en avoir qui servent seulement de séparateur. Le comportement du bouton se règle avec ses propriétés dont les plus importantes sont caption, image, et style.

Le contrôle MenuBar possède en standard 15 icônes que vous pouvez utiliser sans utiliser des images externes (l'utilisation des images externes obliqe à installer en plus du programme des fichiers image).

Le tableau suivant fait état de toutes les images incluses en standard :

	01 - Couper 02 - Coller 03 - Copier 04 - Défaire (undo) 05 - Refaire (redo) 06 - Détruire 07 - Nouveau
	08- Ouvrir 09 - Enregistrer 10 - Voir 11 - Propriétés 12 - Aide 13 - Zoom 14 - Retour zoom (toggle zoom) 15 - Imprimer

Nous allons maintenant taper le code permettant d'ajouter à notre menu de tout à l'heure 2 boutons, 1 pour imprimer, et l'autre pour zoomer.

Nous allons ajouter au code tapé plus haut :

Dim wButton As MenuBarButton

'On ajoute le bouton imprimer
Set wButton = MenuBar1.Controls.AddButton("$IMPRIMER")
wButton.Image = 15

'On ajoute le bouton zoom
Set wButton = MenuBar1.Controls.AddButton("$ZOOM")
wButton.Image = 13

Si nous exécutons le tout, celà donne :

Il ne nous reste plus qu'à répondre à l'activation de ces boutons. Comme pour les menus, le contrôle MenuBar active un événement lorsque l'utilisateur clique sur un bouton de commande. Cet événement est 'ButtonClick' qui a comme paramètre le bouton cliqué. Il suffit de tester la propriété 'Key' du bouton cliqué pour savoir quoi faire :

Private Sub MenuBar1_ButtonClick(ByVal Button As MenuBarLib.MenuBarButton)

Select Case Button.Key

Case "$ZOOM"
Rem Placer ici le code pour le bouton zoom

Case "$IMPRIMER"
Rem Placer ici le code pour le bouton imprimer

End Select

End Sub

Pour ajouter des boutons avec des images externes, il faut utiliser un autre contrôle qui permet de créer une collection d'images, une ImageList. Comme pour le contrôle MenuBar, ajoutez le contrôle ImageList à la boite à outils eVB et placer le dans la fenêtre où se trouve le MenuBar concerné.

Vous devez par programme charger le contrôle ImageList avec les images (16 ou 256 couleurs) que vous voulez utiliser. Ces images doivent faire 16x16 pixels si vous voulez les utiliser avec les bouton du MenuBar. Pour notre exemple, nous partons du principe que les images se trouvent dans le répertoire de l'application (App.Path)

Rem On indique la taille des images que l'on va charger
ImageList1.ImageWidth = 16
ImageList1.ImageHeight = 16

Rem On charge les images
Call ImageList1.Add(App.Path & "\precedent.bmp")
Call ImageList1.Add(App.Path & "\suivant.bmp")

Rem On indique au MenuBar que l'on utilise une ImageList externe
MenuBar1.ImageList = ImageList1.hImageList

Si on indique que la propriété image d'un bouton MenuBar est égale à 1, c'est le fichier precedent.bmp qui sera utilisé, et plus l'image standard n°1 'Couper'.

Et la propriété 'NewButton' que nous avons placée à False tout à l'heure ?

Si cette propriété est à True, un bouton 'Nouv' est automatiquement créé à la première place du MenuBar. Si ce bouton est cliqué, l'événement 'NewClick' est généré, à vous de réagir en conséquence par rapport à votre application.

Voilà, vous savez maintenant créer et gérer une barre de menu.

Stéphane Sibué