----El autor leyó ocasionalmente un artículo en "Computer World" sobre la implementación de desvanecimiento y aparición de caracteres en VISUALFOXPRO. Inspirado por esto, el autor se refirió al artículo original y escribió un desvanecimiento y desvanecimiento de caracteres similar. en el uso del programa Visual Basic 4.0 para ilustrar los puntos en común de las herramientas de desarrollo visual de Microsoft: la misma interfaz gráfica de usuario (GUI) o similar, características orientadas a objetos y controladas por eventos, funciones iguales o similares, etc. Esta característica permite a los desarrolladores y diseñadores de programas aprender de las aplicaciones desarrolladas utilizando diferentes herramientas de visualización de Microsoft y realizar un trasplante conveniente, acortando el ciclo de desarrollo. Al mismo tiempo, esto puede desempeñar un papel en el aprendizaje del lenguaje informático.
----La función de aparición y desaparición gradual de caracteres se puede lograr cambiando continuamente el primer plano del control de etiqueta (LABEL). Cambios en el primer plano del control,
Se puede configurar utilizando la propiedad de primer plano del control de etiqueta en tiempo de diseño, o se puede lograr en el programa asignando diferentes valores de color a la propiedad de primer plano. El color lo proporciona la función RGB (VisualFoxpro también tiene esta función). La interrupción generada por el control del temporizador se utiliza para cambiar continuamente el valor del parámetro RGB, de modo que el primer plano del personaje se pueda cambiar en consecuencia, logrando el propósito de aparecer y desaparecer gradualmente.
----El programa escrito a continuación usando Visual Basic 4.0 completa dos funciones: (1) Aparecer y desaparecer caracteres, y hay 256*256*256 cambios de color. Aquí solo se selecciona el cambio de gris a rojo;
(2) Los caracteres van de pequeño a grande cuando desaparecen y de grandes a pequeños cuando aparecen. Además, el proceso de implementación de este programa se puede trasplantar completa y fácilmente a lenguajes visuales como VisualC y Visualjava.
----1. Inicie VisualBasic4.0 y genere automáticamente un formulario, el valor predeterminado es FORM1.
----2. Establezca las propiedades del formulario de la siguiente manera:
NOMBRE: DEMOSTRACIÓN
LEYENDA: VB implementa la aparición y desaparición gradual de caracteres
BACKCOLOR: &H00C0C0C0, es decir, el fondo es gris
----3. Defina las siguientes variables de formulario en el formulario DEMO, es decir, defina los parámetros de color R, G y B en el proceso de declaración general.
DimrAsInteger
DimgAsInteger
DinbComoEntero
----4. Establezca el valor inicial del color del carácter durante el proceso de carga del formulario, es decir, gris.
color:
PrivadoSubForm_Load()
r=192
gramo=192
b=192
FinSub
----5. Agregue una etiqueta al formulario DEMO y establezca sus propiedades de la siguiente manera:
NOMBRE: ETIQUETA1
TÍTULO: Sistema de negociación de bonos SDIC de Harbin
AUTOSIZE: VERDADERO, utilizado para lograr escalado de caracteres
BACKSTYLE: 0-TRANSPARENTE, es decir, transparente
FUENTE: La fuente es script oficial y el tamaño seleccionado es 8
----6. Agregue un control de temporizador al formulario para completar la función de desvanecimiento. Las configuraciones son las siguientes:
NOMBRE: EXTERIOR
INTERVALO: 50, lo que significa que se interrumpe una vez por segundo y cambia de color una vez.
----7. Agregue otro temporizador para completar la función de aparición gradual:
NOMBRE: INTIMER
INTERVALO: 50
----8. Agregue el siguiente código al proceso TIMER de OUTTIMER:
PrivadoSubOuttimer_Timer()
Ifr<255Entonces
r=r 1
Demás
r=255
Fin si
Sig>3Entonces
g=g-3
De lo contrario:g=0
Fin si
Sib>3Entonces
b=b-3
De lo contrario:b=0
Fin si
Etiqueta1.FontSize=Etiqueta1.FontSize 0.75
Etiqueta1.ForeColor=RGB(r,g,b)
SiLabel1.FontSize>=72Entonces
Outtimer.Enabled=Falso
Intimer.Enabled=Verdadero
Fin si
FinSub
----9. Agregue el siguiente código a INTIMER:
PrivadoSubIntimer_Timer()
Si > 192 Entonces
r=r-1
Demás
r=192
Fin si
Ifg<192Entonces
gramo=gramo 3
De lo contrario:g=192
Fin si
Ifb<192Entonces
segundo=segundo 3
De lo contrario:b=192
Fin si
Etiqueta1.FontSize=Etiqueta1.FontSize-0.75
Etiqueta1.ForeColor=RGB(r,g,b)
SiLabel1.FontSize<=8Entonces
Intimer.Enabled=Falso
Outtimer.Enabled=Verdadero
Fin si
FinSub
----Después de completar los pasos anteriores, presione el botón Ejecutar, podrá ver las palabras "Harbin SDIC Securities Trading System" mostradas en formato de pequeño a grande, de poco profundo a profundo cuando la fuente alcanza el tamaño especificado; alcanzado, desaparece gradualmente en el formulario para realizar la función de aparición y desaparición gradual.
->