• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[VB6] Animar Form Caption

6 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eu tentei fazer a instrução mas nao aconteceu nd... :hmm:

Então é porque não o utilizaste bem.

Cria um novo projecto e copia o código para lá. Executa e deves ver o texto na barra do form a mover.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

utilizei isto no meu projecto de final de curso, dá sempre outro ar há coisa !

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora