----L'auteur a lu occasionnellement un article dans "Computer World" sur l'implémentation d'un fondu sortant et d'un fondu entrant dans VISUALFOXPRO. Inspiré par cela, l'auteur s'est référé à l'article original et a écrit un fondu sortant et un fondu entrant similaires. en utilisant le programme Visual Basic 4.0 pour illustrer les points communs des outils de développement visuel de Microsoft : interface utilisateur graphique (GUI) identique ou similaire, fonctionnalités orientées objet et pilotées par événements, fonctions identiques ou similaires, etc. Cette fonctionnalité permet aux développeurs et concepteurs de programmes d'apprendre des applications développées à l'aide de différents outils de visualisation Microsoft et d'effectuer une transplantation pratique, raccourcissant ainsi le cycle de développement. En même temps, cela peut jouer un rôle dans l’apprentissage du langage informatique.
----La fonction de fondu d'entrée et de sortie des caractères peut être réalisée en changeant continuellement le premier plan du contrôle d'étiquette (LABEL). Modifications du premier plan du champ,
Il peut être défini à l'aide de la propriété de premier plan du contrôle d'étiquette au moment de la conception, ou il peut être réalisé dans le programme en attribuant différentes valeurs de couleur à la propriété de premier plan. La couleur est fournie par la fonction RVB (VisualFoxpro possède également cette fonction). L'interruption générée par le contrôle de la minuterie est utilisée pour modifier continuellement la valeur du paramètre RVB, de sorte que le premier plan du caractère peut être modifié en conséquence, atteignant ainsi l'objectif de fondu entrant et sortant.
----Le programme écrit ci-dessous en utilisant Visual Basic 4.0 remplit deux fonctions : (1) Fondu entrant et sortant des caractères, et il y a 256*256*256 changements de couleur Ici, seul le changement du gris au rouge est sélectionné ;
(2) Les caractères vont de petit à grand lors d'un fondu sortant, et de grand à petit lors d'un fondu entrant. De plus, le processus de mise en œuvre de ce programme peut être complètement et facilement transplanté dans des langages visuels tels que VisualC et Visualjava.
----1. Démarrez VisualBasic4.0 et générez automatiquement un formulaire, la valeur par défaut est FORM1.
----2. Définissez les propriétés du formulaire comme suit :
NOM : DÉMO
LÉGENDE : VB implémente un fondu d'entrée et de sortie des caractères
COULEUR DU FOND : &H00C0C0C0, c'est-à-dire que l'arrière-plan est gris
----3. Définissez les variables de formulaire suivantes sous la forme DEMO, c'est-à-dire définissez les paramètres de couleur R, G et B dans le processus de déclaration générale.
DimrAsInteger
DimgAsInteger
DinbAsInteger
----4. Définissez la valeur initiale de la couleur des caractères pendant le processus de chargement du formulaire, c'est-à-dire le gris.
couleur:
PrivateSubForm_Load()
r=192
g=192
b=192
FinSub
----5. Ajoutez une étiquette au formulaire DEMO et définissez ses propriétés comme suit :
NOM :ÉTIQUETTE1
LÉGENDE : Système de négociation d'obligations Harbin SDIC
AUTOSIZE : TRUE, utilisé pour réaliser la mise à l'échelle des caractères
BACKSTYLE : 0-TRANSPARENT, c'est-à-dire transparent
POLICE : la police est une écriture officielle et la taille est sélectionnée sur 8.
----6. Ajoutez un contrôle de minuterie au formulaire pour compléter la fonction de fondu sortant. Les paramètres sont les suivants :
NOM : OUTTIMER
INTERVALLE : 50, ce qui signifie qu'il s'interrompt une fois par seconde et change de couleur une fois.
----7. Ajoutez une autre minuterie pour terminer la fonction de fondu entrant :
NOM : INTIMER
INTERVALLE : 50
----8. Ajoutez le code suivant au processus TIMER d'OUTTIMER :
PrivateSubOuttimer_Timer()
Ifr<255Alors
r = r 1
Autre
r=255
FinSi
Sig>3Alors
g=g-3
Sinon : g=0
FinSi
Sib>3Alors
b=b-3
Sinon : b = 0
FinSi
Étiquette1.FontSize=Étiquette1.FontSize 0,75
Label1.ForeColor = RVB (r, g, b)
IfLabel1.FontSize>=72Alors
Outtimer.Enabled=Faux
Intimer.Enabled=True
FinSi
FinSub
----9. Ajoutez le code suivant à INTIMER :
PrivateSubIntimer_Timer()
Ifr>192Alors
r=r-1
Autre
r=192
FinSi
Sig<192Alors
g=g3
Sinon : g=192
FinSi
Sib<192Alors
b = b 3
Sinon :b=192
FinSi
Étiquette1.FontSize=Étiquette1.FontSize-0,75
Label1.ForeColor = RVB (r, g, b)
IfLabel1.FontSize<=8Then
Intimer.Enabled=Faux
Outtimer.Enabled=True
FinSi
FinSub
----Après avoir terminé les étapes ci-dessus, appuyez sur le bouton Exécuter, vous pouvez voir les mots « Harbin SDIC Securities Trading System » affichés sous la forme de petit à grand, de peu profond à profond lorsque la police atteint Lorsque la taille spécifiée est ; atteint, il disparaît progressivement dans la forme pour réaliser la fonction de fondu d'entrée et de sortie.
->