Colorful Life2010

Tag: ProgressBar | 记录数: 1
Lotus Notes中C/S模式下进度条的使用

 

实现有两种方法,第一种比较简单,就是在status栏里print出文本,不过这个方法比较笨,但是很保险,基本上不会出什么问题。代码如下:

REM "From Erden Eruc @ NGSINC"

Dim i As Integer
Dim s As String
     
'Is this 100 meter dash? no it is a meter with 100 dashes :)
     
s = "--------------------------------------------"&_
"--------------------------------------------------------"
For i = 1 To 100
  s = Left( Chr(1) & s, 100 )
  If i<10 Then
    Print "Percent Done:    "& Str(i)&"% - " & s 
  Elseif i = 100 Then
    Print "Percent Done:"& Str(i)&"% - " & s
  Else
    Print "Percent Done:  "& Str(i)&"% - " & s
  End If
Next
Print "Percent Done: 100% - Job complete..."

 

另一种就是NOTES本身带的那种图形界面的,这个当然对用户比较友好,但由于NOTES并没有公开这个API,我们就不得不自己来调用了,如下面代码,使用下面的代码有一定风险,如果是在DEBUG模式,或是使用过程中出错了,那么整个NOTES客户端会被lock住,所以使用下面代码的时候,一定要加异常处理,确保代码最后一句一定要被执行。