ROLAR LABEL SEM TIMER

USUARIO.EXCLUIDOS 21/08/2007 14:24:02
#231878
Pessoal, de um branco função para rolar um label dentro de um form na vertical sem o objeto timer... começa na parte superior ate a inferior retornando apos na superior...
LIZANDRO 21/08/2007 14:32:40
#231881
Vc pode usar um for para fazer isso ... mais acho que com o timer fica melhor ...
USUARIO.EXCLUIDOS 22/08/2007 10:04:31
#231996 Resposta escolhida


Vc pode usar uma função de pausa tb...aí vai:
'codigo para dar pausa no programa utilizando API GettickCount
'declarando API
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Pausa(ByVal Segundos As Integer)
'igual a inkey() do clipper - wagner
Dim xtempo As Long
Dim xInicio As Long
Dim xfinal As Long
xtempo = 1000 * Segundos
xfinal = 0
xInicio = GetTickCount()   'retorna valor em milesimos
While (xfinal - xInicio < xtempo)
xfinal = GetTickCount()
Wend
End Sub


Daí vc faz no Load do Form

DoEvents

Denovo

Pausa (X)', onde X é o nº de segundos

If Label1.Top < Y then 'onde Y é o valor maximo da parte inferior do seu form
Label1.Top = Label1.Top + 100
Else
Label1.Top = 0
End If

Goto Denovo

Espero q funcione...n deu pra testar..mas na lógica é pra dar certo

boa sorte e sucesso!
USUARIO.EXCLUIDOS 22/08/2007 10:25:52
#232000
GEROEANE,

Pq sem timer???

Creio que a melhor forma de fazer realmente seja utilizando o Timer, apesar de existirem outras maneiras como o Sinkertec postou...
USUARIO.EXCLUIDOS 23/08/2007 18:27:33
#232421
Marcelo pretendo adaptar para vba, e não posso utilizar componentes externos a versão do office da empresa.
Tópico encerrado , respostas não são mais permitidas
Voltar