《Visual Basic程序设计》课件1第8章.ppt

第8章常用控件设计

第8章常用控件设计

8.1框架

8.2计时器

8.3选择性控件

8.4列表框与组合框

8.5滚动条

8.6常用ActiveX控件

教学小结

习题

第8章常用控件设计

8.1框架

框架(Frame)通常作为容器，对控件对象进行分组或对

窗体进行分割，以达到修饰窗体的目的。框架的主要属性如

表8-1所示。

表8-1框架(Frame)的主要属性

第8章常用控件设计

框架作为控件对象容器需要注意以下几个问题：

(1)对框架控件进行的复制、粘贴、移动、删除等操作，

将会影响到框架内包含的所有控件对象。

(2)如果需要将窗体上原有的对象添加到Frame中，可先

将它们剪切到剪贴板上，选定框架后，再执行“粘贴”命令

即可。

(3)要检查某个控件对象是否在容器中，可以用鼠标拖

动容器，如果该控件对象随之移动，则说明对象已经放在了

容器中。

第8章常用控件设计

8.2计时器

计时器控件(Timer)能够每隔一定时间自动引发Timer事

件，一般用于周期性地进行某类操作或用于定时。

计时器的主要属性如表8-2所示。

表8-2计时器(Timer)的主要属性

第8章常用控件设计

例8-1制作一个如图8-1a所示的“谚语展示板”，每半

分钟显示一条谚语，并循环显示。

图8-1a“谚语展示板”运行界面

第8章常用控件设计

(1)设计界面。

在窗体上添加1个计时控件(Timer1)、1个标签控件

(Label1)，并将它们调整到适当大小。设计界面如图8-1b所

示。

图8-1b设计界面

第8章常用控件设计

(2)设置对象属性。

窗体及各对象的属性设置如表8-3所示。

表8-3各对象的属性设置

第8章常用控件设计

(3)编写代码。

Dimyy(1To5)AsString保存谚语

DimcntAsInteger当前显示谚

语在数组中的下标

PrivateSubForm_Load()

yy(1)=钱是一块一块上万，麦是一颗一颗上

石。

yy(2)=没有智慧的头脑，就像没有蜡烛的灯

笼。

yy(3)=时间抓起来说是金子，抓不住就是流

水。

yy(4)=节约时间就是延长生命。

第8章常用控件设计

yy(5)=自己的手就是大自然的统治者。

cnt=1

EndSub

PrivateSubTimer1_Timer()

Label1.Caption=yy(cnt)显示谚

语

cnt=cnt+1准备显

示下一条

Ifcnt5Thencnt=1若显示

到了最后一条，则再从头开始

EndSub

第8章常用控件设计

例8-2制作一个倒计时牌，显示到国庆还有多少天及当

前日期和时间。

(1)设计界面。

在窗体上添加3个Label控件(Label1，Label2，Label3)和

1个Timer控件(Timer1)，如图8-2a所示。各对象属性设置如

表8-4所示。

第8章常用控件设计

图8-2a“倒计时牌”设计界面

第8章常用控件设计

表8-4各对象的属性设置

第8章常用控件设计

(2)编写代码。

PrivateSubTimer1_Timer()

Label3.Capt