Visual Basic6.0使用自定义类

今天我们举一个简单的例子说下怎么在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，改下即可！

评论（0）