实验八VB常用控件(二).doc

实 验 报 告
学院： 专业： 年级：
姓名： 学号： 实验室号：_______ 计算机号：
实验日期： 年 月 日 指导教师签字： 成绩：
报告退发 (订正 、 重做)
实验八：常用控件（二）
一、实验目的
（1）掌握：计时器和图形控件（图片框、图像框、形状和直线控件）的常用属性、事件和方法
（2）掌握：常用的绘图方法（Line、Circle、Pset）
（3）熟悉：焦点与Tab顺序、键盘和鼠标的事件
（4）了解：鼠标的拖动与放下相应的属性、事件和方法
二、实验内容
1 请在标题为“形状”的窗体上设一个如图所示的高、宽均为1500，与窗体的左边距离为1000的形状控件。
注：在属性窗口中完成所有设计。以Sy8-1.frm和Sy8-1.vbp文件名保存在D:\VB程序。

2 请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框（Picture1）以及“显示”和“清空”两个按钮（Command1、Command2）。运行时，单击“显示”，在图片框中显示自选图片；单击“清空”则清空图片框。
注：程序中无需使用任何变量。以Sy8-2.frm和Sy8-2.vbp文件名保存在D:\VB程序。

3设计如图所示的模拟秒表，在窗体体上画三个标签、三个命令按钮、一个计时器、一个列表框、一个文本框。请编写适当的事件过程，使得程序运行时，单击标题为“开始”的命令按钮，计时器开始计时，并在文本框中显示动态的时间变化；单击标题为“记录”的命令按钮，将当前文本框显示的时间添加到列表框， 文本框显示的时间还在变化；单击标题为“停止”的命令按钮，将停止计时，文本框的记录内容不再变化。以Sy8-3.frm和Sy8-3.vbp文件名保存在D:\VB程序。

4设计如图所示的简易画板，在窗体上画一个图片框、一个命令按钮和一组单选按钮。请编写适当的事件过程，使程序运行时，选择相应单选按钮，在图片框上可以实现相应的功能。如选择“画直线”单选按钮，可在图片框上画一条直线；如选择“画矩形”单选按钮，可在图片框上画一矩形；如选择“画圆”单选按钮，可在图片框上画一圆；如选择“画椭圆”单选按钮，可在图片框上画一椭圆；单击标题为“Cls”的命令按钮，则清除图片框的内容。
注：程序中无需使用任何变量以。以Sy8-4frm和Sy8-4.vbp文件名保存在D:\VB程序。

5请按下图设计程序，在窗体上画一个图像框，并在设计时装好图片。请编写适当的事件过程，使程序运行时，可以用鼠标将图像框拖动到窗体内任意的，准确的位置。以Sy8-5.frm和Sy8-5.vbp文件名保存在D:\VB程序。

三、实验环境
（1）硬件：PC机
（2）软件：Windows 操作系统、Visual Basic 6.0
四、实验步骤
1、请在标题为“形状”的窗体上设一个如图所示的高、宽均为1500，与窗体的左边距离为1000的形状控件。
注：在属性窗口中完成所有设计。以Sy8-1.frm和Sy8-1.vbp文件名保存在D:\VB程序。
操作步骤如下：
（1）启动Visual Basic，在窗体上画一个形状控件。
（2）窗体、形状控件的属性设置如下：

控件名称
属性
Form1
Caption=“形状”
Shape1
Shape1＝3－Circle
Fillsyle＝6－Cross

（3）各控件布局如下：

（4）单击“文件”/“保存工程”菜单项，以Sy8-1.frm和Sy8-1.vbp文件名将窗体和工程文件保存在D:\VB程序内。
2 请按图设一个大小能自动调整以适应其显示图片的尺寸的图片框（Picture1）以及“显示”和“清空”两个按钮（Command1、Command2）。运行时，单击“显示”，在图片框中显示自选图片；单击“清空则清空图片框。
注：程序中无需使用任何变量。以Sy8-2.frm和Sy8-2.vbp文件名保存在D:\VB程序。
操作步骤如下：
（1）启动Visual Basic，在窗体上画两个命令按钮，并将其名称分别改为C1和C2、一个图片框。
（2）各控件属性设置如下：
控件名称
属性
C1
Caption=“显示”
C2
Caption=“清空”
Picture1
Autosize＝True
显示
清空
（3）各控件布局如下：

（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("D:\to.bmp")
End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture
End Sub
（5）单击“文件”/“保存工程”菜单项，以Sy8-2.frm和Sy8-2.vbp文件名将窗体和工程文件保存在D:\VB程序内。
3、设计如图所示的模拟秒表，在窗体体上画三个标签、三个命令按钮、一个计时器、一个列表框、一个文本框。请编写适当的事件过程，使得程序运行时，单击标题为“开始”的命令按钮，计时器开始计时，并在文本框中显示动态的时间变化；单击标题为记录”的命令按钮，将当前文本框显示的时间添加到列表框， 文本框显示的时间还在变化；单击标题为“停止”的命令按钮，将停止计时，文本框的记录内容不再变化。以Sy8-3.frm和Sy8-3.vbp文件名保存在D:\VB程序
操作步骤如下：
（1）启动Visual Basic，在窗体上画三个命令按钮、三个标签、一个计时器、一个列表框和一个文本框。
（2）各控件属性设置如下：

