configurar barra de progresso na caixa de dialogo

editar

Boa tarde,

Veja se o exemplo lhe ajuda:

• Dialogo_de_Progresso.ods (Exemplo)

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,