how to use SBO_Application.StatusBar.CreateProgressBar?

[Former Member]

hi all,

I code SBO_Application.StatusBar.CreateProgressBar("test",100,false);

but when I run it ,the program die.

how to use this,if it need some code to end the CreateProgressBar?

thanks!

[Former Member · Accepted solution]

Dim oProgBar As SAPbouiCOM.ProgressBar ' progress bar

Dim ProgBarVal As Integer = 0

ProgBarVal = RS.RecordCount

oProgBar = B1Connections.theAppl.StatusBar.CreateProgressBar("Creating Commission Table ", ProgBarVal, True)

oProgBar.Value = 0

set your loop

ProgBarVal = oProgBar.Value

oProgBar.Value = ProgBarVal + 1

increment your loop

oProgBar.Stop()

System.Runtime.InteropServices.Marshal.ReleaseComObject(oProgBar)

oProgBar = Nothing

GC.Collect()

[Former Member]

can someone give a sample?thanks