第二章 创建用户界面 本章重点和难点 2.1 基本属性 2.2 创建窗体 2.3 Visual Basic的常用控件 2.4 制作菜单

本章重点和难点 掌握窗体常用的属性、方法和事件 掌握标准控件常用的属性、方法和事件 掌握下拉式菜单的设计 了解弹出式菜单的设计

基本属性 8. BackColor Name 9. BackStyle Caption 10. BorderStyle 11. Alignment 12. AutoSize 13. WordWarp 14. TabIndex 15. 控件默认属性 Name Caption Height,Width,Top,Left Enabled Visible Font ForeColor

Name（名称）属性 该属性是所有对象都具有的属性。所有的控件在创建时由VB自动提供一个默认名称。程序中，对象名称是作为对象标识而引用，不会显示在窗体上。

Caption（标题）属性 该属性决定了控件上显示的内容

Height,Width,Top,Left属性 0,0 Top Height Left Width 例

Enabled属性 Enabled属性决定控件是否允许操作： True：允许用户进行操作，并对操作作出响应 False：禁止用户进行操作，呈暗淡色。

Visible属性 Visible属性决定控件是否可见： True：程序运行时控件可见 False：程序运行时控件隐藏，用户看不到，但 控件本身存在

Font属性 Font属性改变文本的外观，其分属性有： FontName（字符型）控件上正文字体名 FontSize（整型）控件上正文字体大小 FontBold（逻辑型）控件上正文是否是粗体 FontItalic （逻辑型）控件上正文是否是斜体 FontStrikethru （逻辑型）控件上正文是否加删除线 FontUnderline （逻辑型）控件上正文是否带下划线

ForeColor、 BackColor 属性 该属性用来设置控件的前景颜色（即正文颜色）。其值是一个16进制常数，用户也可以直接在调色板中选取所需颜色。 BackColor（背景颜色） 设置正文以外的显示区域颜色。

BackStyle （背景风格）属性 0——Transparent：透明显示，即控件背景颜色显示不出来，若控件后面有其它控件均可透明显示出来。 1——Opaque：不透明，此时可为控件设置背景颜色。

BorderStyle （边框风格）属性 0——None：控件周围没有边框。 1——Fixed Single：控件带有单边框。

Alignment属性 Alignment属性决定控件内的对齐方式。 0——Left Justify：正文左对齐 1——Right Justify：正文右对齐 2——Center：正文居中

AutoSize属性 AutoSize属性决定控件是否自动调整大小。 True：自动调整大小。 False：保持原设计时的大小，正文若太长自动裁剪掉。

WordWarp属性 AutoSize属性设置为True时，WordWarp属性才有效。 False：在水平方向上按正文长度放大或缩小；在垂直方向上以字体大小来放大或缩小显示区域。

TabIndex属性 TabIndex属性决定了按Tab键时，焦点在各个控件移动的顺序。 焦点是接受用户鼠标或键盘输入的能力。当对象具有焦点时，可接受用户的输入。

控件默认属性 VB中把某个控件的最重要属性称为该控件属性的值或默认属性，在程序运行时，可以直接改变控件的值，而不必指定该控件的哪个属性。如： txtInput.Text = “Visual BASIC” 与 txtInput = “Visual BASIC” 等价

2.2 窗体(Form) 1 窗体的属性 2 事件 3 方法

窗体的属性 基本属性 Caption属性 MaxButton属性 MinButton属性 ControlBox属性 Icon Caption MaxButton 基本属性 Caption属性 MaxButton属性 MinButton属性 ControlBox属性 BorderStyle属性 Icon属性 Picture属性 WindowsState属性 MinButton Picture ControlBox BorderStyle

窗体响应的事件 Click事件 DblClick事件 Load事件 Activate事件 此事件是在一个窗体被装载时发生。该事件通常用来在启动应用程序对属性和变量进行初始化。 Activate事件 当一个窗体成为活动窗口时所触发的事件。

