2014年计算机二级VB基础教程(37):创建状态条

2014-04-06

选中状态条,按F4键进入属性窗口,双击(Custom)可以进入主要的设置窗口SBarCtrl属性窗口。

(1) 选择面板形状

在SBarCtrl属性窗口里选择General标签,在Style列表框里选择多面板(缺省形式)或单面板简单文本形式。

(2) 添加或删除状态条面板

在SBarCtrl属性窗口里选择Panels标签,单击Insert按钮添加一个面板,或单击Remove按钮删除一个面板。

(3) 在单面板里显示文本

 在SBarCtrl属性窗口里选择General标签,在SimpleText框里输入想显示在状态条面板里的文本。用代码显示的方式是:

StatusBar1.SimpleText = "New string to appear"

(4) 在多面板里显示文本或图形

1). 在SBarCtrl属性窗口里选择Panels标签,用Index旁的按钮选择面板序号。

2). 在Text框里输入想显示在状态条面板里的文本。

3). 如果想加入图形,单击Browse按钮打开一个图形选择对话框,选择想加入的图形,然后单击打开按钮。

4). 最后按确定按钮。

5). 用代码显示的方式是:StatusBar1.Panels(x).Text = "New string to appear"

6). 编写代码 

如果是一个单面板状态条,当用户单击状态条时,只需用下面的事件过程来响应:

Private Sub StatusBar1_Click()

End Sub

如果是一个多面板状态条,就需要鉴别用户单击的是哪一个面板,可用下面的事件过程来识别用户所单击的面板:

 Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)

 Select Case Panel.Index

 Case 1

 'Code to follow if user clicks the first panel

 Case 2

'Code to follow if user clicks the second panel

 Case 3

'Code to follow if user clicks the third panel

 End Select

 End Sub


热门推荐:学起来比较困难吗?来报个辅导班一起学习吧,仅需100元,2个月通过国家计算机二级考试!点击进入

分享到:
0
相关阅读
友情链接
© 2018 我考网 http://www.woexam.com 中国互联网举报中心 湘ICP备18023104号 京公网安备 11010802020116号
违法和不良信息举报:9447029@qq.com