----Em um grande número de softwares aplicativos, após o software ser iniciado, uma tela exibe informações por alguns segundos, listando o produto, plataforma, número de versão e informações de direitos autorais, que é chamada de "tela piscando ao iniciar o programa ". Como isso é implementado em Visual Basic? Este artigo discute uma maneira de gerar uma tela inicial e torná-la colorida. Certifique-se de que, quando a tela inicial permanecer na área de trabalho, o texto do prompt "flua" na área de trabalho (como a tela inicial do "Orient Express"). Ao mesmo tempo, também podem ser obtidos efeitos como intermitência e mudança de cor do texto fluido. Se você definir a tela na parte inferior do texto, o texto poderá fluir da tela. Depois que a exibição for concluída e desaparecer da parte superior da tela, ela poderá subir novamente da parte inferior da tela e reaparecer em loop. Após esse design, ele pode ser usado em descrições de software, listas de autores, etc. para enriquecer a exibição da tela do software.
----Pegue o projeto 1, os formulários Form1 e Form2 e defina o Form1 como o formulário de inicialização. Crie novos Frame1, Timer1 e Temer2 no Form2 e defina a propriedade Caption do Frame1 como um valor nulo para formar uma bela borda tridimensional. As propriedades Enabled de Timer1 e Temer2 são definidas como True. Crie a Imagem1 no Quadro1 e ajuste a Imagem1 para um tamanho adequado. Defina a propriedade ScaleMode do Form1 como 1-Twip e a propriedade StartUpPosition do Form2 como 2-CenterScreen (alinhado ao centro). Para garantir que o Form2 não exiba a "barra de descrição azul" na parte superior do formulário, defina a propriedade Caption como um valor nulo e a propriedade ControlBox como False. Crie a etiqueta Label1 na Picture1 e ajuste BackStyle para 0 (transparente). Preencha o texto "Autor: Senhorita Jiang Xue de Shenyang" no atributo Caption do Label1 para facilitar a observação. Ajuste o tamanho e a cor do texto. Você pode definir livremente as informações de layout no formulário Form2.
---- O código do Form1 é o seguinte:
PRivateSubForm_Load()
Form1.Visible=0'torna o formulário Form1 invisível
Form2.Mostrar formulário de exibição Form2
Fim Sub
Os códigos para cada controle no Form2 são os seguintes:
OpçãoExplícita
DimEtapa1,Etapa2,Etapa3AsInteger
DimZfAsString
DimIAsInteger
PrivateSubForm_Click()
'Ao clicar no Form2, finaliza a execução do Form2,
Exiba o formulário Form1 e feche o Timer e o Timer1.
Descarregar-me
Formulário1.Mostrar
Timer1.Enabled=Falso
Timer2.Enabled=Falso
Fim Sub
PrivateSubForm_Load()
Picture1.Picture=CarregarImagem
("c:/windows/Clouds.bmp")'Escolha uma imagem
Timer1.Interval=passo de tempo de 80'
Temporizador2.Interval=50
Fim Sub
PrivadoSub
Frame1_Click()'Ao clicar na área dentro do controle Frame1,
Finalize a execução do formulário Form2, exiba o formulário Form1 e feche o Timer e o Timer1.
Descarregar-me
Formulário1.Mostrar
Timer1.Enabled=Falso
Timer2.Enabled=Falso
Fim Sub
PrivadoSub
Imagem1_Click()
'Ao clicar na área dentro da Figura1, finaliza a execução do Form2,
Exiba o formulário Form1 e feche o Timer e o Timer1.
Descarregar-me
Formulário1.Mostrar
Timer1.Enabled=Falso
Timer2.Enabled=Falso
Fim Sub
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9' chama a cor transformada
eu = eu 1
Tempo de permanência do formulário IfI>50Then'Form2, pode ser redimensionado
Descarregar-me
Formulário1.Mostrar
Timer1.Enabled=Falso
Timer2.Enabled=Falso
FimSe
Fim Sub
SubColor(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)'Selecione a cor
IfVal(Ctrl.Tag)=cor1Então
Ctrl.Tag=cor2
ElseIfVal(Ctrl.Tag)=color2Then
Ctrl.Tag=cor3
ElseIfVal(Ctrl.Tag)=color3Then
Ctrl.Tag=cor1
Outro
Ctrl.Tag=cor1
FimSe
Ctrl.ForeColor=QBColor(Ctrl.Tag)
Fim Sub
PrivateSubTimer2_Timer()' controla a posição e velocidade do movimento do texto
Etapa 1 = 1800: Etapa 2 = 4500: Etapa 3 = 40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top Etapa 2
FimSe
Label1.Top=Label1.Top-Step3
Fim Sub
----Você pode ajustar os valores de Timer1.Interval e Timer2.Interval, que determinam a velocidade de mudança de cor do texto e velocidade de fluxo de texto respectivamente; ajuste Step1 e Step2 para valores apropriados de acordo com o formulário e controle; condições; Step3 é a etapa de salto do texto; Altere a cor da transformação do texto alterando os valores I, J, K na instrução ColorLabel1, I, J, K. Implementado no VisualBasic5.0 chinês. ->