实验一：窗体类.doc

本科学生实验报告

专业＿＿地理信息系统 班级 08级地理信息系统＿
实验课程名称 面向对象编程语言
实验名称 窗体类
开课学期 2010 ＿ 至＿ 2011＿ 学年＿上 学期

云南师范大学旅游与地理科学学院编印

一、实验准备
实验名称：实验（ 窗体类 ）
实验时间：2010.9.8
实验类型：普通实验
1、 实验目的和要求：
（1）、理解窗体类以及两种使用窗体的方法及其差异；
（2）、掌握以类的方式使用窗体，并能为其添加额外的自定义属性、事件和方法；
（3）、掌握窗体互相调用的技术；
（4）、通过实验进一步了解累的概念；
（5）、通过实验深入对VB操作的了解。

2、实验材料及相关设备：

装有VB6.0的电脑一台，参考资料

3、实验理论依据或知识背景：
如果说创建类的历史与使用 Visual Basic 编程的历史一样长，也许会感到惊奇。但这是真的：Form1，每次开始一个工程都要碰到的这个老相识，实际上就是一个类。
为了说明这一点，打开一个新的“标准 EXE”工程。添加一个按钮到 From1，并在单击事件中放置如下的代码：
Private Sub Command1.Click()
Dim f As New Form1
f.Show
End Sub
按 F5 键运行这个工程，并单击该按钮。啊！出现了 Form1 的另一个实体！单击其中的按钮，又有另一个窗体！所创建的每一个实体看上去都是一样的，并且有同样的表现，因为它们都是 Form1 类的实体。

二、实验内容、步骤和结果
实验步骤：
1. 添加一个标准模块和一个标准窗体（并命名该标准窗体为frmZhq，该标准模块为Zhq084130332）；给窗体添加属性、方法和事件；

2. 在标准模块中调用类模块（看看事件能不能使用）；
实验内容：
（1）在模块中键入代码：
Private ZhqForm As frmZHQ

Sub main()
Set ZhqForm = New frmZHQ
frmZHQ.ZhqName = "hello"
MsgBox frmZHQ.ZhqName

End Sub

End Sub
（2）在窗体中键入代码：
Public m_ZhqName As String
（3）在窗体的编辑状态下，点击工具--添加过程。打开添加过程对话框，填写名称为：ZhqName；类型选：属性；确定。
在窗体的代码窗口会出现如下代码：
Public Property Get ZhqName() As Variant

End Property

Public Property Let ZhqName(ByVal vNewValue As Variant)

End Property
（4）将代码补充完成为：
Public Property Get ZhqName() As Variant
ZhqName = m_ZhqName
End Property

Public Property Let ZhqName(ByVal vNewValue As Variant)
m_ZhqName = v_ZhqName & "Zhq 084130332"
End Property
3.写好代码后，点击工具栏——工程——工程1属性，启动对象设置为：Sub Main。
4. 运行所写的程序。
5.得到的结果截图如下：

6.总结窗体类的定义与使用：类是一个模板，对象是由它而创建的；类模块中的代码描述了从该类创建的对象的特性和行为；虽然类不是对象，但是对象的属性、方法、事件都由类来定义。

三、实验小结
实验中出现过的问题（或错误）、原因分析
1.代码会写错地方，即该写在模块的代码写在了窗体中。原因：对VB的操作不是很熟悉。
2.写完后忘记将启动对象设置为Sub Main。原因：对整个程序考虑的不全面。
3.写代码时会丢三落四，造成运行不成功。原因：对说要写的代码不熟悉。
4.在对标准窗体和标准模块进行命名时用了不合法的名字。原因：对VB的相关知识没有了解透彻。

指导教师评语和实验得分：

实验得分： 签名： 年 月 日