控件名称
属性
Form1
Caption=“模拟秒表”
Command1
Caption=“开始”
Command2
Caption=“记录”
Command3
Caption=“停止”
Label1
Caption=“大写显示”
Label2
Caption=“小写显示”
Text1
Text=“”
Label1
Caption=“模拟秒表”
Label2
Caption=“计时”
Label3
Caption＝“记录”
List1
List＝“”
开始
记录
停止
计时
记录
模拟表
（3）各控件布局如下：

（4）双击窗体，打开代码窗口，输入如下代码：
Dim H As Integer, M As Integer, S As Integer, mS As Integer
Private Sub Command1_Click()
Timer1.Interval = 100
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
List1.Clear
End Sub
Private Sub Command2_Click()
List1.AddItem Text1.Text
End Sub
Private Sub Command3_Click()
Timer1.Interval = 0
H = 0: M = 0: S = 0: mS = 0
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Text1.Text = "0:0.0 0"
End Sub
Private Sub Form_Load()
Command2.Enabled = False
Command3.Enabled = False
Text1.Text = ""
End Sub
Private Sub Timer1_Timer()
If mS < 9 Then
mS = mS + 1
Else
mS = 0
If S < 59 Then
S = S + 1
Else
S = 0
If M < 59 Then
M = M + 1
Else
M = 0
H = H + 1
End If
End If
End If
Text1.Text = Str(H) + ":" + Str(M) + "." + Str(S) + " " + Str(mS)
End Sub
（5）单击“文件”/“保存工程”菜单项，以Sy8-3.frm和Sy8-3.vbp文件名将窗体和工程文件保存在D:\VB程序内。
4设计如图所示的简易画板，在窗体上画一个图片框（P1）、一个命令按钮和一组单选按钮的数组控件。请编写适当的事件过程，使程序运行时，选择相应单选按钮，在图片框上可以实现相应的功能。如选择“画直线”单选按钮，可在图片框上画一条直线；如选择“画矩形”单选按钮，可在图片框上画一矩形；如选择“画圆”单选按钮，可在图片框上画一圆；如选择“画椭圆”单选按钮，可在图片框上画一椭圆；单击标题为“Cls”的命令按钮，则清除图片框的内容。
注：程序中无需使用任何变量以。以Sy8-4frm和Sy8-4.vbp文件名保存在D:\VB程序。
（1）启动Visual Basic，在窗体上画一个图片框、一组单选按钮和一个命令按钮。
（2）各控件属性设置如下：

控件名称
属性
Form1
Caption=“简易画板”
Option1(0)
Caption=“画直线”
Option1(1)
Caption=“画矩形”
Option1(2)
Caption=“画圆”
Option1(3)
Caption=“画椭圆”
Command1
Caption=“CLs”
（3）各控件布局如下：画直线
Cls
画矩形
画圆
画椭圆

（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub Command1_Click()
P1.Cls
End Sub
Private Sub Form_Load()
P1.Scale (0, 0)-(50, 50)
P1.DrawWidth = 2
End Sub
Private Sub Option1_Click(Index As Integer)
If Option1(0).Value = True Then
P1.Line (5, 30)-(45, 10)
ElseIf Option1(1).Value = True Then
P1.Line (5, 5)-(40, 20), , B
ElseIf Option1(2).Value = True Then
P1.Circle (25, 25), 15
ElseIf Option1(3).Value = True Then
P1.Circle (35, 30), 20, , , , 2
End If
End Sub
（5）单击“文件”/“保存工程”菜单项，以Sy8-4.frm和Sy8-4.vbp文件名将窗体和工程文件保存在D:\VB程序内。
5、请按下图设计程序，在窗体上画一个图像框，并在设计时装好图片。请编写适当的事件过程，使程序运行时，可以用鼠标将图像框拖动到窗体内任意的，准确的位置。以Sy8-5.frm和Sy8-5.vbp文件名保存在D:\VB程序。
操作步骤如下：
（1）启动Visual Basic，在窗体上一个图像框。
（2）各控件属性设置如下：

控件名称
属性
Image1
Picture=C:\ProgramFiles\vb\VB6.0\COMMON\GRAPHICS\ICONS\MISC\ FACE02.ICO”
（3）各控件布局如下：

（4）双击窗体，打开代码窗口，输入如下代码：
Private Sub form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Command1.Move X, Y
End Sub
（5）单击“文件”/“保存工程”菜单项，以Sy8-4.frm和Sy8-4.vbp文件名将窗体和工程文件保存在D:\VB程序内。
五、实验调试与结果分析

六、总结