1. Créez un autre projet que vous nommez Ex_6xx.vbp. Nommez la feuille selon les règles. Inscrivez Barre d'outils pour la propriété CAPTION de la feuille et Outils pour la propriété NAME.
2. Enfoncez les touches CTRL + T et cochez Microsoft Windows Common Controls 6.0. Cliquez sur le bouton OK. 
3. Repérez le contrôle Barre d'outils (ToolBar) et dessinez-en une occurrence sur la feuille. Réglez sa propriété NAME à OU_Un.
4. Trouvez ensuite le contrôle Liste d'images (ImageList) et glissez en une copie sur la feuille. Réglez sa propriété NAME à IL_Outils. Gardez le contrôle sélectionné.
5. Cliquez deux fois sur Personnalisé dans la fenêtre des propriétés. La boîte de dialogue ci-dessous s'affiche. Cochez 32x32 et UseMaskColor.

6. Cliquez sur l'onglet Images. L'aspect de la boîte de dialogue change et devient semblable à ce que vous pouvez voir ci-dessous.

7. Cliquez sur le bouton Insérer une image, sélectionnez l'image Degrade.gif téléchargée au début de cet exercice. Répétez les mêmes opérations pour les images Planetes.gif, Bebe.gif, Lampe.gif et Television.gif. Une fois l'opération terminée, vous devriez voir les 5 images dans la fenêtre Images. Cliquez sur le bouton Appliquer.

8. Cliquez sur le troisième onglet: Couleur. l'apparence de la boîte de dialogue se transforme à nouveau comme illustré ci-dessous. Assurez-vous que Apparence des boutons est l'option choisie dans Palette de couleurs et cliquez sur OK.

9. Sélectionnez maintenant le contrôle OU_Un (ToolBar). Cliquez deux fois sur Personnalisé dans la fenêtre des propriétés. La boîte de dialogue ci-dessous s'affiche.

10. Sélectionnez IL_Outils dans la liste HotImageList. Cliquez ensuite sur l'onglet Boutons pour obtenir la boîte de dialogue suivante.

11. Cliquez sur Insérer un bouton. Inscrivez Degrade dans la case Key (servira de référence dans le code)  et Fondu dans la case ToolTipText (s'affichera lorsque le pointeur restera au-dessus du bouton. Indiquez 1 dans la case Image (fait référence à l'image 1 dans IL_OUtils).

12. Effectuez quatre fois les mêmes opérations en utilisant les renseignements suivants: 

    • Key = Planetes, ToolTipText = Animation BitBlt, Image = 2

    • Key = Bebe, ToolTipText = Animation Pic, Image = 3

    • Key = Lampe, ToolTipText = Contrôle, Image = 4

    • Key = Defile, ToolTipText = Défilement, Image = 5

13. Cliquez sur le bouton OK pour refermer la boîte de dialogue.

14. Vous allez maintenant transformer votre barre d'outils de sorte qu'elle permette de lancer les 5 premiers exercices de base que vous avez réalisés. Pour ce faire, il vous faut d'abord convertir ces 5 programmes en exécutables. Voici comment procéder:

    • Ouvrez Ex_1xx.vbp.

    • Sélectionnez le menu Fichier, option Créer ex_1xx.exe.

    • Assurez-vous de bien enregistrer ce fichier dans le même répertoire que celui où se trouve Ex_6.

15. Répétez les mêmes opérations pour les quatre autres programmes.

16. Double-cliquez sur la barre d'outils OU_Un et ajoutez le code suivant.

Private Sub OU_Un_ButtonClick(ByVal Button As MSComctlLib.Button)
   Dim V_Fichier, V_Nom_fichier As String  'Variables servant à identifier le fichier
  V_ Fichier = App.Path  'Initialisation de V_Fichier qui contient le chemin à suivre
   V_Nom_fichier = ""  'Réinitialisation de V_Nom_fichier vide
   Select Case Button.Key   'Boucle de vérification
      Case Is = "Degrade"   'Premier bouton en fonction de la clé (Key)
         V_Nom_fichier = V_Fichier & "\Ex_1yl.exe"   'Identification du premier --> programme
      Case Is = "Planetes"   'Second bouton en fonction de la clé (Key)
         V_Nom_fichier = V_Fichier & "\Ex_2yl.exe"
      Case Is = "Bebe"
        V_Nom_fichier = V_Fichier & "\Ex_3yl.exe"
      Case Is = "Lampe"
        V_Nom_fichier = V_Fichier & "\Ex_4yl.exe"
      Case Is = "Defile"
       V_Nom_fichier = V_Fichier & "\Ex_5yl.exe"
   End Select
   Shell (V_Nom_fichier)   'Lancement du programme
End Sub

17. Enregistrez votre programme et testez-le. Si vous ne voyez pas les fichiers, jetez un coup d'oeil dans la barre en bas de l'écran. Il s'est probablement ouvert en mode réduit.

Application:

• Complétez la barre d'outils en lui ajoutant les boutons nécessaires pour l'ouverture des programmes complémentaires que vous avez réalisés : Ex_1bxx, Ex_1cxx, Ex_2bxx, Ex_2cxx, Ex_3bxx, Ex_4bxx, Ex_5bxx. Choisissez vous-même les images (Graphitoo), les clés et le texte des bulles d'information. Enregistrez cette version sous le nom Ex_6bxx.