----En una gran cantidad de software de aplicación, después de iniciar el software, una pantalla muestra información durante unos segundos, que enumera el producto, la plataforma, el número de versión y la información de derechos de autor, lo que se denomina "pantalla intermitente al iniciar el programa". ". ¿Cómo se implementa en Visual Basic? Este artículo analiza una forma de generar una pantalla de presentación y hacerla colorida. Asegúrese de que cuando la pantalla de inicio permanezca en el escritorio, el texto del mensaje "fluya" en el escritorio (como la pantalla de inicio de "Orient Express"). Al mismo tiempo, también se pueden lograr efectos como parpadeo y cambio de color del texto fluido. Si configura la pantalla en la parte inferior del texto, el texto puede fluir desde la pantalla. Una vez que la visualización se completa y desaparece de la parte superior de la pantalla, puede volver a subir desde la parte inferior de la pantalla y reaparecer en un bucle. Después de este diseño, se puede utilizar en descripciones de software, listas de autores, etc. para enriquecer la visualización en pantalla del software.
----Tome el proyecto 1, formularios Form1 y Form2, y configure Form1 como formulario de inicio. Cree nuevos Frame1, Timer1 y Temer2 en Form2 y establezca la propiedad Caption de Frame1 en un valor nulo para formar un hermoso borde tridimensional. Las propiedades habilitadas de Timer1 y Temer2 están configuradas en True. Cree Imagen1 en el Marco1 y ajuste Imagen1 a un tamaño adecuado. Establezca la propiedad ScaleMode de Form1 en 1-Twip y la propiedad StartUpPosition de Form2 en 2-CenterScreen (alineada al centro). Para asegurarse de que Form2 no muestre la "barra de descripción azul" en la parte superior del formulario, establezca la propiedad Caption en un valor nulo y la propiedad ControlBox en False. Cree la etiqueta Etiqueta1 en Imagen1 y ajuste Estilo de fondo a 0 (transparente). Complete el texto "Autor: Señorita Jiang Xue de Shenyang" en el atributo Título de Etiqueta1 para facilitar la observación. Ajusta el tamaño y el color del texto. Puede configurar libremente la información de diseño en el formulario Form2.
----El código de Form1 es el siguiente:
PRivateSubForm_Load()
Form1.Visible=0'hace que el formulario Form1 sea invisible
Form2.Mostrar formulario de visualización Form2
FinSub
Los códigos para cada control en Form2 son los siguientes:
OpciónExplícito
DimPaso1,Paso2,Paso3AsInteger
DimZfAsString
DimIAsEntero
PrivadoSubForm_Click()
'Cuando haces clic en Form2, finaliza la ejecución de Form2,
Muestre el formulario Form1 y cierre Timer y Timer1.
Descargarme
Formulario1.Mostrar
Temporizador1.Enabled=Falso
Temporizador2.Enabled=Falso
FinSub
PrivadoSubForm_Load()
Imagen1.Imagen=CargarImagen
("c:/windows/Clouds.bmp")'Elige una imagen
Timer1.Interval=paso de tiempo de 80'
Temporizador2.Intervalo=50
FinSub
PrivadoSub
Frame1_Click()'Al hacer clic en el área dentro del control Frame1,
Finalice la ejecución del formulario Form2, muestre el formulario Form1 y cierre Timer y Timer1.
Descargarme
Formulario1.Mostrar
Temporizador1.Enabled=Falso
Temporizador2.Enabled=Falso
FinSub
PrivadoSub
Imagen1_Clic()
'Cuando haces clic en el área dentro de Imagen1, finaliza la ejecución de Form2,
Muestre el formulario Form1 y cierre Timer y Timer1.
Descargarme
Formulario1.Mostrar
Temporizador1.Enabled=Falso
Temporizador2.Enabled=Falso
FinSub
PrivadoSubTimer1_Timer()
ColorLabel1,15,13,9' llama al color transformado
yo=yo 1
Si I>50, entonces el tiempo de permanencia del formulario Form2 se puede cambiar de tamaño
Descargarme
Formulario1.Mostrar
Temporizador1.Enabled=Falso
Temporizador2.Enabled=Falso
Fin si
FinSub
SubColor(CtrlComoControl,color1ComoInteger,
color2AsInteger,color3AsInteger)'Seleccionar color
IfVal(Ctrl.Tag)=color1Entonces
Ctrl.Etiqueta=color2
ElseIfVal(Ctrl.Tag)=color2Entonces
Ctrl.Etiqueta=color3
ElseIfVal(Ctrl.Tag)=color3Entonces
Ctrl.Etiqueta=color1
Demás
Ctrl.Etiqueta=color1
Fin si
Ctrl.ForeColor=QBColor(Ctrl.Etiqueta)
FinSub
PrivateSubTimer2_Timer()' controla la posición y velocidad del movimiento del texto
Paso1=1800:Paso2=4500:Paso3=40
SiEtiqueta1.Top<-Paso1-Etiqueta1.TopEntonces
Etiqueta1.Top=Etiqueta1.Top Paso2
Fin si
Etiqueta1.Top=Etiqueta1.Top-Step3
FinSub
----Puede ajustar los valores de Timer1.Interval y Timer2.Interval, que determinan la velocidad de cambio de color del texto y la velocidad del flujo de texto respectivamente; ajuste el Paso1 y el Paso2 a los valores apropiados según el formulario y el control; condiciones; el paso 3 es el paso de salto de texto; cambie el color de transformación del texto cambiando los valores I, J, K en la declaración ColorLabel1, I, J, K. Implementado bajo VisualBasic5.0 chino. ->