Caminho de Navegação Visual basic / Artigos / Efeito de letreiro vertical no Visual Basic 6.0

Nenhuma avalição
Indique ao Ueba Indique ao BlogBlogs Indique ao Delicious Indique ao Technorati Indique ao Google Bookmarks Indique ao Newsgator
TAGS

Nenhuma tag foi definida ainda!

Defina as tags para esta página preenchendo o campo abaixo.

  • Máximo de 100 tags
  • Cada tag deve ter até 20 caracteres.
  • Separar as tags com virgula. Ex.: php, sql, html, xml, fireworks
COMENTAR

INDICAR
Nome do amigo: E-mail do amigo: Comentário:
REPORTAR ERRO Descreva o erro:

Efeito de letreiro vertical no Visual Basic 6.0Postada em: 03/01/2005

Eduardo Heitor S. Agostinho
Por: Eduardo Heitor S. Agostinho Nº de Visualizações: 4568.



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.Top20
    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!