|
|
|
|
Showing Windows Progress Bar |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
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% = 1
Declare Function NEMProgressBegin Lib "nnotesws.dll" ( Byval wFlags As Integer ) As Long
Declare 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 )
NEMProgressSetBarRange hwnd, 200
NemProgressSetText hwnd, "Calculating ...", "Start"
For i = 0 To 200
For j = 0 To 9000
Next j
NEMProgressSetBarPos hwnd, i
If i = 50 Then
NEMProgressSetText hwnd, "Calculating ....", "25%"
End If
If i = 100 Then
NEMProgressSetText hwnd, "Calculating .....", "50 %"
End If
If i = 150 Then
NEMProgressSetText hwnd, "Calculating ......", "75 %"
End If
Next
NEMProgressEnd hwnd
End Sub
Run the agent and you will see the status bar.
|
|
相关文章：相关软件： |
|
本类阅读TOP10