MSG TIME

USUARIO.EXCLUIDOS 17/04/2007 14:31:41
#212301
Ae galera oia eu aki denovo ;D uiAHEIUaeiUAEHA

intão vamos logo ao que interessa ..
Bom, tipow eu coloko um botão no programa ..
Ai eu quero que quando eu clike no botão, me aparece uma msg em 2 segundos ..

Ah alguma possibilidade de fazer isso ?
USUARIO.EXCLUIDOS 17/04/2007 14:34:40
#212302 Resposta escolhida

Vamos nessa:
Coloque isso no General (Declarations) do Form

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub Pausa(ByVal Segundos As Integer)

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í no Botão...no evento click coloque

Pausa (X) - onde X é o número de segundos que vc deseja..

Espero ter ajudado...Boa sorte
USUARIO.EXCLUIDOS 17/04/2007 14:35:31
#212303
Acho que não explikei direito, tpw

Eu tenho um botão, quando eu cliko nele eu quero que apareça uma msg depois de 2 segundos deu ter clikado no botão acho que fikou melhor ;D
USUARIO.EXCLUIDOS 17/04/2007 14:43:04
#212305
Ae SINKERTEC, tpw eu faço tudo certinho mass ... qndo aperto no botão aparece compile error:
Sub or function not defined.
dps ele localiza essa palavra " GetTickCount "

VLW
USUARIO.EXCLUIDOS 17/04/2007 14:48:20
#212306


Blz...vamos Lá

Desculpe...coloque essa parte:

Public Declare Function GetTickCount Lib "kernel32" () As Long

em um módulo

Essa parte:

Public Sub Pausa(ByVal Segundos As Integer)

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


Você coloca no General (declarations)..

daí no botão, no evento click vc coloca

Pausa (X) - onde X é o numero de segundos
MsgBox "Funcionou"

Agora dará certo..
USUARIO.EXCLUIDOS 17/04/2007 14:51:08
#212309
i love you ;D

pego iuAEHIUaehiuheA

DAKI A POKO TEM TOPIKO NOVO ;D
USUARIO.EXCLUIDOS 17/04/2007 14:53:54
#212310
ok

encerre o tópico e manda vê

Abraços
Tópico encerrado , respostas não são mais permitidas
Voltar