----Der Autor las gelegentlich einen Artikel in „Computer World“ über die Implementierung des Ausblendens und Einblendens von Charakteren in VISUALFOXPRO. Inspiriert davon bezog sich der Autor auf den Originalartikel und schrieb einen ähnlichen Artikel zum Aus- und Einblenden von Charakteren. bei der Verwendung des Visual Basic 4.0-Programms, um die Gemeinsamkeiten der visuellen Entwicklungstools von Microsoft zu veranschaulichen: gleiche oder ähnliche grafische Benutzeroberfläche (GUI), objektorientierte und ereignisgesteuerte Funktionen, gleiche oder ähnliche Funktionen usw. Mit dieser Funktion können Programmentwickler und Designer von Anwendungen lernen, die mit verschiedenen Microsoft-Visualisierungstools entwickelt wurden, und eine bequeme Transplantation durchführen, wodurch der Entwicklungszyklus verkürzt wird. Gleichzeitig kann dies beim Erlernen der Computersprache eine Rolle spielen.
----Die Ein- und Ausblendfunktion von Zeichen kann durch kontinuierliches Ändern des Vordergrunds des Label-Steuerelements (LABEL) erreicht werden. Änderungen im Vordergrund des Steuerelements,
Dies kann mithilfe der Vordergrundeigenschaft des Etikettensteuerelements zur Entwurfszeit festgelegt werden oder im Programm durch Zuweisen unterschiedlicher Farbwerte zur Vordergrundeigenschaft erreicht werden. Farbe wird durch die RGB-Funktion bereitgestellt (VisualFoxpro verfügt auch über diese Funktion). Der von der Timer-Steuerung erzeugte Interrupt wird verwendet, um den RGB-Parameterwert kontinuierlich zu ändern, sodass der Vordergrund des Zeichens entsprechend geändert werden kann, um den Zweck des Ein- und Ausblendens zu erreichen.
----Das unten mit Visual Basic 4.0 geschriebene Programm führt zwei Funktionen aus: (1) Ein- und Ausblenden von Zeichen, und es gibt 256*256*256 Farbwechsel. Hier ist nur der Wechsel von Grau zu Rot ausgewählt;
(2) Beim Ausblenden wechseln die Zeichen von klein nach groß und beim Einblenden von groß nach klein. Darüber hinaus kann der Implementierungsprozess dieses Programms vollständig und einfach auf visuelle Sprachen wie VisualC und Visualjava übertragen werden.
----1. Starten Sie VisualBasic4.0 und generieren Sie automatisch ein Formular. Der Standardwert ist FORM1.
----2. Legen Sie die Eigenschaften des Formulars wie folgt fest:
NAME: DEMO
BILDUNTERSCHRIFT: VB implementiert das Ein- und Ausblenden von Zeichen
HINTERGRUNDFARBE: &H00C0C0C0, d. h. der Hintergrund ist grau
----3. Definieren Sie die folgenden Formularvariablen im Formular DEMO, dh definieren Sie die Farbparameter R, G und B im General-Deklarationsprozess.
DimrAsInteger
DimgAsInteger
DinbAsInteger
----4. Legen Sie den Anfangswert der Zeichenfarbe während des Formularladevorgangs fest, nämlich Grau
Farbe:
PrivateSubForm_Load()
r=192
g=192
b=192
EndSub
----5. Fügen Sie dem Formular DEMO eine Beschriftung hinzu und legen Sie seine Eigenschaften wie folgt fest:
NAME:LABEL1
Bildunterschrift: Harbin SDIC Bond Trading System
AUTOSIZE: TRUE, wird verwendet, um eine Zeichenskalierung zu erreichen
BACKSTYLE: 0-TRANSPARENT, also transparent
SCHRIFTART: Die Schriftart ist die offizielle Schrift und die Größe ist 8
----6. Fügen Sie dem Formular ein Timer-Steuerelement hinzu, um die Ausblendfunktion abzuschließen.
NAME: OUTTIMER
INTERVALL: 50, was bedeutet, dass es einmal pro Sekunde unterbricht und einmal die Farbe wechselt.
----7. Fügen Sie einen weiteren Timer hinzu, um die Einblendfunktion abzuschließen:
NAME: INTIMER
INTERVALL: 50
----8. Fügen Sie dem TIMER-Prozess von OUTTIMER den folgenden Code hinzu:
PrivateSubOuttimer_Timer()
Ifr<255Dann
r=r 1
Anders
r=255
EndIf
Wenng>3Dann
g=g-3
Sonst:g=0
EndIf
Wennb>3Dann
b=b-3
Sonst:b=0
EndIf
Label1.FontSize=Label1.FontSize 0,75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72Then
Outtimer.Enabled=False
Intimer.Enabled=True
EndIf
EndSub
----9. Fügen Sie den folgenden Code zu INTIMER hinzu:
PrivateSubIntimer_Timer()
Ifr>192Dann
r=r-1
Anders
r=192
EndIf
Wenng<192Dann
g=g 3
Sonst:g=192
EndIf
Ifb<192Dann
b=b 3
Sonst:b=192
EndIf
Label1.FontSize=Label1.FontSize-0,75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8Then
Intimer.Enabled=False
Outtimer.Enabled=True
EndIf
EndSub
----Nachdem Sie die oben genannten Schritte ausgeführt haben, drücken Sie die Schaltfläche „Ausführen“. Wenn die Schriftart die angegebene Größe erreicht, werden die Wörter „Harbin SDIC Securities Trading System“ in der Form von klein nach groß und von flach nach tief angezeigt Wenn es erreicht ist, verschwindet es allmählich in der Form, um die Ein- und Ausblendfunktion zu realisieren.
->