STATUS
Galera tenho uma rotina q percorre diretorio por diretorio , procurando arquivos, a questao eh , quando eu clico em um botao ele executa essa rotina,
eu gostaria de quando foce executado essa rotina em uma label aparece-se "pesquisando"
eu kero fazer isso pq quando eu clico em pesquisar a aplicação parece estar travada, mas na verade esta percorrendo os arquivos!
mas eu nao consigu fazer aparecer essa label, pq ele trava , enquanto pesquisa.....
alguem sabe oq eu posso fazer???
eu gostaria de quando foce executado essa rotina em uma label aparece-se "pesquisando"
eu kero fazer isso pq quando eu clico em pesquisar a aplicação parece estar travada, mas na verade esta percorrendo os arquivos!
mas eu nao consigu fazer aparecer essa label, pq ele trava , enquanto pesquisa.....
alguem sabe oq eu posso fazer???
veja se resolve
Option Explicit
'*******faz o progrees da foto
Private Pause As Boolean
Private PercentValue As Integer
Private Sub Sleep(Duration As Double)
' faz o progrees bar da foto
Dim Start As Single
Start = Timer
Do Until Timer > Start + Duration
Loop
End Sub
'******************** abaixo o progrees da foto
If PercentValue > 100 Then PercentValue = 0
Pause = False
KEImagePrgb1.Caption = "Aguarde Por Favor..."
Do Until PercentValue > 100 ' valor do timer
DoEvents
If Pause Then Exit Do
KEImagePrgb1.Value = PercentValue ' nome do status
PercentValue = PercentValue + 4
Sleep 0.0001
Loop
If PercentValue > 100 Then KEImagePrgb1.Caption = "Carregado..."
Option Explicit
'*******faz o progrees da foto
Private Pause As Boolean
Private PercentValue As Integer
Private Sub Sleep(Duration As Double)
' faz o progrees bar da foto
Dim Start As Single
Start = Timer
Do Until Timer > Start + Duration
Loop
End Sub
'******************** abaixo o progrees da foto
If PercentValue > 100 Then PercentValue = 0
Pause = False
KEImagePrgb1.Caption = "Aguarde Por Favor..."
Do Until PercentValue > 100 ' valor do timer
DoEvents
If Pause Then Exit Do
KEImagePrgb1.Value = PercentValue ' nome do status
PercentValue = PercentValue + 4
Sleep 0.0001
Loop
If PercentValue > 100 Then KEImagePrgb1.Caption = "Carregado..."
vlws cara isso me ajudout,................foi vc q fez esse codigo exelente codigo
Tópico encerrado , respostas não são mais permitidas