用PB的ocx控件ctGauge实现进度条显示

• 　　PowerBuilder是目前常用的数据库开发工具,用它实现进度条的动态显示非常简单.可以在窗体中插入ACTIVEX控件ctMeter,实现象BORLANDC++安装程序那样具有专业水准的进度条显示.显示效果如图1所示.

  

  图1

  一．创建含有如下控件的窗体：

  控件 name text

  标签 st_1 进度指示器:

  单行编辑框 sle_1 0

  组框 gb_1 频率

  按钮 rb_1 每隔0.2秒

  按钮 rb_2 每隔0.5秒

  按钮 rb_3 每隔0.8秒

  按钮 rb_4 每隔1秒

  命令按钮 cb_1 开始

  命令按钮 cb_2 停止

  命令按钮 cb_3 退出

  

  如图2.

  二．设置ACTIVEX控件属性：

  首先选择ole控件,在弹出的对话框中选择INSERTCONTROL,在controltype中选择ctGaugecontrol. 在图片栏下,选择SPEEDO.BMP文件。

  图2

  三．程序清单：

  （1）在主菜单的”DeclareGlobal variables”中输入变量定义:

  Double dd_Timer = 0.1

  Boolean bb_Stop, bb_Complete

  （2）窗体”开始”按钮的CLICK事件:

  If bb_Complete Then

  ole_1.Object.Value = 0

  End If

  rb_1.enabled=false

  rb_2.enabled=false

  rb_3.enabled=false

  rb_4.enabled=false

  bb_Complete=false

  timer(dd_Timer)

  (3)窗体”停止”按钮的CLICKED事件:

  bb_Stop=true

  (4)窗体”退出”按钮的CLICKED事件:

  Close(Parent)

  (5)窗体timer事件:

  Yield()

  If (ole_1.Object.Value + 2) $#@62;= 100 Then

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用PB的ocx控件ctGauge实现进度条显示 相关文章：
• ·用PB的ocx控件ctGauge实现进度条显示
• 用PB的ocx控件ctGauge实现进度条显示 相关软件

上一篇:PowerBuilder应用开发系列讲座(6)

下一篇:低级键盘钩子屏蔽Win键、Alt+Tab键的响应

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