窗体执行的方法 Hide Show方法 Print 方法 Cls方法 Move方法

Hide 、Show 方法 Hide方法：隐藏窗体 窗体名.Hide 注意： Hide方法只是将窗体隐藏，并没有将窗体从内存中删除

Print 方法 对象：可以是窗体名、PictureBox或Printer,缺省值为当前窗体。 Spc(n)函数：用于在输出时插入n个空格。 [对象.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 对象：可以是窗体名、PictureBox或Printer,缺省值为当前窗体。 Spc(n)函数：用于在输出时插入n个空格。 Tab(n)函数：用于在输出表达式列表前向右移动n列。 表达式列表：要输出的数值或字符串表达式。 ；(分号)：表示光标定位上一个显示的字符后。 ，(逗号)：表示光标定位在下一个打印区的开始位置，打印区每隔14列开始。

Cls方法 Cls方法用于清除运行时在窗体或图形框中显示的文本或图形。形式如下： [对象.]Cls 其中：对象为窗体或图形框，缺省值为窗体。 例如： Picture1.Cls ‘清除图形框内显示的图形或文本 Cls ‘清除窗体上显示的文本

Move方法 对象：可以是窗体及除时钟、菜单外的所有控件，缺省值为窗体 。 Move方法用于移动窗体或控件，： 左边距离、上边距离、宽度、高度：数值表达式，以twip为单位。

常用控件 标签 文本框 命令按钮 单选钮和复选框 框架 列表框 组合框 滚动条 时钟控件

标签（Label） 标签主要用来显示（输出）文本信息的，但是不能作为输入信息的界面。 常用属性： Caption、Autosize、 WordWarp 标签能接收的事件有： 单击（Click）、双击（DblClick）和改变（Change）

文本框（TextBox） 文本框是一个文本编辑区域，用户可以在该区域输入，编辑，修改和显示正文内容。 文本框重要属性 Text MaxLength MultiLine ScrollBars Locked SelStart, SelLength, SelText 文本框重要事件 Change KeyPress LostFocus 文本框重要方法 SetFocus

Text文本属性 在文本框中显示的正文内容存放在Text属性中。当程序执行时，用户通过键盘输入正文内容，VB自动将其保存在Text属性中。

MaxLength属性 MaxLength属性指明文本框中能够输入的正文内容的最大长度。 0：任意长字符串 非零值：文本框中字符个数的最大值。 注意：VB中一个汉字的长度相当于一个西文字符。

MultiLine多行属性 当MultiLine属性为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行的功能，即输入的正文超出显示框时，会自动换行。按Ctrl+Enter可插入一空行。

ScrollBars属性 当MultiLine属性为True时，ScrollBars属性才有效。 0——None：无滚动条 1——Horizontal：加水平滚动条 2——Vertical：加垂直滚动条 3——Both：同时加水平和垂直滚动条

Locked属性 Locked属性指定文本控件能否被编辑，默认值为False，表示可编辑，当设置为True时，文本控件相当于标签的作用。

SelStart、SelLength和SelText属性 在程序运行中，对文本内容进行选择操作时，这三个属性用来标识用户选中的正文。 SelStart ： 选定的正文的开始位置，第 一个字符的位置是0。 SelLength ：选定的正文的长度。 SelText： 选定的正文内容。

Change事件 当用户输入新内容或当程序将Text属性设置为新值从而改变文本框Text属性时会引发该事件。当用户键入一个字符时，就会引发一次Change事件。例如用户键入Hello一词时，会引发五次Change事件。

KeyPress事件 当用户按下并且释放键盘上的一个ANSI键时，就会引发焦点所在控件的KeyPress事件，此事件会返回一个KeyAscii参数到该事件过程中。例如，当用户键入字符“a”时，返回KeyAscii的值为97，通过Chr(KeyAscii)可以将ASCII码转换为字符“a”。

LostFocus事件 此事件是在一个对象失去焦点时发生，焦点的丢失或者是由于Tab移动或者单击另一个对象操作的结果。 LostFocus事件过程主要是用来对数据更新进行验证和确认。常用于检查Text属性的内容，比在Change事件过程中检查更为有效。

SetFocus方法 SetFocus方法是把光标移到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框上。其形式如下： [对象.] SetFocus

命令按钮 程序运行时，常用以下方法选中命令按钮： （1）用鼠标单击。 （2）用Tab键将焦点移到相应按钮上，再按回车键。 （3）按快捷键。 命令按钮的重要属性 Caption，Default，Cancel，Value， Style， Picture，ToolTipText 命令按钮接收Click事件

Caption（标题）属性 在Caption属性设置时，如果某个字母前加入“&”，则程序运行时标题中的该字母带有下划线，该带有下划线的字母就成为快捷键。当用户按下ALT+快捷键时，便可激活并操作该按钮。例如，在对某个按钮设置其Caption属性时键入&OK，程序运行时就会显示OK，当用户按下ALT+O时便可激活并操作OK按钮。

Default（确认）属性 只有命令按钮支持Default属性。当Default属性值为True时，按Enter键相当于用鼠标单击了该按钮。在一个窗体中只能有一个按钮的Default属性设为True。当某按钮的Default属性值设为True以后，该窗体中的所有其它按钮的Default属性全部被自动设为False。

Cancel（功能取消）属性 当Cancel属性值为True时，按此按钮与按Esc键的效果相同。在一个窗体中只能有一个按钮的Cancel属性值可为True，其它按钮的Cancel属性自动变为False。

Value（检查按钮状态）属性 该属性在设计阶段无效，只能在程序运行期间设置或引用，用于检查该按钮是否被按下。True表示该按钮被按下，False（缺省）表示按钮未被按下。在程序运行过程中，只要Value值为True，便可引发按钮的Click事件转去执行相应的程序。

Style属性 返回或设置一个值，该值用来指示控件的显示类型和行为。在运行时是只读的。 0——Satndard（缺省）：标准的，按钮上不能显示图形。 1——Graphical：图形的，按钮上可以显示图形的样式，也能显示文字。

Picture（图片）属性 该属性用以在图形的命令按钮（Style属性值为1的命令按钮）上显示图片文件（.bmp和 .ico），VB5.0中的图片文件存放在VB文件夹的Graphic子文件夹中。

ToolTipText（工具提示）属性 与Picture图片属性同时使用。如果仅用图象作为对象的标签，那么能够使用较少的文字解释每个对象。

单选钮和复选框 1. 属性 2. 事件 3. 例2.3

单选钮和复选框的基本属性 Caption属性：设置控件旁边的文本标题 Alignment属性：设置对齐方式 Value属性：表示单选按钮和检查框的选中状态 单选按钮：True（选中）,False（未选中） 复选框：0（未选中）, 1（选中）, 2（灰化） Style属性：设置单选按钮和检查框的样式 0：标准方式 ; 1：图形方式

单选钮和复选框的事件 单选钮和复选框都可以接受Click事件 注意： 1 每次单击单选钮一次，其Value值总是为True 2 复选框的选择有点象开关，单击一次， Value值为True，再单击一次， Value值为False，所以一般在其Click事件中，需要对其原来的状态进行判断，才能知道Value属性的值

例2.3单选钮与检查框 Private Sub chkstrikethrough_Click() txtvb.Font.Strikethrough = Not txtvb .FontStrikethrough End Sub Private Sub chkunderline_Click() txtvb.Font.Underline = Not txtvb.Font.Underline End Sub Private Sub optblack_Click() txtvb.FontName = "黑体" End Sub Private Sub optsong_Click() txtvb.FontName = "宋体" End Sub

框架(Frame) 1. 属性 2. 事件

属性 基本属性 Name、Width、Height、Top、Left、ForeColor、BackColor、Font和Index 常用属性 Caption属性：设置框架的标题 Enabled属性（True、False） Visible属性（True、False）

事件 框架可以响应Click和DblClick事件。但是，在应用程序中一般不需要编写有关框架的事件过程。

滚动条(ScrollBar) 1. 属性 2. 事件

属性 基本属性 Name,Width,Height,Top,Left, Enabled, Visible, Max 最大值属性（滑块处于最大位置时的值） Min 最小值属性（滑块处于最小位置时的值） SmallChange 最小变动值属性（单击两端箭头时，滑块移动的增量值） LargeChange 最大变动值属性（单击滚动条的空白处时，滑块移动的增量值） Value 值属性（滑块所处位置所代表的值）

事件 Scroll事件 当拖动滑块时，触发Scroll事件 Change事件 当改变Value属性值时，触发Change事件

滚动条应用举例 代码

列表框(ListBox) 1. 属性 2. 方法

属性 List属性 ListIndex属性 ListCount属性 Selected属性 Sorted属性 Text属性 MultiSelect属性

List属性 该属性是一个字符型数组，存放列表框的项目。如右图,List(0)是南京，List(2)是北京。List属性既可以在设计状态设置，也可以在程序中设置与引用。

ListIndex属性 该属性只能在程序中（运行状态下）设置与引用 ListIndex的值表示执行中的列表框序号。如果未选中任何项，则ListIndex的值为-1。

ListCount属性 该属性只能在程序中（运行状态下）设置与引用 ListCount的值表示列表框中项目的数量。ListCount-1表示列表中最后一项的序号。

Selected属性 该属性只能在程序中设置与（运行状态下）引用。 Selected属性是一个逻辑数组，其元素对应列表框中相应的项，表示对应的项在程序运行期间是否被选中。例如，Selected(0)的值为True表示第一项被选中，如为False表示未被选中。

Sorted属性 该属性只能在设计状态设置 Sorted属性决定列表框中项目在程序运行期间是否按字母顺序排列显示。如果Sorted为True，则项目按字母顺序排列显示，

Text属性 该属性为是默认属性，只能在程序中设置和引用。 Text属性值是被选中列表项的文本内容。

MultiSelect属性 0——None：禁止多项选择。 1——Simple：简单多项选择。鼠标器单击或按空格键表示选定或取消选定一个选择项。 2——Extended：扩展多选项。

方法 AddItem方法 RemoveItem方法 Clear方法

AddItem方法 AddItem方法把一个项目加入列表框，其形式如下： 对象.AddItem item [，index] 其中： 对象：可以是列表框或组合框。 item：字符串表达式，要加入对象的项目。 index: 新增项目在对象中的位置。

RemoveItem方法 从列表框中除去一个项目。其形式如下： 对象.RemoveItem index 其中： 对象：可以是列表框或组合框。 返回

Clear方法 清除列表框中的所有项目。其形式如下： 对象.Clear Clear方法适用于列表框、组合框和剪贴板。 返回

组合框(ComboBox) ComboBox 控件将 TextBox 控件和 ListBox 控件的特性结合在一起－既可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。 下拉式组合框（Style属性为0，缺省） 简单组合框（Style属性为1） 下拉式列表框（Style属性为2）

时钟(Timer) 1 属性 2 事件

时钟属性 基本属性 Name、Left、Top和Index等基本属性 Interval属性 该属性表示两个计时器事件之间的时间间隔，其值以ms(0.001s)为单位 Enabled属性 True: 使时钟控件有效，开始有效计时 False: 停止时钟控件工作

时钟事件 时钟控件只有一个Timer事件

菜单的设计 1.下拉菜单设计示例 2.弹出菜单

菜单设计示例 界面

菜单设计示例运行界面

弹出菜单 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Cal2, 2 End If End Sub

弹出菜单示例程序界面