Visual Basic6.0使用自定义类 - 木子屋 和另外 4 个页面 - 用户配置 1

编辑:dnawo 日期:2007-02-04

今天我们举一个简单的例子说下怎么在Visual Basic6.0中自定义一个类并使用。运行"Microsoft Visual Basic 6.0 中文版"，选择"标准EXE"：



选择"工程"菜单下"添加类模块"：



将类模块名称改为"mzwu"：



打开类模块代码窗口，定义一个方法add，此方法返回其两个参数之和，代码如下：

复制内容到剪贴板程序代码

Public Function add(ByVal a,ByVal b)
    add = a + b
End Function

在Form1中添加一个label和Command，界面如下：



双击Command1，打开代码窗口，输入代码：

复制内容到剪贴板程序代码

Private Sub Command1_Click()
Dim NewClass As New mzwu
Dim a As Integer, b As Integer
a = 3
b = 4
Label1.Caption = NewClass.add(a, b)
End Sub

F5运行程序，单击Command1，结果如下图示：



OK，一个简单的Visual Basic6.0类这样就好了。

附："实时错误91 对象变量或With块变量未设置"错误

对象没有实例化时程序便会报错，提示"对象变量或With块变量未设置"，如下图：



很可能是将Dim NewClass As New mzwu写成了Dim NewClass As mzwu，改下即可！