lotus notes 进度条
需积分: 10 182 浏览量
2009-03-10
18:20:47
上传
评论
收藏 43KB DOC 举报
Option:
Option Public
声明部分(Declaration)
Declare Public Function NEMProgressBegin Lib "nnotesws.dll" ( Byval wFlags As
Integer ) As Long
Declare Public Sub NEMProgressDeltaPos Lib "nnotesws.dll" ( Byval hwnd As
Long, Byval dwIncrement As Long )
Declare Public Sub NEMProgressEnd Lib "nnotesws.dll" ( Byval hwnd As Long
)
Declare Public Sub NEMProgressSetBarPos Lib "nnotesws.dll" ( Byval hwnd As
Long, Byval dwPos As Long)
Declare Public Sub NEMProgressSetBarRange Lib "nnotesws.dll" ( Byval hwnd
As Long, Byval dwMax As Long )
Declare Public Sub NEMProgressSetText Lib "nnotesws.dll" ( Byval hwnd As
Long, Byval pcszLine1 As Lmbcs String, Byval pcszLine2 As Lmbcs String)
Const NPB_TWOLINE = 3
Const NPB_ONELINE = 2
Public Class LNProgressbar
hwnd As Long
Sub New(SecondLineVisible As Integer)
'Set-up the progress bar on the screen
If SecondLineVisible Then
hwnd = NEMProgressBegin(NPB_TWOLINE)
Else
hwnd = NEMProgressBegin(NPB_ONELINE)
End If
End Sub
Sub SetText(FirstLineText As String,SecondLineText As String)
'Display the text in progress bar
NemProgressSetText hwnd, FirstLineTExt,SecondLineText
End Sub
Sub SetProgressPos(Progresspos As Long)
NEMProgressSetBarPos hwnd, ProgressPos
End Sub
资源评论
duwenjuancc
- 粉丝: 0
- 资源: 2
最新资源
- 基于matlab实现电力系统仿真计算软件包，包括潮流计算，最优潮流计算等.rar
- 基于matlab实现电力系统各种故障波形仿真，单相接地故障，两相间短路，两相接地短路，三相短路等.rar
- 基于matlab实现电动汽车动力性，爬坡性，续驶里程等性能仿真.rar
- Python动态烟花代码.pdf
- 基于matlab实现串口发送接收数据 可配置端口，波特率等 发送可选择ASCII方式或HEX方式
- matlab基于BP神经网络手写字母识别（单一）.zip代码9
- 基于matlab实现编写的串口调试工具，数据接收部分采用中断方式，保证了实时的数据显示
- 基于matlab实现39节点电力系统合闸角调控过程中的机组和负荷的灵敏度计算.rar
- HBase数据库性能调优
- 原生微信小程序源码 - -首字母排序选择
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
