Notifications

Clear all

Userform com relógio travando

2024 - VBA & Macros

Post Recente por pfarias 8 anos atrás

4 Posts

2 Usuários

0 Reactions

719 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Boa tarde colegas.
O que tem de errado com o código que ao clicar botão "iniciar barra" trava o relógio e também para contagem da porcentagem barra progresso.

Alguém poderia me passar uma solução?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 13/10/2016 1:30 pm

pfarias

(@pfarias)

Posts: 265

Reputable Member

Boa tarde Dunguinha!

Adiciona o DoEvents após a alteração do formulário para que ele altere o fomulário.

Private Sub BotaoIniciar_Click()
   
   Me.ProgressBar1.Max = 10
   Me.ProgressBar1.Min = 1

For i = 1 To 10

   lblProgresso.Caption = i * 10 & "% Carregando..."
   Me.ProgressBar1 = i
   Application.Wait Now + TimeSerial(0, 0, 1)

DoEvents

Next i

   UserForm1.Hide
   
End Sub

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

Postado : 13/10/2016 1:42 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Bom dia colegas.
Acrescentei DoEvents como indicado, agora mostra a contagem da porcentagem da barra progresso, mas o relógio continua travado após execução.

Mais alguma dica?

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 14/10/2016 4:57 am