Il existe toutes sortes de néons qui clignotent dans la nuit urbaine, parmi lesquels les plus couramment utilisés sont probablement les lumières à eau courante. Son effet fluide apporte de la vitalité à la nuit calme. Quel genre d'effet cela aurait-il si nous ajoutions une chaîne de lumières à eau scintillante à l'interface du logiciel multimédia que nous avons créé ? Suivez les étapes ci-dessous pour ajouter une chaîne de lumières à eau courante avec un effet de poursuite à votre programme multimédia.
1. Créez un nouveau formulaire. Entrez dans l'environnement système Visual5asic4.0, créez un nouveau formulaire (FORM1) et définissez la propriété Backcolor de FORM1 sur RVB (192,192,192).
2. Construisez la première lanterne. Cliquez sur "Étiquette" dans la "Barre de contrôle du formulaire" et retirez une boîte rectangulaire (LABEL1) sur FORM1. Définissez son attribut Légende sur "★" (il peut également s'agir d'autres caractères, le "★" ici se trouve dans la "Carte des caractères" des "Accessoires" de WINDOWS95), Taille automatique sur .T., Backstyle sur 0 et Forecolor au rouge, taille de police 18.
3. Créez 29 autres lanternes. Cliquez sur LABEL1 avec la souris, appuyez sur la touche CTRL C (copier), puis appuyez sur la touche CTRL V (coller) pour créer une autre étiquette (LABEL1 (1)) avec le même titre que LABEL1 sur FORM1 lorsque vous y êtes invité à l'écran. pour créer un tableau de contrôle, sélectionnez 'OUI''. Répétez cette copie pour créer un total de 30 étiquettes et disposez ces 30 étiquettes dans une boîte rectangulaire dans l'ordre.
4. Créez une minuterie. Cliquez sur "Timer" dans la "Barre de contrôle du formulaire" avec la souris, puis cliquez une fois sur FORM1 pour créer un minuteur (TIMER1) sur FORM1. Définissez sa propriété Intervalle sur 400.
5. Double-cliquez sur FORM1 et écrivez le processus de chargement de FORM1 comme suit :
PRivateSubForm_Load()
je=0
Forj=0To9
Étiquette1(j*3).ForeColor=&HFF&'Rouge
Étiquette1(j*3 1).ForeColor=&HFF00&'vert
Label1(j*3 2).ForeColor=&HFFFF&'jaune
Suivantj
FinSub
6. Double-cliquez sur TIMER1 et écrivez le processus Timer de TIMER1 comme suit :
PrivateSubTimer1_Timer()
Si je = 30 alors
je = 0
FinSi
je = je 1
PourJ=0To29
Label1(J).Visible=False
SuivantJ
SiIMod3=2Alors
PourJ=0To9
Étiquette1(J*3 1).Visible=Vrai
SuivantJ
Autre
SiIMod3=0Alors
PourJ=0To9
Étiquette1(J*3 2).Visible=Vrai
SuivantJ
Autre
PourJ=0To9
Étiquette1(J*3).Visible=Vrai
SuivantJ
FinSi
FinSi
FinSub
Après avoir exécuté le formulaire, vous pouvez voir que les voyants rouge, vert et bleu s'allument alternativement. Le réglage de la valeur de l'attribut Intervalle de Timer1 peut modifier la vitesse de cycle des trois groupes de voyants.
Le programme ci-dessus s'exécute avec succès dans Visual Basic 5.0 et Windows 95. ->