77家的会客2010

月归档: 2012年07月 | 记录数: 2
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住,所以使用下面代码的时候,一定要加异常处理,确保代码最后一句一定要被执行。

 
VBProject:代码操作代码之常用语句 (转)

 

 

一、增加模块 
1.增加一个模块,命名为“我的模块”  
  ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 
  系统常量vbext_ct_StdModule=1 
2.增加一个类模块,命名为“我的类”  
  ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类"  
  vbext_ct_ClassModule=2  
3.增加一个窗体,命名为“我的窗体” 
  ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" 
  vbext_ct_MSForm=3  
二、删除模块  。。。