VisualBasic5.0 está se tornando cada vez mais popular entre os programadores devido ao seu método de programação visual. Podemos usar o VisualBasic5.0 para escrever software multimídia com belas interfaces e belas músicas. No entanto, você pode encontrar alguns problemas difíceis de resolver durante o próprio processo de programação. A seguir estão algumas experiências do autor na criação de multimídia, que podem enriquecer sua caixa de acessórios multimídia.
1. Música de fundo
Ao usar o Visual Basic 5.0 para compilar aplicativos, podemos usar o método de aninhamento OLE para adicionar facilmente música de fundo a um aplicativo.
Entre no ambiente do sistema VisualBasic5.0 e crie um novo formulário. Clique em 'OLE Container' no 'Form Control' e arraste-o para qualquer lugar do FORM. Selecione 'Media Clip' na janela 'Inserir Objeto', selecione a coluna 'Mostrar como ícone' (esta coluna deve ser selecionada, caso contrário não pode ser ocultada) e pressione a tecla 'Confirmar' para sair.
Na janela ‘Media Player’, selecione ‘Arquivo’, ‘Abrir’ e selecione o arquivo de som que deseja usar como música de fundo na lista de arquivos. Como os arquivos de música geralmente não são muito longos, eles exigem reprodução em loop, o que pode ser conseguido configurando o 'media player' para reproduzir repetidamente. Em seguida, selecione 'Opções' no menu 'Editar', selecione 'Repetir reprodução' na janela de opções e remova a marca de seleção na frente de 'Barra de controle de repetição', confirme e saia.
Retorne ao ambiente do sistema Visual Basic 5.0, pressione o botão direito do mouse e clique na coluna 'Propriedades' no menu pop-up para abrir a janela de propriedades. Selecione o objeto 'Ole1' e defina sua propriedade 'Visível' como .F e sua propriedade 'Autosize' como .F.. Pressione o botão direito do mouse novamente, clique na coluna 'Código' no menu pop-up para entrar na janela de escrita do processo e escreva o processo 'Carregar' do objeto 'Form1':
PRivateSubForm_Load()
OLE1.DoVerb(0)
Fim Sub
4. Pressione a tecla ‘F5’ para executar.
2. Botão tridimensional de efeito transparente
Ao fazer software multimídia, às vezes precisamos de botões tridimensionais com efeitos transparentes. Podemos usar a combinação de rótulo (LABEL) e forma (SHAPE) para completar este design.
Digite o ambiente do sistema Visual Basic 5.0, crie um novo formulário (FORM1) e defina a propriedade Picture do FORM1 como um arquivo de bitmap do WINDOWS (.BMP).
Clique em “Shape” na “Form Control Bar” e retire uma caixa retangular (SHAPE1) no FORM1. Crie SHAPE2, SHAPE3 e SHAPE4 da mesma maneira. Defina as propriedades desses quatro SHAPEs como segue na janela de propriedades:
FORMA1:
BorderColor=&HFFFFFF
BordaLargura=3Esquerda=2160
Superior=2040Largura=1100
FORMA2:
BordaCor=&H80000008
BordaLargura=3Esquerda=2160
Superior=2520Largura=1100
FORMA3:
BorderColor=&HFFFFFF
BordaLargura=3Esquerda=2160
Superior=2040Altura=500
FORMA4:
BordaCor=&H80000008
BordaLargura=3Esquerda=3240
Superior=2040Altura=500
Clique em “Label” na “Form Control Bar” com o mouse, retire uma caixa retangular (LABEL1) no FORM1 e ajuste seu tamanho para caber nos quatro SHAPEs. Defina sua propriedade Caption como o título do botão personalizado, Alignment como 2 e Backstyle como 0.
Clique duas vezes em LABEL1 e escreva o processo MouseDown e o processo MouseUp de LABEL1 da seguinte maneira:
PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&H80000008
Shape3.BorderColor=&H80000008
Shape2.BorderColor=&HFFFFFF
Shape4.BorderColor=&HFFFFFF
Label1.Top=Label1.Top 10
Fim Sub
PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Shape1.BorderColor=&HFFFFFF
Shape3.BorderColor=&HFFFFFF
Shape2.BorderColor=&H80000008
Shape4.BorderColor=&H80000008
Label1.Top=Rótulo1.Top-10
Fim Sub
Basta pressionar a tecla ‘F5’ para executá-lo.
3. Legendas para celular
Na TV, muitas vezes vemos uma linha de texto de aviso ou informação publicitária movendo-se da direita para a esquerda na parte inferior da tela, o que não apenas serve como um aviso, mas não danifica a tela inteira. Também podemos concluir esse design em VisualBasic5.0.
Entre no ambiente do sistema Visual Basic 5.0, crie um novo formulário (FORM1) e defina a propriedade Backcolor do FORM1 como RGB (192.192.192).
Clique em "Label" na "Barra de controle de formulário" com o mouse e retire uma caixa retangular (LABEL1) no FORM1. Defina suas propriedades Caption como "Active Subtitle Demonstration", Autosize como .T., Backstyle como 0, Forecolor como RGB (128, 128, 128), Fontname como "official script", Fontbold como .T. e Fontsize como 36.
Clique em LABEL1 com o mouse, pressione a tecla CTRL C (copiar) e depois pressione a tecla CTRL V (colar) para criar outro rótulo (LABEL2) com o mesmo título de LABEL1 no FORM1 e defina seu atributo Forecolor como RGB (255 , 255, 0 ). Ajuste a posição de LABEL2 para que fique um pouco mais alto que LABEL1, para que LABEL1 se pareça com a sombra de LABEL2.
Clique em “Timer” na “Barra de controle de formulário” com o mouse e, a seguir, clique uma vez no FORM1 para criar um timer (TIMER1) no FORM1. Defina sua propriedade Intervalo como 200.
Clique duas vezes em FORM1 e escreva o processo de carregamento do FORM1 da seguinte forma:
PrivateSubForm_Load()
Label1.Left=Largura 50
Label2.Left=Largura
Fim Sub
6. Clique duas vezes em TIMER1 e escreva o processo de temporizador de TIMER1 da seguinte forma:
PrivateSubTimer1_Timer()
IfLabel1.Left<0-Label1.WidthThen
Label1.Left=Largura 50
Label2.Left=Largura
FimSe
Label1.Left=Label1.Left-500
Label2.Left=Label2.Left-500
Fim Sub
7. Pressione a tecla ‘F5’ para executar e você verá as legendas aparecerem no lado direito da tela e desaparecerem quando movidas para o canto esquerdo da tela.
4. Aparecimento e desaparecimento gradual do texto
As legendas dos comentários no início de muitos jogos e os créditos criativos após a explosão usam o método fade-in e fade-out do personagem. Texto com efeitos de fade-in e fade-out também pode ser produzido no Visual Basic 5.0.
Entre no ambiente do sistema Visual Basic5.0 e crie um novo formulário (FORM1).
Clique em "Label" na "Barra de controle de formulário" com o mouse e retire uma caixa retangular (LABEL1) no FORM1. Defina seu atributo Legenda como "Fade in and out of text", Autosize como .T., Backstyle como 0, cor do texto como RGB (0.128.128), fonte como "script oficial", Fontbold como .T. e tamanho da fonte como 36 .
Clique em “Timer” na “Barra de controle de formulário” com o mouse e, a seguir, clique uma vez no FORM1 para criar um timer (TIMER1) no FORM1. Defina sua propriedade Interval como 100 e sua propriedade Enabled como .F..
Clique no “Botão Comando” na “Barra de Controle de Formulário” e retire uma caixa retangular (COMMAND1) no FORM1. Defina sua propriedade Legenda como "Iniciar".
Clique duas vezes em COMMAND1 e escreva o processo Click de COMMAND1 da seguinte forma:
PrivateSubCommand1_Click()
IfTimer1.Enabled=FalseThen
Timer1.Enabled = Verdadeiro
FimSe
Fim Sub
Clique duas vezes em FORM1 e escreva o processo de ativação do FORM1 da seguinte forma:
Cor traseira=RGB(0.128.128)
eu=0
7. Clique duas vezes em TIMER1 e escreva o processo de temporizador de TIMER1 da seguinte forma:
PrivateSubTimer1_Timer()
Eu = eu 10
SeI>=255*2Então
Timer1.Enabled=Falso
eu=0
FimSe
SeI>=255Então
Label1.ForeColor=RGB(255*2-I,128.128)
Outro
Label1.ForeColor=RGB(I,128,128)
FimSe
Fim Sub
Pressione a tecla 'F5' para executar. Clique no botão “Iniciar” com o mouse e você verá que o título muda gradualmente da cor de fundo para vermelho e depois de vermelho para a cor de fundo.
Todos os programas acima são executados com êxito no Visual Basic 5.0 e no WINDOWS95. ->