2.5 设计状态条、工具栏、进程条等0 w. W6 B! b- O' M; P: A m
1.创建状态条5 g i- l7 S7 ~$ w
选中状态条,按F4键进入属性窗口,双击(Custom)可以进入主要的设置窗口SBarCtrl属性窗口。7 Q5 j# p, D8 ]" h: j+ q
(1) 选择面板形状
! F2 n8 r, ^2 O/ {9 B3 s8 r: W4 I 在SBarCtrl属性窗口里选择General标签,在Style列表框里选择多面板(缺省形式)或单面板简单文本形式。
! `; D- |) a3 b, g" P3 {7 K (2) 添加或删除状态条面板( C- U2 x3 r$ Z8 E3 w0 `) k
在SBarCtrl属性窗口里选择Panels标签,单击Insert按钮添加一个面板,或单击Remove按钮删除一个面板。
& i* F, {. L0 p6 l) C' l2 D (3) 在单面板里显示文本6 t6 V4 ^. n8 P4 W, b: S
在SBarCtrl属性窗口里选择General标签,在SimpleText框里输入想显示在状态条面板里的文本。用代码显示的方式是:
; r6 [7 y& V t- r' N7 t StatusBar1.SimpleText = "New string to appear"
3 O+ E5 j$ f4 | (4) 在多面板里显示文本或图形
& F- B, f( k. S: F( a7 l; B. s5 N/ h1 @ 1). 在SBarCtrl属性窗口里选择Panels标签,用Index旁的按钮选择面板序号。; S6 W# k0 s* I& `3 n
2). 在Text框里输入想显示在状态条面板里的文本。+ m: X. G5 h9 M; l+ O) m0 ~2 x
3). 如果想加入图形,单击Browse按钮打开一个图形选择对话框,选择想加入的图形,然后单击打开按钮。
, ?3 x" A( `# Z# ~( A 4). 最后按确定按钮。3 M1 Y- F/ p1 C
5). 用代码显示的方式是:StatusBar1.Panels(x).Text = "New string to appear"
* a C s& Z. ?" Q* `3 L 6). 编写代码1 D4 y8 S& T( T4 W- t% {: t/ ]
如果是一个单面板状态条,当用户单击状态条时,只需用下面的事件过程来响应:" ^) K6 v8 m6 _# u( ?- r
Private Sub StatusBar1_Click()
" b$ `9 f' D2 b: o% J End Sub
7 ~) B' y4 n) ]; Y( u 如果是一个多面板状态条,就需要鉴别用户单击的是哪一个面板,可用下面的事件过程来识别用户所单击的面板: T: z# {& w7 S+ ^" S1 q
Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)2 N" [" \' L3 p0 k/ Z+ n7 D+ f" d
Select Case Panel.Index6 F! e% p7 q W
Case 1
+ X9 n0 n7 B& ^- d1 n! q$ | 'Code to follow if user clicks the first panel
/ I4 p6 j! h; N) [5 O; g/ e Case 2
# E: C6 x6 a. z$ ~ k+ z* g 'Code to follow if user clicks the second panel6 |, M7 v: [7 ]; M
Case 3
7 q; I C- h6 m 'Code to follow if user clicks the third panel
0 r, C) b8 `% v/ Y g End Select1 E! B- d( S% V
End Sub" ]5 Y0 t; `0 s5 _; h3 h& B8 |
2.创建工具栏0 n% ?; i- O4 n9 C3 P& X% O" p: K# t
(1)建立工具条9 F0 ?# S4 x" |5 A) j) _
1).在工具箱里单击工具条图标,拖到窗体的任何位置,Visual Basic自动将ToolBar移到顶部。6 Y. |' T) F- l0 N
2).按F4键打开属性窗口。
& w' F- r( d2 A 3).双击(Custom),打开ToolBar属性窗口。9 ]# R8 O, R1 v- H" y
4). 选择Buttons标签。1 E" P. U$ m9 [: ]2 n
5). 单击Insert按钮,Visual Basic就会在你的工具条上显示一个空按钮,现在为你的每一个按钮重复这一步。
2 k% ^2 u8 E& n! ?2 h 6). 单击确定按钮。
% {7 p/ S# h) S& f; n: Z2 e; ^ 如果想把按钮分组,首先生成一个分隔的按钮,再在刚才提到的对话框里将这个按钮的Style属性改为3-Separator。
( l4 h9 C. i$ d& _$ F, \) ?0 n (2) 为工具条增加图画
' _$ |3 E+ s/ k& q: s E; P. h 1). 在Visual Basic工具箱里单击ImageList图标,并将它拖到窗体的任何位置(位置不重要,因为它总是不可见的)。
6 E1 a& v" s" r) P) ?# f0 a& \ 2). 按F4打开属性窗口。
- ?; F! t/ q; Z7 C8 X 3). 双击(Custom),打开ImageListCtrl属性窗口。% L, z: K- j0 X1 ?. n/ d# ^
4). 选择Image标签。
( U4 u0 N9 d4 j, s; X, [& {) C 5). 单击Insert Picture,在现在图形的对话框里选择想使用的位图或图标,然后单击打开按钮。为每个想添加图形的工具条按钮重复此步。' G5 j( G1 `: V
6). 单击确定按钮。( A$ U6 T4 L" B4 H+ Z+ P
7). 单击工具条,按F4,双击(Custom),显示ToolBar属性对话框。
6 R |& w& Y5 l6 a q; r 8). 选择General标签,在ImageList框里选择刚才添加的ImageList控件。1 }9 p& g/ Z# Z
9). 选择Buttons标签,单击紧挨Index框的向左或向右箭头以选择一个按钮序号。出现在工具条最左边的按钮序号为1。+ v; J: A: `' ?& m& p: J
10). 在Image框里输入一个数,输入为1,则显示刚才ImageList控件里的第一个图形,输入为2,则显示刚才ImageList控件里的第二个图形。/ D d8 I! l, I7 H. a9 x0 h
11). 为每个按钮重复第10步。
) ^7 F% Q3 d) ~( O. [' X 12). 单击确定按钮,现在Visual Basic就会在工具条上显示精美的图形了。 |