FUNCAO TIMER

MARIOANDRADE 23/02/2014 10:40:56
#435165
Meus amigos, eu uso o código abaixo para percorrer as linhas do listview, gostaria de colocar um tempo de espera de 5 segundos para que fosse vista a mudança de cada linha. no Excel existe a função 
Application.Ontime
como posso fazer isso no VB6?

Dim item As Integer
    item = 1
    lstPrincipal.SetFocus
    lstPrincipal.ListItems.item(item).Selected = True
    Do Until item = 10
        lstPrincipal.ListItems.item(item).Selected = True        
        [ô]Colocar um itervalo aqui        
        item = item + 1
    Loop


Desde já agradeço a todos.
ASHKATCHUP 23/02/2014 17:53:54
#435178 Resposta escolhida
Utilize a função do Windows (API) chamada Sleep.

Primeiro, declara ela em um módulo/form


Public Declare Sub Sleep Lib [Ô]kernel32[Ô] (ByVal dwMilliseconds As Long)


Depois, basta chamá-la, informando o tempo em milisegundos:

  Do Until item = 10
        lstPrincipal.ListItems.item(item).Selected = True        
        Sleep 5000 [ô]5 segundos       
        item = item + 1
    Loop
Tópico encerrado , respostas não são mais permitidas
Voltar