BARRA DE PROGRESSO DE VERDADE

MARIOANDRADE 07/09/2014 12:35:45
#441021
meus amigos, alguem tem uma ideia de como fazer uma barra de progresso que esteja compatível com o carregamento de uma listview?
Eu uso o código abaixo para exibir todos os registros do meu banco de dados, isso leva uns 3 a 5 segundos e tem 3400 registros, com o tempo esse numero vai aumentar e levará mais tempo, eu queria uma barra de progresso
que correspondesse ao carregamento, eu tentei fazer com o uso do objeto Timer, só que ele carrega a barra de progresso depois que a listview foi carregada.
No Excel a listview exibe o carregamento dos itens, já no VB6 não, eu queria que a barra fosse carregando de acordo com a listview.

Dim Item As ListItem
ListAlterar.ListItems.Clear
ConnectDB

rs.Open [Ô]Select * from tblCad order by COD[Ô], db, 3, 3
 Do Until (rs.EOF)
       Set Item = ListAlterar.ListItems.Add(, , rs!cod)
           Item.SubItems(1) = [Ô][Ô] & rs!Nome
           Item.SubItems(2) = [Ô][Ô] & rs!CELULAR
           Item.SubItems(3) = [Ô][Ô] & rs!TELEFONE
           Item.SubItems(4) = [Ô][Ô] & rs!RECAD
           Item.SubItems(5) = [Ô][Ô] & rs!CELULAR2
           Item.SubItems(6) = [Ô][Ô] & rs!RECAD2
           Item.SubItems(7) = [Ô][Ô] & rs!CELULAR3
           Item.SubItems(8) = [Ô][Ô] & rs!RECAD3
           Item.SubItems(9) = [Ô][Ô] & rs!FRM_PGT
           Item.SubItems(10) = [Ô][Ô] & rs!TP_AGEND
           rs.MoveNext
          [ô]ACHO QUE O CÓDIGO DEVERIA ENTRAR AQUI OU UMA LINHA ACIMA
 Loop 
rs.Close:  Set rs = Nothing
db.Close: Set db = Nothing
MARCELO.TREZE 07/09/2014 13:39:56
#441022 Resposta escolhida
Então colega mario as vezes o carregamento é muito rápido o que da a impressão de a progressbar aparecer preenchida.

mas é assim que funciona, primeiro você deverá pegar a quantidade total de registros, e colocar no valor max da progressbar.

e onde você imaginou que o codigo deve entrar seria alimesmo o local correto desta forma

progressbar1.Value = ProgressBar1.Value + 1

e testar pra ver se funciona
MARIOANDRADE 07/09/2014 14:21:34
#441025
Valeu Marcelo, mais uma vez ajudou bastante
Tópico encerrado , respostas não são mais permitidas
Voltar