|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Ticker (Tipo Cast de um filme)
|
 |
|
|
|
Postada em 2/9/2004 por Linkin
Vou dar um exemplo de um Ticker.
Ele faz com que o label suba como os créditos finais de um filme.
1° Você terá que colocar dois Picturesbox, um Timer e um Label.
2° Ponha o seguinte código
Option Explicit
Private Sub Form_Load()
Label1.Caption = "Meu primeiro Ticker''" & vbCrLf & vbCrLf _
& "VBWEB" & vbCrLf _
& "Ticker"
Picture1.Height = Label1.Height
Picture1.Width = Label1.Width
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Picture1.Top = Picture1.Top - 15
If Picture1.Top < -2100 Then Picture1.Top = 2100
End Sub
Falou
|
|
|
|
|
