|
|
|
Création d'une barre d'état
|
La plupart des logiciels que l'on
achète comprennent une barre d'état dans laquelle on affiche
divers renseignements utiles à l'utilisateur. VisualBasic
vous permet d'ajoute cette élément à vos programmes comme
vous allez le constater dans l'exercice qui suit.
- Ouvrez le programme Ex_91bxx.vbp que vous avez
créé à la fiche précédente. Enregistrez-le sous
le nom Ex_92xx.vbp.
- Activez le composant Microsoft Windows Common
Controls 6.0 (Sp4). Celui-ci contient un contrôle STATUSBAR.
- Assurez-vous que MDIFeuille1 est bien
sélectionnée et dessinez un contrôle STATUSBAR
dans le bas de votre feuille. Nommez le BE_1 (NAME).
- Cliquez sur la barre d'état avec le bouton droit de la
souris et sélectionnez l'option PROPRIÉTÉS dans
le menu contextuel. Activez l'onglet 2, ZONES.
- Assurez-vous que l'INDEX est 1, l'ALIGNMENT
0-SbrLeft, le STYLE 1-SbrCaps (indique si la touche
des majuscules est enfoncée), BEVEL 1-SbrInset et AUTOSIZE
0-SbrNoAutoSize. Réglez la Largeur à 9000.
- Cliquez ensuite sur Insérer une zone. L'INDEX
indique 2. Laissez toutes les caractéristiques par
défaut sauf l'alignement que vous réglez à SbrCenter et
le STYLE à SbrDate.
- Insérez une nouvelle zone (INDEX = 3) et ne changez que
les propriétés ALIGNMENT (SbrRight) et StYLE
(SbrTime).
- Enregistrez à nouveau votre programme, puis faites-le
exécuter. La première case contient Maj (grisé si la
touche n'est pas activée), la seconde, la date du jour et
la troisième, l'heure.
- Sélectionnez ensuite la procédure Mn_Première
et transformez-la de la façon suivante.
Private Sub Mn_première_Click()
F_Première.Show 'Affichage de la fenêtre
'Changement du style
de la barre d'état pour afficher du texte.
BE_1.Style = sbrSimple
BE_1.SimpleText = "Vous avez cliqué sur le
sous-menu Première"
End Sub
- Testez votre programme. Remarquez
que lorsque vous sélectionnez le menu Première, le
message prévu s'affiche. Cependant, si vous refermez la
fenêtre, l'inscription reste présente. Pour y remédier,
il faut ajouter la procédure suivante dans la feuille
F_Première.
Private Sub Form_Unload(Cancel As Integer)
MDIFeuille1.BE_1.Style = sbrNormal
'Retour du style à Normal
End Sub
- Enregistrez une dernière fois
cette version du programme.
Application:
- Poursuivez l'exercice
précédent en ajoutant le code nécessaire pour chacune
des 5 autres feuilles filles: chacune doit afficher un
message particulier qui doit disparaître quand on
la referme.
Sauvegardez votre travail sous le nom Ex_92bxx.vbp.
|
|
|
Jeu d'arcade
|
| |
|
- |
|
- 1 |
|
- 2 |
|
- 3 |
|
- 4 |
| |
|
Navigateur WEB
|
| |
|
- |
|
- |
|
- |
|
- |
|
- 1 |
|
- 2 |
|
- 3 |
|
- 4 |
| |
|