第二章 VB的界面设计 {中}

2.3 控件

1.       常用控件介绍

         （1）标准控件一

TextBox 文本框 Timer计时器 HscrollBar水平滚动条 ListBox列表框 Pointer 指针 VScrollBar 垂直滚动条 CheckBox 复选框 Label标签 DirListBox 文件夹列表框 PictureBox图片框 Line 线条 DriveListBox 驱动器列表框 ComboBox 组合框 Shape 图形 FileListBox文件列表框 OptionButton选项按钮 Image图象 Data 数据控件 CommandButton 命令按钮 Frame 框架 OLE控件

（2）      常用控件的属性、方法和事件

公共属性	Name、Caption、Enabled、Fantsize、Height、Width、Index、Left、Top、 TabStop
公共方法	Move、Refresh、Setfocus（设置焦点）
公共事件	Click、DblClick、LostFocus（失去焦点）

控件名称	属性、方法、事件	说明
TextBox  文本框 （用于接受用户在框内输入的内容）	Text属性	即用户从文本框输入的内容
	PasswordChar属性	设置口令时用的掩码，如：用*代替实际输入的内容
	MaxLength属性	最大长度，缺省值是0，即可以输入任意个字符
	MultiLine属性	为True时可以多行文本，为False时只能输入一行文本
	Alignment 属性	文本在框中的对齐方式：0=左对齐，1=右对齐，2=居中
	Chang事件	当框中的文本内容发生变化时触发该事件
	LostFocus事件	当光标离开文本框时触发该事件
Label 标签（用于在窗体上添加文字说明）	Alignment属性	Caption文本的对齐方式：0=左对齐，1=右对齐，2=居中
	WordWrap属性	为True时可根据标签大小自动换行
	AutoSize属性	自动调节大小，为True时可根据文本大小自动调整标签大小，为False时标签大小不能改变，过长的文本被截掉
ListBox 列表框 （用于列出可供用户选择的项目列表）	List属性	用于保存列表内容，访问： [对象名]. List（列表项序号） 列表项的序号由上到下依次为0、1、2、3……
	ListCount属性	列表项数目
	ListIndex属性	列表项索引，其值为最后选中的列表项序号，第一个为0，如果未选中任何表项，其值为-1。
	Text属性	列表项正文，其值为最后选中的列表项的文本，它与 List（ListIndex）相同。
	Columns属性	列表框显示形式取0时为一列显示所有行，其他值为多列。
	Sort属性	排序属性，为True时，列表项按ASCII码排序，为False时，则不排序。
	AddItem方法	添加列表项，使用格式： [ 对象名.] AddItem<列表项文本>[，插入位置序号] 若不指定位置，则插入到列表末尾。
	Clear方法	删除列表所有项目
	RemoveItem方法	删除列表项，使用格式： [ 对象名 .] RemoveItem  删除项序号
PictureBox 图片框 Image  图象（用来把图形放入程序里）	AutoSize/Stretch 属性	调整图片框以适应图象 / 调整图象以适应外框
	Picture属性	决定控件中显示的图象
		装入图形: imgMyHand.Picture = LoadPicture ( “c:\graphics\hand.bmp” ) 删除图形:  imgMyHand.Picture = LoadPicture ( “ ” )
ComboBox 组合框（将列表框和文本框结合在一起）	Style属性	外观属性：取0时，系统创建一个带下拉式列表框的组合框；为1时，系统创建一个由文本框和列表框直接组合在一起的简单组合框，可以从列表框中选择，也可以直接在文本框中输入；为2时，系统创建一个没有文本框的下拉式列表框，单击列表框上的按钮才显示文本框，用户不能在文本框中输入，只能在列表框中选择。
	Text 属性	其值为用户从列表框中选定的文本或直接输入的文本。
	AddItem方法	添加列表项，使用格式： [ 对象名.] AddItem<列表项文本>[，插入位置序号] 若不指定位置，则插入到列表末尾。
	Clear方法	删除列表所有项目
	RemoveItem 方法	删除列表项，使用格式： [ 对象名 .] RemoveItem  删除项序号
CommandButton 命令按钮	Cancel属性	取消属性，它为True时, 按〖ESC〗即等于单击此按钮。
	Default属性	缺省属性，它为True时, 按回车键即等于单击此按钮。
Timer计时器	Interval属性	两次调用Timer事件的事件间隔，用于创建动态效果。
Frame 框架 CheckBox 复选框 OptionButton选项按钮	Alignment属性	决定它们的对齐方式，0=左对齐，1=右对齐。
	Value属性	决定它们是否被选中的属性

2.       常用控件的使用辨析

（1）文本框和标签的区别：

    文本框通常用于向计算机输入信息，而标签通常用于输出信息。文本框是一个十分重要的控件，因为由复选框和选项按钮向程序输入的信息毕竟只有少数的几条信息而已。标签和文本框的区别很小，标签可以看成是一个在运行时不能修改正文的文本框，因此标签主要用于输出信息。

