Ir para o conteúdo
Ridelight

[VB6] Animar Form Caption

Mensagens Recomendadas

Ridelight    8
Ridelight
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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.

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade