分享

VFP中状态栏控件的使用说明

 踏雪_寻梅 2011-08-13

在VFP的程序设计中,其主窗口_screen有一个系统的状态栏,虽然可以很方便的使用命令set message to 字符。。。但是有时侯还是会有美中不足之处,如系统的显示一个当前打开的当前工作区的表的决定路径,以及其所在的记录位置,和锁定方式,令人很是头疼。 

  当然不仅仅因为此,我们就要放弃该状态栏啊,有时我们需要使我们的状态栏显得更专业点,或者需要显示特定的状态栏信息,故,需要使用状态栏控件来使我们的程序更漂亮! 

  状态栏在显示时有两种模式,一是单版面,二是多版面。单版面就是在状态栏地方显示一个信息区,而且只可以放置简单的文字说明,而多版面可以放置二个或以上的信息区,并可以特定的系统说明,如CAPS,NUM,INS等的状态指示,并可以放置图片。而且两种模式在切换时还不互相干扰,互不影响! 

  下面说明一下其使用方法

  首先该控件需要文件 mscomctl.ocx 的支持,如果在安装了VFP6的环境下,系统目录下已经有了该文件,如果在修改或运行前提示要打开一个OCX文件,那么需要首先拷贝该文件到你的系统目录,然后再指定该文件,因为第一次指定时,系统即注册该文件,及其路径,所以不要随便在第一次去指定一个OCX文件,否则麻烦大了! 

  状态栏的属性之一STYLE,即上面所讲的两种显示模式,0 - Mutliple panels 和 1 - Single panel simple text 当为Single panel simple text 模式时,很方便的处理,只要指定状态的另一个属性 SimpleText即可,就象在操作VFP主窗口的状态栏时用 set message to 那么方便了,在这里就是thisform.OleStatus.SimpleText="新的字符串"即可。 

  而当在 Mutliple panels 时就不同了,其实我们需要这个控件也就是为了这个功能吧,不然用VFP主窗口的状态栏不就行了嘛?在多版面时,每一个版面作为一个对象来操作,即Panel,对之我摸索到如下的属性:

  1、Index 是指Panel的索引号,该索引号是顺序排列且唯一指定每一个Panel的。

  2、Text 是指在Panel上显示文本的,只有当其Style=0(文字)时才有效。

  3、ToolTipText 是当鼠标移到该Panel上时显示的提示信息,要当控件的ShowTips=.T.时才有效。

  4、Key 是用来唯一标志每一个Panel的值,该值要么不指定,即为空,要么就是要唯一指定。在做对Panel的删除时,需要指定Panel的Key值。

  5、Width 是指Panel的宽度,宽度不可以小于0,否则出错。

  6、Tag 用来存储额外数据的,一般没什么用。



  7、Visible 默认为.T.即可见,可以通过修改该值来隐含Panel.

  8、Enabled 默认为可用,可以通过修改该值来表示Panel的可用不可用状态。

  9、Alignment 对齐方式,默认为左对齐。

  10、Style 表示Panel的样式,如普通文字,CAPS,NUM,INS的键的状态指示,用来表示日期,时间等。

  11、Bevel 表示Panel的外观,有平面,突起,凹进三种。

  12、Picture 该参数还未知如何以编程方式来指定,他的值是作为一个对象存储的。 

  方法:

  1、添加

thisform.olestatus.panels.add(n,"key_" allt(str(n)),"Ready",0 )

  以上代码参数表示:

   N 是指其INDEX值,该值必须唯一,且是顺序指定,"key_" allt(str(n)) 表示其KEY值,要指定,必须使他唯一,否则出错。

   "Ready" 是在PANEL上显示的文字。 

   后面的0表示其样式为普通文字。 

 2、删除

thisform.olestatus.panels.remove(key)

  指定某一个PANEL的KEY值时,可以通过该命令来做删除。 

  3、更新

  详细见示例中 

  应用:

  1、显示进度条:

*-- PANEL 的宽度 = 12 * 方块个数 2
with thisform.olestatus.panels.item(1) && 在第一个PANEL里显示进度条 

.text = ""
nTotalNum = (.width - 2)/12 && 总方块个数
x = 0   && 当前所计算出的第几个方块数
y = 0   && 跟X参考比较数
nTotalSum = 100000   && 总数
for n = 1 to nTotalSum && 表示从1到100000之间的处理进度
  x = int((n * nTotalNum)/nTotalSum)  && 求得现在是需要显示第几个方块数 X
  if y <> x  && 当两个数不相等时,表明有新的数产生,则加一个方块
    .text = .text ■
    y = x
  endif
*-- 处理某事务
endfor
.text = "完毕"
end with 
  2、显示时钟

  这个很简单,只要在表单上放一个时钟控件,设频率为1000微妙,TIMER事件里写
thisform.olestatus.panels.item(1).text = ttoc(datetime())



表示在第一个PANEL里显示当前的时间,并每隔一秒更新,从而达到即时显示时间,但这个不是很有必要,毕竟他提供了时钟的功能,只是不显示秒?
zmbbs=1;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多