Command1 Command2 Command3 Label1 Label2 List1 List2 caption caption caption caption caption Style MultiSelect 添加 删除 退出 饭店菜谱 顾客用菜 1 2 按钮的标题 按钮的标题 按钮的标题 设置为复选框模式 扩展多项选择 ⑶编写相关控件的事件代码，见图3-4-2(a)、图3-4-2(b)所示。 图3-4-2(a) 命令按钮Click事件代码

41-109

图3-4-2(b) 列表框DblClick事件代码

⑷按F5功能键，运行程序，观察程序运行结果。

3.解：

解题分析：完成此题的要求，必须能实现时钟指针随系统时间的改变而动态的变化位臵，用于表示秒针、分针和时针的线控件的一个端点的坐标位臵应是固定不变的(在时钟的轴心上)，另一个端点的坐标位臵可根据系统时间获得的秒数、分钟数及小时数在指针长度不变的情况下相对轴心转动来求得。再用时钟控件运行刷新指针的位臵，就可得到一个打针动态转动的时钟画面。 图3-4-3(a) 时钟设计图

操作步骤：

⑴在VB环境中创建工程、窗体，在窗体上添加两个Shape控件、三个Line控件、四个标签控件和一个时钟控件，根据图3-4-3初步调整各控件的相对位置(如图3-4-3(a)所示)，三个指针控件垂直重叠放置。

⑵设置各相关控件的属性，见表3-4-3所示。

42-109

图3-4-3(a) 窗体的Load事件代码

表3-4-3 各相关控件的属性及其值

控件名称 Shape1 属性 Shape BackStyle BackColor Shape BackStyle BackColor ForeColor BorderWidth BorderWidth caption caption Caption caption Interval 属性值 2 1 &H00FFFFFF& 3 1 &H00000000% %H000000FF% 2 2 12 3 6 9 100 说明 椭圆 背景不透明 白色表盘 圆 背景不透明 黑色轴心 红色秒针 分针线宽 时针线宽 时钟盘面数字 时钟盘面数字 时钟盘面数字 时钟盘面数字 时钟指针刷新频率 Shape2 Line1 Line2 Line3 Label1 Label2 Label3 Label4 Timer1 ⑶编写各相关控件的事件代码，见图3-4-3(b)、3-4-3(c)。

图3-4-3(c) 时钟控件的Timer事件代码

⑷按F5功能键，运行程序，观察运行效果。

4.解：

解题分析：可用形状控件在窗体上作出三个小圆模拟三色信号灯。用三个文本框控件及三个UpDown控件组合，用以设臵三色信号灯延迟的时间，在各色信号灯的延迟时间较短时(小于60秒)，可使用一个时钟控件就可实现各色信号灯的循环延迟亮灯。将三个文本框中设臵的各色信号灯的延迟时间作为时钟控件的Interval属性值，先设定一个累加变量，在时钟控件的Timer事件中通过累加变量对3的Mod运算，根据其值分别可为0、1、2确定红、黄、绿三色灯亮及延迟时间。通过“开始”按钮，启动时钟控件，并从红灯开始三色循环延迟亮灯。

操作步骤：

43-109

⑴在VB环境中创建工程、窗体，在窗体上添加四个形状控件、一个框架控件、三个标签控件、二个命令按钮控件、一个时钟控件、一个包括三个元素的文本框控件数组和一个包括三个元素的UpDown控件数组。各控件的相互位置关系调整可参考图3-4-4。

⑵设置各相关控件的属性，见表3-4-4所示。

表3-4-4 各相关控件的属性及其值

控件名称 Shape1 属性 Shape BackStyle BackColor Shape BackStyle BackColor Shape BackStyle BackColor BorderWidth Caption caption caption Caption caption caption Enabled 属性值 3 1 vbRed 3 1 vbYellow 3 1 vbGreen 2 延迟时间 红灯 黄灯 绿灯 开始 退出 False 说明 椭圆 背景不透明 红色 圆 背景不透明 黄色 圆 背景不透明 绿色 线宽 框架标题 禁止工作 Shape2 Shape3 Shape4 Frame1 Label1 Label2 Label3 Command1 Command2 Timer1 ⑶编写各相关控件的事件代码，见图3-4-4(a)、图3-4-4(b)所示。 ⑷按F5功能键，运行程序，设置各色信号灯延迟时间，点击“开始”按钮，观察信号灯变化效果。

图3-4-4(a) 命令按钮Click事件代码

44-109