Olá pessoal hoje achei um código de animação caption em formulario do vb6
Código : ↓
Private Const Dif = 2000
Dim Encerrado As Boolean
Private Sub Form_Activate()
Dim N#, Decrescente As Boolean
Dim Cnt%, Larg#, LargT#, Texto$, Lim%
N = Timer
Do While Not Encerrado
If Timer > N + 0.01 Then
N = Timer
Select Case Decrescente
Case False
Cnt = Cnt + 1
Texto = String(Cnt, " ") + "Texto"
LargT = TextWidth(Texto)
Larg = ScaleWidth - 1110
If LargT >= Larg Then
Cnt = Cnt - 2
Decrescente = True
Texto = String(Cnt, " ") + "Texto"
End If
Caption = Texto
Case Else
Cnt = Cnt - 1
If Cnt < 1 Then
Cnt = 1
Texto = "Texto"
Decrescente = False
Else
Texto = String(Cnt, " ") + "Texto"
End If
Caption = Texto
End Select
End If
DoEvents
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
Encerrado = True
End Sub
Código : ↓
Private Const Dif = 2000
Dim Encerrado As Boolean
Private Sub Form_Activate()
Dim N#, Decrescente As Boolean
Dim Cnt%, Larg#, LargT#, Texto$, Lim%
N = Timer
Do While Not Encerrado
If Timer > N + 0.01 Then
N = Timer
Select Case Decrescente
Case False
Cnt = Cnt + 1
Texto = String(Cnt, " ") + "Texto"
LargT = TextWidth(Texto)
Larg = ScaleWidth - 1110
If LargT >= Larg Then
Cnt = Cnt - 2
Decrescente = True
Texto = String(Cnt, " ") + "Texto"
End If
Caption = Texto
Case Else
Cnt = Cnt - 1
If Cnt < 1 Then
Cnt = 1
Texto = "Texto"
Decrescente = False
Else
Texto = String(Cnt, " ") + "Texto"
End If
Caption = Texto
End Select
End If
DoEvents
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
Encerrado = True
End Sub