Pergunte aqui
1

Como fazer uma barra de progresso que enche com um critério?

perguntadas 2018-09-02 22:10:55 +0100

imagem do gravatar de joaorochaj

updated 2018-09-02 22:52:06 +0100

Boa tarde, eu tenho uma planilha de cadastro e impressão de identificações (que foi postado aqui no site),eu quero fazer uma barra de progresso que conforme ele imprime ele vai enchendo a barra. Exemplo : tem uma barra no painel que esta 0% ,ai eu vou imprimir 10 identificações então conforme ele passa na macro de imprimir ele vai enchendo,ou caso eu for precisar de somente 2 ele vai de 0% ate 100% mesmo eu alternando a quantidade.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Já tentou adaptar esta: https://ask.libreoffice.org/pt-br/que...

E aqui no Manual de Mauricio Baeza Servín: https://www.schiavinatto.com/mundolib...

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2018-09-02 22:46:56 +0100 )editar

@joaorochaj, para usar uma barra de andamento, a melhor forma é que o critério esteja em loop. Veja pelos exemplos trazidos pelo @Gilberto Schiavinatto e tantos outros na web. Vc cita a planilha de cadastro, mas quais são os trechos que imprimem as identificações. Como estão organizados?

imagem do gravatar de GrafenoGrafeno ( 2018-09-09 18:31:09 +0100 )editar

1 Resposta

0

respondidas 2018-09-11 00:14:40 +0100

imagem do gravatar de Ronaldo Elias

updated 2018-09-11 00:25:49 +0100

imagem do gravatar de Grafeno

.

Function BarProgFormulario()
    On Error Goto Sair
        Dim BP as Object
        pbFormulario = dlg.getControl("pbFormulario")'barra de progresso
        txtConcluido = dlg.getControl("txtConcluido")'campo de rótulo
            If (txtConcluido.Text = "") Then
                txtConcluido.Text = " "
                While (txtConcluido.Text <> "")
                    With pbFormulario.getModel()
                        For BP = .ProgressValueMin To .ProgressValueMax
                            .ProgressValue = BP
                            Wait(1)
                        Next BP
                        If (.ProgressValueMax = 20) Then
                            .ProgressValue = 0
                        Else
                        End if
                    End With
                    With txtConcluido.getModel()
                        .BackgroundColor = RGB(Rnd*218,Rnd*255,211)
                        .Label = "C O N C L U Í D O !"
                    End With
                    Wait(1000)
                    With txtConcluido.getModel()
                        .Label = ""
                    End With
                Wend
            Else
            End if
    On Error Goto 0
    Exit Function
    Sair:
    MsgBox "Linha " & Str(Erl) & ": " & Error$, 176, "Erro: Falta de Parâmetro"
    On Error Goto 0
End Function
editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2018-09-02 22:10:55 +0100

Lidas: 45 vezes

Última atualização: Sep 11