项目设计与制作教案

名师精编精品教案

《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.V alue)

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.V alue)

End Sub

Private Sub VSGreen_Scroll()

TxtGreen = CStr(VSGreen.V alue)

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颜色值。

本文来源：https://www.bwwdw.com/article/cxqq.html