(2)  Label的AutoSize属性和WordWrap属性

　　　¨     为了使标签具有垂直伸展和字换行处理，必须设置它的AutoSize属性和WordWrap属性同时为True。
　　
　　 ¨     AutoSize属性为False，WordWrap属性为False时，若标签不够高而Caption太长时，Caption将被切割掉。
　　
　　 ¨     AutoSize属性为False，WordWrap属性为True时，情况也如此。
　　
　　 ¨      AutoSize属性为True，WordWrap属性为False时，表示可以水平伸展，但只显示一行信息。

(3) PictureBox和Image的Stretch属性和AutoSize属性

　　　¨  Image只有Stretch属性，而PictureBox只有AutoSize属性。
　　
　　 ¨   AutoSize属性设为True，则PictureBox改变自己的大小来适应其中的图形。
　　
　　 ¨   Stretch属性设为True，则Image中的图形将改变自己的大小来适应外面的边框。

（4）Frame 框架、CheckBox 复选框、OptionButton选项按钮的区别：

　　　¨  复选框和选项按钮用于向程序输入信息, 框架用来对复选框和选项按钮进行分组。
　
　 　¨   复选框选中时会在小方框里打一个钩，选项按钮选中时会在小圆圈里点一个点。

3．控件使用举例

   例3、4

2.4    定制菜单

1．   菜单概述

　　Windows中的菜单一般由菜单条、菜单、菜单项、子菜单、弹出式菜单组成。

2．   普通菜单的设计

（1） 给菜单命名

   菜单标题和菜单命令也有Caption和Name属性，设置了这两个属性就等于创建了菜单。Name是一个抽象名称，Caption是屏幕上可见的，可在Caption里加入 “&” 来设置热键。

（2）  增加和删除菜单

    在Menu Editor中部有三个命令钮分别是下一个、插入、删除。插入可用来增加新的菜单。在这三个键下面的Caption列表框里选中菜单项（这时它的底色就变成深蓝色），单击插入键，Visual Basic将上一个增亮菜单下推并增亮一空行，就可以输入新菜单名和标题了。删除键可用来删掉菜单。选中要删掉的菜单，单击Delete键就可以删掉它了。

（3）  移动菜单标题

    有 四种情况：向上移动，向下移动，向左缩排，向右缩排，选中某一菜单标题，安上下箭头，则这个菜单将上下移动到你喜欢的位置上，这也决定了它在界面中的位 置。如果按左右箭头，情况则有所不同。由于菜单是分级的，所以，如果它没有缩排，则它是一个菜单标题；如果它缩排一次，那么它将变成一个菜单命令；如果缩 排两次，那么它将成为一个子菜单命令。VB里可以总共设计四层子菜单。

（4）  设置分离条

     分离条是指在菜单中将命令分组的线，VB将分离条也看成一个菜单项，它也需要Caption和Name属性，而且也有其它属性，分离条与菜单项的区别是分离条的Caption属性必须是连字号即减号。也就是，当设置了一个Caption属性为 “-” 的菜单项时，实际上就设置了一个分离条，分离条的名字可以是barFile1之类，以表明分离条的位置。

（5） 菜单的各种简单属性

  在菜单编辑器里有许多确认框和一些文本框及一个下拉式的列表框，这些决定了菜单的各种属性。

1) Checked 复选属性

    这个属性值设置为真，将在菜单命令左边产生一个打勾的确认标志。

2) Enabled有效属性

    各种各样的用户会产生千奇百怪的操作，在许多Edit菜单里都会有不同形式的让菜单命令模糊的情况。Enabled属性为真，则菜单命令是清晰的，Enabled属性为假，则菜单命令是模糊的，这时用户就不能选中这个菜单项了。

3) Visible 可见属性

   对暂时不用的菜单， 如果把Visible属性设为假，则菜单根本不会出现在屏幕上。这样做比把Enabled属性设为假显得更加干脆！

4) Index属性

    可以生成菜单命令数组，用索引号区分开。例如向File菜单中添加一系列最近打开的文件名。添加菜单可用Load方法。以上属性可以在运行时设置，形成动态的菜单的情况。

　　例如：

　　　mnuUndo.Enabled = False

　　　mnuProperty.Visible = False

　　　　还可以改变Caption等属性。

　　　　mnuUndo.Caption = “Redo”

（6）为每个菜单项编写事件过程代码

3. 生成弹出式菜单（或浮动菜单）

    几乎每个Windows应用程序都提供弹出式菜单，用户可以右键单击窗体或控件取得这个菜单。弹出式菜单也属于普通菜单，只是不固定在窗体上，而是可以在任何地方显示。

   弹出式菜单用PopupMenu方法调用。假设已经用菜单编辑器生成了名为mnuedit的菜单，则可以在MouseUp事件加入如下代码就可以生成弹出式菜单：

  If Button = 2 Then PopupMenu mnuedit

