If you're clients are all on Windows, you can display the progress bar when performing a long calculation There are two types of progress bars -. One large graphical (like when you're copying a database) and one through the status bar AT The Bottom of The Screen (Like When You Open A Very Large Document over a Dial-Up Connection).
For An Example of the Large Graphical Progress Bar, Build An Agent with this code:
Const NPB_TWOLINE% = 1Declare Function NEMProgressBegin Lib "nnotesws.dll" (Byval wFlags As Integer) As LongDeclare Sub NEMProgressEnd Lib "nnotesws.dll" (Byval hwnd 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 Initialize Dim hwnd As Long Dim i As Long Dim j As Long hwnd = NEMProgressBegin (NPB_TWOLINE) 'Set the bar range - the default is 100 NEMProgressSetBarRange hwnd, 200' Display text on the dialog NemProgressSetText hwnd, "Calculating ...". , "Start" for i = 0 To 200 for j = 0 To 9000 'artificial delay for the example !! Next j' Update the bar position NEMProgressSetBarPos hwnd, i 'Update the text at twenty five percent If i = 50 Then NEMProgressSetText hwnd , "Calculating ....", "25%" end if 'update the text at fifty percent if i = 100 TEN NEMPROGRESSETTEXT HWND, "Calculating .....", "50%" end if' Update The Text At seventy five percent If i = 150 Then NEMProgressSetText hwnd, "Calculating ......", "75%" End If Next 'Destroy the dialog when we're done NEMProgressEnd hwndEnd SubRun the agent and you will see the status bar.
