实验一：窗体类.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.ShowEnd Sub按 F5 键运行这个工程，并单击该按钮。啊！出现了 Form1 的另一个实体！单击其中的按钮，又有另一个窗体！所创建的每一个实体看上去都是一样的，并且有同样的表现，因为它们都是 Form1 类的实体。二、实验内容、步骤和结果实验步骤：1. 添加一个标准模块和一个标准窗体（并命名该标准窗体为frmZhq，该标准模块为Zhq084130332）；给窗体添加属性、方法和事件；2. 在标准模块中调用类模块（看看事件能不能使用）；实验内容：（1）在模块中键入代码：Private ZhqForm As frmZHQSub 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 VariantEnd PropertyPublic Property Let ZhqName(ByVal vNewValue As Variant)End Property（4）将代码补充完成为：Public Property Get ZhqName() As Variant ZhqName = m_ZhqNameEnd PropertyPublic Property Let ZhqName(ByVal vNewValue As Variant) m_ZhqName = v_ZhqName & Zhq 084130332End Property3.写好代码后，点击工具栏工程工程1属性，启动对象设置为：Sub Main。4. 运行所写的程序。5.得到的结果截图如下：6.总结窗体类的定义与使用：类是一个模板，对象是由它而创建的；类模块中的代码描述了从该类创建的对象的特性和行为；虽然类不是对象，但是对象的属性、方法、事件都由类来定义。三、实验小结实验中出现过的问题（或错误）、原因分析1.代码会写错地方，即该写在模块的代码写在了窗体中。原因：对VB的操作不是很熟悉。2.写完后忘记将启动对象设置为Sub Main。原因：对整个程序考虑的不全面。3.写代码时会丢三落四，造成运行不成功。原因：对说要写的代码不熟悉。4.在对标准窗体和标准模块进行命名时用了不合法的名字。原因：对VB的相关知识没有了解透彻。指导教师评语和实验得分：实验得分： 签名： 年 月 日