----Dans un grand nombre de logiciels d'application, après le démarrage du logiciel, un écran affiche pendant quelques secondes des informations, répertoriant le produit, la plate-forme, le numéro de version et les informations de copyright, appelé « écran clignotant au démarrage du programme ». ". Comment est-il implémenté dans Visual Basic ? Cet article explique une façon de générer un écran de démarrage et de le rendre coloré. Assurez-vous que lorsque l'écran de démarrage reste sur le bureau, le texte d'invite « coule » sur le bureau (comme l'écran de démarrage « Orient Express »). Dans le même temps, des effets tels que le clignotement et le changement de couleur d'un texte fluide peuvent également être obtenus. Si vous placez l'écran au bas du texte, le texte peut s'écouler de l'écran. Une fois l'affichage terminé et disparu du haut de l'écran, il peut remonter du bas de l'écran et réapparaître en boucle. Après cette conception, il peut être utilisé dans les descriptions de logiciels, les listes d'auteurs, etc. pour enrichir l'affichage à l'écran du logiciel.
----Prenez le projet 1, les formulaires Form1 et Form2 et définissez Form1 comme formulaire de démarrage. Créez de nouveaux Frame1, Timer1 et Temer2 sur Form2 et définissez la propriété Caption de Frame1 sur une valeur nulle pour former une belle bordure tridimensionnelle. Les propriétés Enabled de Timer1 et Temer2 sont définies sur True. Créez Picture1 sur Frame1 et ajustez Picture1 à une taille appropriée. Définissez la propriété ScaleMode de Form1 sur 1-Twip et la propriété StartUpPosition de Form2 sur 2-CenterScreen (aligné au centre). Afin de garantir que Form2 n'affiche pas la « barre de description bleue » en haut du formulaire, définissez la propriété Caption sur une valeur nulle et la propriété ControlBox sur False. Créez l'étiquette Label1 sur Picture1 et ajustez BackStyle à 0 (transparent). Remplissez le texte « Auteur : Miss Jiang Xue de Shenyang » dans l'attribut Légende de Label1 pour une observation facile. Ajustez la taille et la couleur du texte. Vous pouvez librement définir les informations de mise en page sur le formulaire Form2.
----Le code du formulaire 1 est le suivant :
PRivateSubForm_Load()
Form1.Visible=0'rend le formulaire Form1 invisible
Form2.Afficher le formulaire Form2
FinSub
Les codes de chaque contrôle dans Form2 sont les suivants :
OptionExplicite
DimStep1,Step2,Step3AsInteger
DimZfAsString
DimIAsInteger
PrivateSubForm_Click()
'Lorsque vous cliquez sur Form2, terminez l'exécution de Form2,
Affichez le formulaire Form1 et fermez Timer et Timer1.
Décharge-moi
Form1.Afficher
Timer1.Enabled=Faux
Timer2.Enabled=Faux
FinSub
PrivateSubForm_Load()
Picture1.Picture=ChargerImage
("c:/windows/Clouds.bmp")'Choisissez une image
Timer1.Interval = pas de temps de 80'
Minuterie2.Intervalle=50
FinSub
Sous-privé
Frame1_Click()'Lorsque vous cliquez sur la zone du contrôle Frame1,
Terminez l'exécution du formulaire Form2, affichez le formulaire Form1 et fermez Timer et Timer1.
Décharge-moi
Form1.Afficher
Timer1.Enabled=Faux
Timer2.Enabled=Faux
FinSub
Sous-privé
Image1_Clic()
'Lorsque vous cliquez sur la zone dans Picture1, terminez l'exécution de Form2,
Affichez le formulaire Form1 et fermez Timer et Timer1.
Décharge-moi
Form1.Afficher
Timer1.Enabled=Faux
Timer2.Enabled=Faux
FinSub
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9' appelle la couleur transformée
je = je 1
IfI>50Then'Form2, durée de séjour du formulaire, peut être redimensionné
Décharge-moi
Form1.Afficher
Timer1.Enabled=Faux
Timer2.Enabled=Faux
FinSi
FinSub
Sous-Couleur(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'Sélectionner la couleur
IfVal(Ctrl.Tag)=color1Alors
Ctrl.Tag=couleur2
SinonSiVal(Ctrl.Tag)=color2Then
Ctrl.Tag=color3
SinonSiVal(Ctrl.Tag)=color3Then
Ctrl.Tag=couleur1
Autre
Ctrl.Tag=couleur1
FinSi
Ctrl.ForeColor=QBColor(Ctrl.Tag)
FinSub
PrivateSubTimer2_Timer()' contrôle la position et la vitesse du mouvement du texte
Étape 1 = 1 800 : Étape 2 = 4 500 : Étape 3 = 40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top Étape 2
FinSi
Étiquette1.Top=Étiquette1.Top-Step3
FinSub
----Vous pouvez ajuster les valeurs de Timer1.Interval et Timer2.Interval, qui déterminent respectivement la vitesse de changement de couleur du texte et la vitesse de flux du texte ; ajustez Step1 et Step2 aux valeurs appropriées en fonction de la forme et du contrôle ; conditions ; L'étape 3 est l'étape de saut de texte ; Changez la couleur de la transformation du texte en modifiant les valeurs I, J, K dans l'instruction ColorLabel1, I, J, K. Implémenté sous VisualBasic5.0 chinois. ->