Graphiques
 
- Dégradé
- Animations BitBlt
- Animations Pic
- Contrôle Animation
- Défilement d'image
 
Interface
 
- Barre d'outils
- Barre de progression
- Clignotement
- Interface MDI
- Barre d'état
 
Texte & système
 
- Texte sur image
- Taille variable
- Informations système
 
Fichiers
 
- Grand fichier
- Choix de police
- Dictionnaire Word
- Listes
- Fichiers binaires
 
Souris et touches
 
- Curseur animé
- Touches
 

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.
  1. Ouvrez le programme Ex_91bxx.vbp que vous avez créé à la fiche précédente. Enregistrez-le sous le nom Ex_92xx.vbp.
  2. Activez le composant Microsoft Windows Common Controls 6.0 (Sp4). Celui-ci contient un contrôle STATUSBAR.
  3. 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).
  4. 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.
  5. 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.
  6. 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.
  7. Insérez une nouvelle zone (INDEX = 3) et ne changez que les propriétés ALIGNMENT (SbrRight) et StYLE (SbrTime).
  8. 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.
  9. 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

  1. 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

  1. 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.

 

Création d'aide
 
- À propos
- Astuce du jour
 
Cryptage
 
- Mot de passe
- Cryptage de fichier
 
Base de données
 
- Bibliothèque
 
Winsock
 
- Serveur de chat
- Client de chat 1
- Client de chat 2
 
Jeu d'arcade
 
- Interface
- Programmation 1
- Programmation 2
- Programmation 3
- Programmation 4
 
Navigateur WEB
 
- Interface 1
- Interface 2
- Interface 3
- Interface 4
- Programmation 1
- Programmation 2
- Programmation 3
- Programmation 4
 
© Copyright 2002 - Design : Webmasters-fr.net