4．菜单设计示例

  例 5

2.5     设计状态条、工具栏、进程条等

1．  创建状态条

     选中状态条，按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

2．  创建工具栏

1. 建立工具条

　　1).在工具箱里单击工具条图标，拖到窗体的任何位置，Visual Basic自动将ToolBar移到顶部。

　　2).按F4键打开属性窗口。

　　3).双击（Custom），打开ToolBar属性窗口。

　　4). 选择Buttons标签。

　　5). 单击Insert按钮，Visual Basic就会在你的工具条上显示一个空按钮，现在为你的每一个按钮重复这一步。

　　6). 单击确定按钮。

    　　如果想把按钮分组，首先生成一个分隔的按钮，再在刚才提到的对话框里将这个按钮的Style属性改为3-Separator。

（2） 为工具条增加图画

　　1). 在Visual Basic工具箱里单击ImageList图标，并将它拖到窗体的任何位置（位置不重要，因为它总是不可见的）。

　　2). 按F4打开属性窗口。

　　3). 双击（Custom），打开ImageListCtrl属性窗口。

　　4). 选择Image标签。

　　5). 单击Insert Picture，在现在图形的对话框里选择想使用的位图或图标，然后单击打开按钮。为每个想添加图形的工具条按钮重复此步。

　　6). 单击确定按钮。

　　7). 单击工具条，按F4，双击（Custom），显示ToolBar属性对话框。

　　8). 选择General标签，在ImageList框里选择刚才添加的ImageList控件。

　　9). 选择Buttons标签，单击紧挨Index框的向左或向右箭头以选择一个按钮序号。出现在工具条最左边的按钮序号为1。

　　10). 在Image框里输入一个数，输入为1，则显示刚才ImageList控件里的第一个图形，输入为2，则显示刚才ImageList控件里的第二个图形。

　　11). 为每个按钮重复第10步。

　　12). 单击确定按钮，现在Visual Basic就会在工具条上显示精美的图形了。

（3） 为工具条添加文本信息

   　 在ToolBar属性对话框中选择Buttons标签，在Caption框里输入想显示在按钮上的文本。

（4） 添加ToolTips

   　　 ToolTips是一种当点到工具按钮时弹出的小标签。ToolTips很方便，可以告诉那些新手每个按钮是干什么用的。在刚才提到的ToolBar属性对话框中选择Buttons标签，在ToolTipText框里输入想作为ToolTip的文本。

（5） 编写代码

　　　双击工具条，以下面的格式输入代码就可以了：

　　　Private Sub Toolbar1_ButtonClick(ByVal Button As Button)

　　　　　　Select Case Button.Index

　　　　　　　　　　Case 1

　　　　　　　　　　　　　'Code to follow if user clicks the first button

　　　　　　　　　　Case 2

　　　　　　　　　　　　　　'Code to follow if user clicks the second button

　　　　　　　　　　Case 3

　　　　　　　　　　　　　　'Code to follow if user clicks the third button

　　　　　　End Select

　　　　End Sub

3．  创建进程条

 　　进程条的三个属性：

　　(1). Min属性代表进程条全空时的值，缺省时为0。

　　(2). Max属性代表进程条全空时的值，缺省时为100。

　　(3) Value属性代表进程条当前的值（不用在属性窗口里找这个属性，它不出现在属性窗口中，但它的确存在），它大于Min属性，小于Max属性。改变Value属性的值将改变进程条的进度显示。

  　 为了了解进程条的功能，在窗体里添加一个进程条和一个命令钮，双击命令钮进入代码窗口，键入如下代码：

　　　Private Sub Command1_Click()

　　　　　　　If ProgressBar1.Value < ProgressBar1.Max Then

　　　　　　　　　　ProgressBar1.Value = ProgressBar1.Value + 5

　　　　　　　　Else

　　　　　　　　　　ProgressBar1.Visible = False ‘当进程条满了的时候让进程条消失

　　　　　　　　End If

　　　End Sub

4．  创建滑块

（1）. 选择滑块的外观

　　　1). Orientation属性决定滑块的方位，可以是垂直的或水平的滑块。

　　　2). TickStyle属性决定滑块标记的样子。

　　　3). TickFrequency属性规定了沿着滑块的标记的间隔大小，缺省的状态是1，表明每个可能值都出现标记，如果把值设置为3，则每三个可能值出现一个标记。

（2） 滑块的Min，Max，Value属性

     　这三个属性和进程条的这三个属性差不多，Min，Max表示滑块的最小和最大值，Value表示进程条的当前值。

（3） 滑块的LargeChange，SmallChange属性

   　  LargeChange规定了当用户用鼠标单击滑块时，滑块可移动的距离。SmallChange规定了用户按左箭头或右箭头时滑块的移动距离。

5. 创建TabStrip页框控件