表6.1部分控件属性设置
控件 InputPassword文本框 DisplayPassword文本框 text 属性 PasswordChar 属性值 * （空） 2．在三个命令按钮的Click事件过程中编写相应的处理代码。 提示：利用文本框的PasswordChar属性指定密码的遮掩符。
实验6.2 按下图6-2界面设计程序，使得程序能够正确判断用户的选择。
图6-2 单选框与复选框的使用
【实验要求】
每当重新选择一个新的学生姓名单选框时，“选择课程”框架中的复选框全部被置为未选中。
单选框与复选框的选中或取消选中操作，要及时反映在下面的文字提示中。 【实验步骤】
1．按照图6-2在窗体上生成需要的控件。其中，通过一个框架将三个学生姓名单选框组合成一组，通过一个框架将三个课程复选框组合成一组。下面的文字提示设计成两个标签控件，一个显示用户选择的学生姓名，另一个显示用户选择的课程。
2．编写单选框与复选框的Click事件处理代码。 提示：
1．复选框的Value属性，在被选中时为1，未被选中时为0；
2．单选框的Value属性，在被选中时为True，未被选中时为False，并且只要某个单选框被单击，就会被选中（其余单选框自动清除选中）。
实验6.3 按下图6-3设计程序界面，使得用户能够更变显示字符串的字体。 【实验要求】
1．文本“Visual Basic 程序设计”在一个标签上显示。
2．字号选择用组合框实现，字体选择用列表框实现，通过四个复选框设置文字特效。 3．窗口上字符串的显示依用户的选择而相应变化。 【实验步骤】
1．按照图6-3在窗体上生成需要的控件。部分控件的部分属性初始值按表6.2进行设置。
2．编写组合框、列表框与复选框的Click事件处理代码。
- 26 -
图6-3 使用复选框、列表框与组合框控制Font属性
表6.2部分控件属性设置
控件 标签 属性 Caption 属性值 Visual Basic 程序设计 10 15 20 25 30 黑体 隶书 宋体 仿宋_GB2312 华文彩云 （选用的字体与具体机器系统有关） 组合框 List 列表框 List 提示：
1．组合框的Text属性提供用户输入或者选择的内容；列表框的Text属性提供用户选择的内容。
2．删除线涉及属性FontStrikethru，粗体涉及属性FontBold，斜体涉及属性 FontItalic，下划线涉及属性FontUnderline。 3．在属性窗口中，输入组合框或列表框的List属性时，通过组合键“Ctrl+Enter”换行。
实验6.4 按下图6-4设计程序界面，允许用户通过滚动条来调节文本框的宽度、高度与字体。
图6-4 实验6.4运行画面
- 27 -
【实验要求】
1. 程序初启时，各滚动条的值分别等于文本框的初始宽度、高度与字体。
2. 文本框宽度与高度的最小值为1，最大值刚好分别等于相应控制滚动条的宽度与高度。
【实验步骤】
1．按照图6-4在窗体上生成需要的控件，并按表6.3进行属性设置。
表6.3控件属性设置
控 件 控制宽度的水平滚动条 （HScroll1） 属 性 Min Max SmallChange Min Max SmallChange Min Max SmallChange MultiLine 属性值 1 自身的Width属性值 10 1 自身的Height属性值 10 2 72 1 True 控制高度的垂直滚动条 （VScroll1） 控制字体的水平滚动条 （HScroll2） 文本框
2．在各滚动条的Change事件过程中编写相应的处理代码。
提示:为了实现实验要求1，在窗体的Load事件过程中添中以下代码： HScroll1.Value = Text1.Width VScroll1.Value = Text1.Height HScroll2.Value = Text1.FontSize
实验6.5 定时器控件的使用，如图6-5所示。
【实验要求】
1．单击“计时”按钮时，显示流逝的秒数，单击“重新设置”按钮时返回到0，单击“暂停”按钮停止计时，单击“关闭”按钮关闭整个程序。
2．暂停后重新计时,可在暂停之前的基础上继续。 图6-5 计时器程序 【实验步骤】
1．按照图6-5在窗体上生成需要的控件。注意，有一个运行时不可见的计时器控件。部分控件的部分属性初始值按表6.4进行设置。
表6.4 部分控件属性设置
控件 计时器 标签 - 28 -
属性 Enabled Interval Caption 属性值 True 1000 (空) 2．编写各命令按钮的Click事件处理代码。 提示:
1. 利用其Enabled属性开关计时器。 2. 结束程序使用语句End。
实验6.6 按照下图6-6设计界面，使得程序能根据用户操作完成相应功能。
图6-6 鼠标与键盘事件处理程序 图6.7 帮助信息 【实验要求】
1．用户同时按下Ctrl+Alt+Ins组合键时，弹出一个图6-7的帮助信息框。
2．设计一个通过图像切换实现的简单动画，并由组合操作“鼠标右键+Shift键”，启动/停止动画。
3．用户按下F1功能键，能变更文本区域字符的显示颜色。 【实验步骤】
1．准备2张以上用于动画的卡通图标文件放在当前实验目录。可以通过Windows的开始菜单的“搜索”功能，查找机器上可能有的图标文件，在“要搜索的文件或文件夹名为：”处输入：*.ico。
2．按照图6-6在窗体上生成需要的控件。注意，有一个运行时不可见的计时器控件。部分控件的部分属性初始值按表6.5进行设置。
表6.5部分控件属性设置
控件或窗体 窗体 定时器 图像框 3．编写适当的事件处理代码 提示：
属性 KeyPreview Enabled Interval Picture 属性值 True True 100 (None) 1．动画通过每隔一定时间显示一张图片来实现。需要在窗口增加一个定时器控制时间间隔。每当Timer事件发生时，装载下一张图像文件，如：
Image1.Picture=LoadPicture(\使得构成动画的图像循环播放。
2．在窗口的KeyDown事件及MouseDown事件代码中检查用户按键。
- 29 -
3．文本框字符的颜色可以采用下面的颜色：vbRed、vbBlue、vbGreen、vbYellow、vbMagenta、vbCyan与vbBlack。
实验6.7 编写清理散落物品的程序，如图6-8所示。
图6-8 清理散落的物品
【实验要求】
1．散落的物品或者放入物品间，或者丢弃到垃圾框。
2．使用一个图像框数组表示物品间，一个图像框控件表示垃圾框。
3．物品在丢弃之前，显示一个信息框，询问是否确实要把该对象放入“垃圾框”，回答“是”则放入垃圾框站，对象从窗体上消失；回答“否”则对象仍回到原来的位置。
4．物品间的一个格子只容纳一个物品，如果欲将一个物品放入已有物品的格子中，则放入不能成功；不允许在格子间隔线上放置物品。
【实验步骤】
1．准备多张物品图像文件（图标文件）。
2．按照图6-8在窗体上生成需要的控件。部分控件的部分属性初始值按表6.6进行设置。
表6.6 部分控件属性设置
控件 各个散落物品的图像框 物品间的图像框 垃圾框的图像框 3．编写适当的事件代码。 提示：
属性 DragMode DragMode DragMode 属性值 1 0 0 1．物品间每个格子放入一个相当于格子大小的图像框，初始时图象框不加载图形。 2．在图像框及垃圾框的DragDrop事件过程中，编写物品在拖放结束时的放入或丢弃处理代码。
3．判断一个图像框是否已经加载了图片，用下面的判断语句（假设格子的图像框用room控件数组表示）：
- 30 -