UI 6.7 How could I use Progress bar form?

Question

Hi all,
some SAP Business One add-ons use a small form with a progress bar instead of using the progress bar in the status bar. Does anyone knows how to use this form?
Bernhard

Answer 1

Hi,
I think that you have to create your own form.
In my Addon, I create a form with FormType = ft_FixedNoTitle, add several EditTexts (9) with the property Enabled = False and Visible = False, and the name beginnig with "oEditText" + Number Sequential.
After, when executing my code, I change the property Visible = True, to the next EditText.
That way I have a "progress form" like used in others Addons.
I use the following code to "progress" (after created the form)
    Private Sub WriteProgressInstall(ByVal pMsg As String, ByVal pPosition As Integer)
            Dim oForm As SAPbouiCOM.Form
            Dim oStaticText As SAPbouiCOM.StaticText
            Dim i As Integer
            Try
                If pMsg <> String.Empty Then
                    oForm = SBO_Application.Forms.Item("frmProgressForm")
'if we have a StaticText to show the progress message
                    oStaticText = oForm.Items.Item("oMSG").Specific
                    oStaticText.Caption = pMsg
                End If
                'Hide all "progress steps"
                If pPosition = 0 Then
                    For i = 1 To 9
                        oForm.Items.Item("oEditText" + CStr(pPosition)).Visible = False
                    Next
                End If
                oForm.Items.Item("oEditText" + CStr(pPosition)).Visible = True
            Catch er As Exception
                MsgBox(er.Message)
            End Try
        End Sub
To move to next "progress step" is just call
WriteProgressInstall("Executing Step 1..", 1)
HTH,
Ribeiro Santos