---- O autor ocasionalmente lia um artigo no "Computer World" sobre a implementação de fade-out e fade-in de caracteres no VISUALFOXPRO. Inspirado por isso, o autor se referiu ao artigo original e escreveu um fade-out e fade-in de caracteres semelhantes. no uso do programa Visual Basic 4.0 para ilustrar os pontos em comum das ferramentas de desenvolvimento visual da Microsoft: a mesma interface gráfica de usuário (GUI) ou semelhante, recursos orientados a objetos e orientados a eventos, funções iguais ou semelhantes, etc. Esse recurso permite que desenvolvedores e designers de programas aprendam com aplicativos desenvolvidos usando diferentes ferramentas de visualização da Microsoft e realizem transplantes convenientes, encurtando o ciclo de desenvolvimento. Ao mesmo tempo, isso pode desempenhar um papel no aprendizado da linguagem computacional.
----A função fade-in e fade-out dos caracteres pode ser realizada alterando continuamente o primeiro plano do controle do rótulo (LABEL). Mudanças no primeiro plano do controle,
Ele pode ser definido usando a propriedade de primeiro plano do controle de rótulo em tempo de design ou pode ser obtido no programa atribuindo valores de cores diferentes à propriedade de primeiro plano. A cor é fornecida pela função RGB (o VisualFoxpro também possui essa função). A interrupção gerada pelo controle do temporizador é usada para alterar continuamente o valor do parâmetro RGB, de forma que o primeiro plano do personagem possa ser alterado de acordo, atingindo o objetivo de aumentar e diminuir gradualmente.
----O seguinte programa escrito em Visual Basic 4.0 completa duas funções: (1) Fade in e out de caracteres, e há 256*256*256 mudanças de cores. Aqui apenas a mudança de cinza para vermelho é selecionada;
(2) Os caracteres vão de pequenos para grandes quando desaparecem e de grandes para pequenos quando aparecem. Além disso, o processo de implementação deste programa pode ser transplantado completa e facilmente para linguagens visuais como VisualC e Visualjava.
----1. Inicie o VisualBasic4.0 e gere automaticamente um formulário, o padrão é FORM1.
----2. Defina as propriedades do formulário da seguinte forma:
NOME: DEMO
LEGENDA: VB implementa fade-in e fade-out de caracteres
BACKCOLOR: &H00C0C0C0, ou seja, o fundo é cinza
----3. Defina as seguintes variáveis de formulário no formulário DEMO, ou seja, defina os parâmetros de cor R, G e B no processo de declaração geral.
DimrAsInteger
DimgAsInteger
DinbAsInteger
----4 Defina o valor inicial da cor do caractere durante o processo de carregamento do formulário, ou seja, cinza.
cor:
PrivateSubForm_Load()
r=192
g=192
b=192
Fim Sub
----5. Adicione um rótulo ao formulário DEMO e defina suas propriedades da seguinte forma:
NOME:LABEL1
LEGENDA: Sistema de negociação de títulos Harbin SDIC
AUTOSIZE: TRUE, usado para obter dimensionamento de caracteres
BACKSTYLE: 0-TRANSPARENTE, ou seja, transparente
FONTE: A fonte é o script oficial e o tamanho é selecionado como 8
----6. Adicione um controle de temporizador ao formulário para completar a função de fade-out.
NOME: OUTTIMER
INTERVAL: 50, o que significa que interrompe uma vez a cada segundo e muda de cor uma vez.
----7. Adicione outro temporizador para completar a função fade-in:
NOME: INTIMER
INTERVALO: 50
----8. Adicione o seguinte código ao processo TIMER do OUTTIMER:
PrivateSubOuttimer_Timer()
Ifr<255Então
r = r 1
Outro
r=255
FimSe
Seg>3Então
g=g-3
Caso contrário:g=0
FimSe
Seb>3Então
b=b-3
Caso contrário:b=0
FimSe
Label1.FontSize=Label1.FontSize 0,75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize>=72Então
Outtimer.Enabled=Falso
Intimer.Enabled = Verdadeiro
FimSe
Fim Sub
----9. Adicione o seguinte código ao INTIMER:
PrivateSubIntimer_Timer()
Ifr>192Então
r=r-1
Outro
r=192
FimSe
Seg<192Então
g=g3
Caso contrário:g=192
FimSe
Seb<192Então
b=b3
Caso contrário:b=192
FimSe
Label1.FontSize=Label1.FontSize-0.75
Label1.ForeColor=RGB(r,g,b)
IfLabel1.FontSize<=8Então
Intimer.Enabled=Falso
Outtimer.Enabled = Verdadeiro
FimSe
Fim Sub
---- Após concluir as etapas acima, pressione o botão Executar, você poderá ver as palavras "Harbin SDIC Securities Trading System" exibidas no formato de pequeno a grande, de raso a profundo quando a fonte atinge Quando o tamanho especificado é; alcançado, ele desaparece gradualmente na forma para realizar a função fade-in e fade-out.
->