项目设计与制作教案(1)

很好

《VB项目设计与制作》课程教学安排

信息服务学院 褚洪彦

很好

第一讲 通用控件的使用

知识复习：

VB控件有：

1、标准控件（内部控件），共20个。 2、ActiveX控件，约1000种：通用对话框（CommonDialog）、工具条(Toolbar)、状态栏(StatusBar)等。

3、可插入对象，如Excel图表、 Word文档、Flash文件、音效等。 通用控件：标准控件及ActiveX控件。

标准控件：标签、文本框、命令按钮、单选按钮、复选按钮、列表框、组合框、图片框、图像框、垂直滚动条、水平滚动条、时钟（定时器）、框架、驱动器列表框、目录列表框、文件列表框、形状、画线工具、数据工具、对象链接和嵌入工具。

项目设计一：会动眼睛的小熊

一、设计目的：

1、学习基本的判断和循环流程； 2、熟悉定时器和形状控件的使用。

二、设计步骤：

1、新建“标准EXE”工程；

2、建立程序用户界面，如图1-1所示。

图1-1

添加控件及属性设置如下表1-1；

很好

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Timer1_Timer() Static i As Integer If i = 16 Then i = 1

If Shape7.Left > Shape2.Left Or Shape7.Top > Shape2.Top + 70 Then Shape7.Left = Shape7.Left - 10 Shape7.Top = Shape7.Top - 10 End If

If Shape8.Left > Shape3.Left Or Shape8.Top > Shape3.Top + 70 Then Shape8.Left = Shape8.Left - 10 Shape8.Top = Shape8.Top - 10 End If

Shape2.FillColor = QBColor(i) Shape3.FillColor = QBColor(i) i = i + 1 End Sub

三、运行效果

如下图1-2：

很好

图1-2

四 知识学习：

1、选择结构

1）单分支结构 2）双分支结构 3）多分支结构

2、循环结构

1）计数循环（For--Next）

2）While循环（While--Wend） 3）DO循环（Do--Loop）

3、静态变量

Static 变量名 [ As 类型]

4、Timer(定时器)控件

计时器(Timer)每隔一定的时间间隔产生一次Timer事件(或称报时)。可以根据这个特性来定时控制某些操作，或进行计时 运行时计时器不显示

Enabled属性：确定计时器是否可用 True：有效计时

False：停止时钟工作 Interval属性：设置两个Timer事件之间的时间间隔，其值以毫秒(1ms=1/1000 s)为单位。

单位：ms(0.001s)，0.5秒是500。 Interval＝0：屏蔽计时器。

例如，如果希望每半秒钟产生一个Timer事件，那么Interval属性值应设置为500，这样每隔500 ms就会触发一次Timer事件，从而执行相应的Timer事件过程

计时器控件只响应一个Timer事件。也就是说，计时器控件对象在间隔了一个Interval

很好

设定时间后，便触发一次Timer事件

5、Shape控件

根据Shape属性取值的不同，能够显示6种不同的图形，分别是：

0—Rectangle，1—Square，2—Oval，3—Circle，4—Rounded Rectangle，5-- Rounded Square。

图1-3

6、QBColor()函数

QBcolor()函数采用QuickBasic所使用的16种颜色，其语法格式为： QBColor(颜色码)

其中：颜色码使用0~15之间的整数，每个颜色码代表一种颜色

表1-2．16种颜色码表为：

很好

项目设计二：调色盘

一、设计目的：

1、学习滚动条控件的使用； 2、RGB函数的应用。

二、设计步骤：

1、新建“标准EXE”工程；

2、建立程序用户界面，如图1-4所示。

图1-4

很好

Dim x As Single

Private Sub Command1_Click() Timer1.Enabled = True End Sub

Private Sub Command2_Click() Timer1.Enabled = False End Sub

Private Sub Form_Load()

TxtBlue = CStr(VSBlue.Value) TxtGreen = CStr(VSGreen.Value) TxtRed = CStr(VSRed.Value) End Sub

Private Sub Timer1_Timer() Static x As Single

If x >= Picture1.Width / 2 Then x = 0

Picture1.Cls End If x = x + 1

Picture1.ForeColor = RGB(VSRed.Value, VSGreen.Value, VSBlue.Value) Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), x End Sub

Private Sub VSBlue_Change() TxtBlue = CStr(VSBlue.Value) End Sub

Private Sub VSBlue_Scroll()

很好

TxtBlue = CStr(VSBlue.Value) End Sub

Private Sub VSGreen_Change() TxtGreen = CStr(VSGreen.Value) End Sub

Private Sub VSGreen_Scroll() TxtGreen = CStr(VSGreen.Value) End Sub

Private Sub VSRed_Change() TxtRed = CStr(VSRed.Value) End Sub

Private Sub VSRed_Scroll() TxtRed = CStr(VSRed.Value) End Sub

三、运行效果

如下图1-5：

图1-5

四 知识学习

1、滚动条控件

滚动条是VB的标准控件，默认出现在工具箱中。

很好

1）滚动条的重要属性

与滚动条有关的重要事件是Scroll和Change。当拖动滑块时会触发Scroll事件，而当改变Value属性（滚动条内滑块位置改变）会触发Change事件。

2、RGB函数

RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为： RGB(红，绿，蓝)

RGB（Red as Interger, Blue as Interger, Green as Interger,）as Long 其中，括号中红、绿、蓝三基色的成份使用0～255之间的整数。

返回值：RGB函数返回一个LONG整数，用来表示一个RGB颜色值。