CARREGA GRID APOS 1 SEGUNDO E USANDO PROGRESSBAR

USUARIO.EXCLUIDOS 13/12/2006 15:33:08
#189742
ai pessoal.. eu tenho uma consulta no change de um textbox certo? sendo assim a cada letra digitado é carregado o grid..

queria que carregasse o msflexgrid apenas um segundo apos ficar sem digitar e no momento que carregasse o grid mostrasse o ProgressBar percorrendo...

me ajudem ai amigos... t+ um abraço
3LTON 13/12/2006 15:36:38
#189748
voce pode usar um timer.
USUARIO.EXCLUIDOS 13/12/2006 15:39:07
#189750
haram...o problema é como usar amigo?! me ajuda ai... nao sei bem usar
3LTON 13/12/2006 15:50:25
#189756
faca assim: insira o codigo de preenchimento do grid no timer. Altere a propriedade interval do timer para 1000. No change do text coloque timer.enable=true e no codigo do timer coloque timer.enabled=false.
USUARIO.EXCLUIDOS 13/12/2006 15:54:15
#189758
ai valew... funcionou..
só que faltou o progressbar.. como faço?
ONBASS 13/12/2006 15:58:47
#189764
vc deve informar a propriedade max do progressbar para o numero de registro filtrados, daí vc deve incrementar o valor do progressbar para +1 até preencher o grid
USUARIO.EXCLUIDOS 13/12/2006 15:59:49
#189765
brown, fiz bem rapidinhow , se nao for exatamente o que voce quer com certeza passou bem perto. da uma olhada nesse codigo ae :p

Private Sub Text1_Change()
 Timer1.Enabled = True
 bar.Visible = True
End Sub


Private Sub Timer1_Timer()
    bar.Value = bar.Value + 2 'bar = nome do seu progressbar
    If bar.Value = 100 Then
        If Timer1.Interval >= 1 Then
            Timer1.Enabled = False
            bar.Visible = False
            'aqui voce coloca a funcao que mostra seu flexgrid
        End If
    End If
End Sub


espero ter ajudo :D
USUARIO.EXCLUIDOS 13/12/2006 16:15:32
#189768
como usar recordCount no data1 ???
USUARIO.EXCLUIDOS 13/12/2006 16:18:58
#189769 Resposta escolhida
Acho q é:

Data1.RecordSet.RecourdCount


Pra muda o progressbar, faz na hora que popula:
PGBar.Max = Data1.RecordSet.RecourdCount
For i = 1 To Data1.RecordSet.RecourdCount
  Flex.AddItem Data1.RecordSet("CODIGO")
  Flex.TextMatrix(Flex.Rows - 1, 1) = Data1.RecordSet("CAMPO")
  PGBar.Value = PGBar.Value + 1
  Data1.RecordSet.MoveNext
Next i



Falow...
USUARIO.EXCLUIDOS 13/12/2006 16:52:30
#189792
ai amigao.. o problema que to usando o refresh ..
assim nao teria como?
Tópico encerrado , respostas não são mais permitidas
Voltar