Vous avez sûrement déjà utilisés un
logiciel qui vous offre une astuce différente à chaque fois
que vous ouvrez le programme. C'est une façon d'offrir de
l'aide à l'usager que Visual Basic 6 vous permet de réaliser
facilement puisqu'il existe un modèle à cet effet.
- Créez un nouveau projet que vous enregistrez sous le
nom Ex_20xx.vbp. Ce projet ne comprend qu'une
feuille nommée (NAME) F_Astuce et dont le titre (CAPTION)
est Expérimentation de l'astuce du jour.
- Choisissez dans le menu Projet l'option Ajouter une
feuille. Choisissez le modèle Astuce du jour
dans la boîte de dialogue qui s'ouvre. Elle est semblable
à celle ci-dessous.
-
Laissez le nom par défaut (FrmTip)
pour cette feuille (afin de ne pas avoir à changer le
code pré-programmé).
-
Ajoutez ensuite un module de type .bas
qui conserve le nom Module1.bas. Créez dans ce
module la procédure Main contenant le code
suivant.
Public Sub Main()
F_Astuce.Show
'Affichage de la feuille du programme
On Error Resume Next
'Piéger l'erreur au cas ou la feuille se décharge
FrmTip.Show
'Affichage de l'astuce du jour
End Sub
-
Sélectionnez le menu Projet,
option Propriétés de [nom du projet]. Choisissez Sub
Main dans la liste déroulante Objet de démarrage.
-
Ouvrez la fenêtre de code de la feuille
FrmTip et repérez la fonction LoadTips.
Ajoutez-lui la ligne de code ci-dessous, juste après InFile
= FreeFile.
sFile = Replace(sFile, "\\", "\")
'S'assurer qu'il n'y a pas deux barres obliques de suite, ce
qui provoque une erreur
-
Pour éviter qu'on empêche le chargement
de la fenêtre d'astuce, sélectionnez le bouton à cocher
Afficher les astuces au démarrage et réglez sa
propriété VISIBLE à False.
-
À l'aide du
bloc-notes, créez un fichier texte que vous nommez TIPOFDAY.TXT.
Inscrivez les trois astuces suivantes en pressant ENTRÉE
à la fin de chaque phrase seulement.
Voici la première
astuce: les explications ne sont pas chargées dans l'ordre
mais au hasard .
Voici la seconde astuce: on peut désactiver les astuces en
cochant le bouton à cet effet.
Voici la troisième astuce: l'ajout d'un menu pourrait
permettre de réactiver les astuces si elles ont été
désactivées.
-
Enregistrez votre
programme et testez-le. La fenêtre d'astuces du jour
devrait se charger à l'ouverture.
Application:
- Ouvrez l'exercice Ex_19bxx.vbp
(celui de la barre d'outils) et ajoutez une fenêtre Astuce
du jour offrant une astuce pour chaque bouton (ce que
fait le programme qui est chargé en cliquant sur un
bouton par exemple) Ex_20bxx.vbp.
|
