BARRA DE PROGRESSO NO VB6

PETERSONTDS 04/10/2017 11:19:57
#476945
Olá senhores, eu estou com um problema em relação a graduação da evolução da barra de progresso no meu projeto
seguinte, ela até funciona, mais não mostra a evolução ,apos adicionar os dados na minha listview , no processo a barra não se movimenta
só após adicionar todos os itens, me mostra o progresso final de 100% mais não a graduação
Segue o código

ConnectBD
rs.Open [Ô]SELECT * FROM tbCidadesAtendidas[Ô], db, 3, 3

With rs

For D = 1 To lst_RegAtendimento.ListItems.Count



.AddNew

.Fields(0) = txt_Codigo.Text
.Fields(1) = lst_RegAtendimento.ListItems.Item(D).SubItems(1)
.Fields(2) = lst_RegAtendimento.ListItems.Item(D).SubItems(2)
.Fields(3) = lst_RegAtendimento.ListItems.Item(D).SubItems(3)
.Fields(4) = lst_RegAtendimento.ListItems.Item(D).SubItems(4)
.Fields(5) = lst_RegAtendimento.ListItems.Item(D).SubItems(5)
.Fields(6) = lst_RegAtendimento.ListItems.Item(D).SubItems(6)
.Fields(7) = lst_RegAtendimento.ListItems.Item(D).SubItems(7)
.Fields(8) = lst_RegAtendimento.ListItems.Item(D).SubItems(8)
.Fields(9) = lst_RegAtendimento.ListItems.Item(D).SubItems(9)

.Update

DoEvents

ReyProgressBar1.Max = lst_RegAtendimento.ListItems.Count
ReyProgressBar1.VALUE = D

Next D

End With

DesconnectBD

já tirei o DoEvents e coloquei em vários lugares mais não me ajudou
eu dei uma olhada neste tópico com o mesmo problema, mais ele não me ajudou: http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=441021&pagina=1
Obs. são adicionados no processo um total de 856 item .

Se alguem puder me ajudar, desde já agradeço !
KERPLUNK 04/10/2017 11:57:52
#476950 Resposta escolhida
Essa linha:

ReyProgressBar1.Max = lst_RegAtendimento.ListItems.Count

Deveria estar antes de começar todo o processo.
PETERSONTDS 04/10/2017 17:02:13
#476983
Citação:

:
Essa linha:


ReyProgressBar1.Max = lst_RegAtendimento.ListItems.Count

Deveria estar antes de começar todo o processo.



Mesmo fazendo isso continuo com o mesmo problema!
JABA 04/10/2017 17:10:30
#476985
A barra está indo direto para 100% porque deve existir poucos registros pra processar e o código está sendo executado muito rápido e não dá pra perceber. Coloque esse código dentro de um timer, com tempo de 1 segundo para fazer um teste.
Tópico encerrado , respostas não são mais permitidas
Voltar