Pergunte aqui
1

configurar barra de progresso na caixa de dialogo

perguntadas 2017-02-03 11:34:26 +0100

imagem do gravatar de Juan.rba

updated 2017-04-02 17:05:14 +0100

imagem do gravatar de Grafeno

Olá amigos, pesquisei bastante e não achei um tutorial ou exemplos de como configurar uma barra de progresso numa caixa de diálogo, qdo ela deve avançar e quanto e tudo mais...desde já obrigado.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

2

respondidas 2017-02-03 18:08:50 +0100

imagem do gravatar de Grafeno

Boa tarde,


Veja se o exemplo lhe ajuda:

Descrição da imagem


Código:

Sub CarregarDialogoProgresso
Dim oDialogo As Object, oBarraProgresso As Object
Dim i As Integer

   'Carregar o Diálogo de Progresso'
   DialogLibraries.loadLibrary( "Standard" )
   oDialogo = CreateUnoDialog( DialogLibraries.Standard.DialogoProgresso )

   'Obter a barra de progresso'   
   oBarraProgresso = oDialogo.Model.getByName( "ProgressBar1" )

   'Definir os valores mínimo e máximo da barra de progresso'
   With oBarraProgresso
     .ProgressValueMin = 1 'Valor mínimo'
     .ProgressValueMax = 15 'Valor máximo'
   End With

   ' Invocar o dialogo pela propriedade Visible (Diálogo não modal) '
   ' para que barra de progresso seja exibida "carregando" '
   oDialogo.Visible = True

   For i = 1 To 15
     oBarraProgresso.ProgressValue = i
     Wait 200 
   Next i

   'Após o final do loop, o diálogo é descartado automaticamente por ter sido invocado'
   'como não modal
End Sub


Atte,

editar assinalar como ofensivo Excluir Link mais

Comentários

Como faz uma barra de progresso que o wait dele puxa de uma celula?

imagem do gravatar de joaorochajjoaorochaj ( 2018-09-01 03:52:54 +0100 )editar

@joaorochaj, está questão já foi encerrada (resposta aceita). É preciso que vc abra uma nova pergunta para o seu questionamento. Aproveite e dê maiores detalhes, como quantas células, e puxar para onde. Atte,

imagem do gravatar de GrafenoGrafeno ( 2018-09-01 13:30:31 +0100 )editar

Ficou ótimo e claro seu exemplo.

imagem do gravatar de AmaralAmaral ( 2018-11-29 14:15:14 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-02-03 11:34:26 +0100

Lidas: 169 vezes

Última atualização: Feb 03 '17