|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Animando a Barra de Título de um Form
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Para criar uma animação na barra de título do Form (tipo Marquee), basta você colocar no Form o código abaixo.
'Será usado p/ parar a animação quando o Form
'for fechado. Coloque no Declarations do Form:
Dim bFechado As Boolean
Private Sub Form_Activate()
Dim iTempo As Single, bDiminui As Boolean
Dim iNum As Integer, iLarg As Integer
Dim iLargT As Integer, Texto As String
iTempo = Timer
Do While Not bFechado
If Timer > iTempo + 0.01 Then
iTempo = Timer
Select Case bDiminui
Case False
iNum = iNum + 1
Texto = String(iNum, " ") & _
"Mensagem do Marquee"
iLargT = TextWidth(Texto)
iLarg = ScaleWidth - 1110
If iLargT >= iLarg Then
iNum = iNum - 2
bDiminui = True
Texto = String(iNum, " ") & _
"Mensagem do Marquee"
End If
Case Else
iNum = iNum - 1
If iNum < 1 Then
iNum = 1
Texto = "Mensagem do Marquee"
bDiminui = False
Else
Texto = String(iNum, " ") & _
"Mensagem do Marquee"
End If
End Select
Caption = Texto
End If
DoEvents
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
bFechado = True
End Sub
Detalhe, modifique as linhas onde aparece "Mensagem do Marquee" pelo texto que você quizer que apareça.
|
|
|
|
|
