ScriptFácil.com - Sua fonte de scripts
visual basic
03/01/2005 - Por Eduardo Heitor S. Agostinho Efeito de letreiro vertical no Visual Basic 6.0 Nota dos usuários: Visualizações: 4246 visualizações.
Uma das coisas mais importantes ao montar este exemplo é atentar às dimensões height, pois elas que farão efeito;
1) Insira um form com as seguintes dimensões:
[CODE]
HEIGHT = 3345
WIDTH = 6930
[/CODE]
2) No form1, insira um frame com as seguintes dimensões:
[CODE]
HEIGHT = 2610
WIDTH = 6540
TOP = 100
[/CODE]
3) Dentro do frame, insira qualquer texto através de captions ou figuras através de images, e altere a propriedade border style para 0 - None.
4) Insira um componente timer e defina as seguintes propriedades:
[CODE]
ENABLE = TRUE
INTERVAL = 100
[/CODE]
5) Vamos ao código. O código, será inserido no timer:
Private Sub Timer1_Timer()
'Através do IF testamos se a propriedade TOP do FRAME1 está menor que –2500. Se true, alteramos para 2550, ou seja, abaixo da linha inferior do FORM. Se false, subtraimos 20 px do top de frame1
If Frame1.Top < -2500 Then
Frame1.Top = 2550
Else
Frame1.Top = Frame1.Top – 20
End If
End Sub
Obs.: Caso você perceba que quando o frame subir demorar para aparecer embaixo, ou nem aparecer, verifique o valor de teste do if (no exemplo = -2500).
BOA SORTE, ESPERO QUE TENHAM GOSTADO!
Abraços e Feliz 2005 para a comunidade ScriptFácil!
1) Insira um form com as seguintes dimensões:
[CODE]
HEIGHT = 3345
WIDTH = 6930
[/CODE]
2) No form1, insira um frame com as seguintes dimensões:
[CODE]
HEIGHT = 2610
WIDTH = 6540
TOP = 100
[/CODE]
3) Dentro do frame, insira qualquer texto através de captions ou figuras através de images, e altere a propriedade border style para 0 - None.
4) Insira um componente timer e defina as seguintes propriedades:
[CODE]
ENABLE = TRUE
INTERVAL = 100
[/CODE]
5) Vamos ao código. O código, será inserido no timer:
Private Sub Timer1_Timer()
'Através do IF testamos se a propriedade TOP do FRAME1 está menor que –2500. Se true, alteramos para 2550, ou seja, abaixo da linha inferior do FORM. Se false, subtraimos 20 px do top de frame1
If Frame1.Top < -2500 Then
Frame1.Top = 2550
Else
Frame1.Top = Frame1.Top – 20
End If
End Sub
Obs.: Caso você perceba que quando o frame subir demorar para aparecer embaixo, ou nem aparecer, verifique o valor de teste do if (no exemplo = -2500).
BOA SORTE, ESPERO QUE TENHAM GOSTADO!
Abraços e Feliz 2005 para a comunidade ScriptFácil!
