Manage Learn to apply best practices and optimize your operations.

Progress Bar

Would you like to use the notes progress bar? Then here's a tip for you.

Declare Sub NEMProgressEnd Lib "nnotesws.dll" ( Byval hwnd As Long )
Declare Function NEMProgressBegin Lib "nnotesws.dll" ( Byval wFlags As
 Integer ) As Long
Declare Sub NEMProgressSetBarPos Lib "nnotesws.dll" ( Byval hwnd As Long, Byval
 dwPos As Long)
Declare Sub NEMProgressSetBarRange Lib "nnotesws.dll" ( Byval hwnd As Long,
 Byval dwMax As Long )
Declare Sub NEMProgressSetText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval
 pcszLine1 As String, Byval pcszLine2 As String )

Sub Click(Source As Button)
Dim hwnd As Long
Dim i As Long
Dim j As Long

'Create the progress bar
hwnd = NEMProgressBegin( NPB_STATUSBAR )

'Set the bar range - the default is 100
NEMProgressSetBarRange hwnd, 100

For i = 0 To 100
'Simple delay for the example!!
For j = 0 To 5000

'Update the bar position
NEMProgressSetBarPos hwnd, i

'Destroy the dialog when we're done
NEMProgressEnd hwnd
End Sub

Dig Deeper on Domino Resources - Part 6

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...