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!