----Bei einer großen Anzahl von Anwendungssoftware werden nach dem Start der Software einige Sekunden lang Informationen zu Produkt, Plattform, Versionsnummer und Copyright-Informationen auf einem Bildschirm angezeigt, der als „Blinkbildschirm beim Starten des Programms“ bezeichnet wird ". Wie wird es in Visual Basic implementiert? In diesem Artikel wird eine Möglichkeit beschrieben, einen Begrüßungsbildschirm zu erstellen und ihn farbenfroh zu gestalten. Stellen Sie sicher, dass der Eingabeaufforderungstext auf dem Desktop „fließt“, wenn der Startbildschirm auf dem Desktop verbleibt (z. B. beim Startbildschirm „Orient Express“). Gleichzeitig können auch Effekte wie Blinken und Farbwechsel von Fließtext erzielt werden. Wenn Sie den Bildschirm am unteren Rand des Textes platzieren, kann der Text vom Bildschirm aus fließen. Nachdem die Anzeige abgeschlossen ist und vom oberen Bildschirmrand verschwindet, kann sie vom unteren Bildschirmrand wieder aufsteigen und in einer Schleife wieder erscheinen. Nach diesem Entwurf kann es in Softwarebeschreibungen, Autorenlisten usw. verwendet werden, um die Bildschirmdarstellung der Software zu bereichern.
----Nehmen Sie Projekt 1, Formulare Form1 und Form2 und legen Sie Form1 als Startformular fest. Erstellen Sie neue Frame1, Timer1 und Temer2 auf Form2 und setzen Sie die Caption-Eigenschaft von Frame1 auf einen Nullwert, um einen schönen dreidimensionalen Rahmen zu bilden. Die Enabled-Eigenschaften von Timer1 und Temer2 sind auf True gesetzt. Erstellen Sie Bild1 auf Rahmen1 und passen Sie Bild1 auf eine geeignete Größe an. Legen Sie die ScaleMode-Eigenschaft von Form1 auf 1-Twip und die StartUpPosition-Eigenschaft von Form2 auf 2-CenterScreen (zentriert ausgerichtet) fest. Um sicherzustellen, dass Form2 nicht die „blaue Beschreibungsleiste“ oben im Formular anzeigt, legen Sie die Caption-Eigenschaft auf einen Nullwert und die ControlBox-Eigenschaft auf False fest. Erstellen Sie die Beschriftung Label1 auf Bild1 und stellen Sie BackStyle auf 0 (transparent) ein. Geben Sie zur leichteren Beobachtung den Text „Autorin: Miss Jiang Xue aus Shenyang“ in das Beschriftungsattribut von Label1 ein. Passen Sie Textgröße und -farbe an. Sie können die Layoutinformationen für das Formular Form2 frei festlegen.
----Form1-Code lautet wie folgt:
PRivateSubForm_Load()
Form1.Visible=0'macht das Formular Form1 unsichtbar
Form2.Anzeigeformular Form2 anzeigen
EndSub
Die Codes für jedes Steuerelement in Form2 lauten wie folgt:
OptionExplicit
DimStep1,Step2,Step3AsInteger
DimZfAsString
DimIAsInteger
PrivateSubForm_Click()
„Wenn Sie auf Form2 klicken, beenden Sie die Ausführung von Form2.
Zeigen Sie Form1 an und schließen Sie Timer und Timer1.
Entlade mich
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubForm_Load()
Picture1.Picture=LoadPicture
("c:/windows/Clouds.bmp")'Wählen Sie ein Bild
Timer1.Interval=80' Zeitschritt
Timer2.Intervall=50
EndSub
PrivateSub
Frame1_Click()'Wenn Sie auf den Bereich innerhalb des Steuerelements Frame1 klicken,
Beenden Sie die Ausführung von Formular Form2, zeigen Sie Formular Form1 an und schließen Sie Timer und Timer1.
Entlade mich
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSub
Picture1_Click()
„Wenn Sie auf den Bereich in Bild1 klicken, beenden Sie die Ausführung von Form2,
Zeigen Sie Form1 an und schließen Sie Timer und Timer1.
Entlade mich
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9' ruft die transformierte Farbe auf
I=I 1
Wenn ich > 50 ist, kann die Größe des Form2-Formulars geändert werden
Entlade mich
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndIf
EndSub
SubColor(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'Farbe auswählen
IfVal(Strg.Tag)=color1Then
Strg.Tag=color2
ElseIfVal(Strg.Tag)=color2Then
Strg.Tag=color3
ElseIfVal(Strg.Tag)=color3Then
Strg.Tag=Farbe1
Anders
Strg.Tag=Farbe1
EndIf
Ctrl.ForeColor=QBColor(Strg.Tag)
EndSub
PrivateSubTimer2_Timer()' steuert die Position und Geschwindigkeit der Textbewegung
Schritt1=1800:Schritt2=4500:Schritt3=40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top Step2
EndIf
Label1.Top=Label1.Top-Step3
EndSub
----Sie können die Werte von Timer1.Interval und Timer2.Interval anpassen, die die Änderungsgeschwindigkeit der Textfarbe bzw. die Geschwindigkeit des Textflusses bestimmen. Passen Sie Step1 und Step2 entsprechend der Form und Steuerung an Bedingungen; Schritt 3 ist der Textsprungschritt; Ändern Sie die Texttransformationsfarbe, indem Sie die I-, J-, K-Werte in der ColorLabel1-, I-, J-, K-Anweisung ändern. Implementiert unter chinesischem VisualBasic5.0. ->