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

Visual Basic6.0使用自定义类编辑:dnawo 日期:2007-02-04字体大小: 小 中 大

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

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

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

打开类模块代码窗口，定义一个方法add，此方法返回其两个参数之和，代码如下：复制内容到剪贴板程序代码Public Function add(ByVal a,ByVal b)add = a + bEnd Function在Form1中添加一个label和Command，界面如下：

双击Command1，打开代码窗口，输入代码：复制内容到剪贴板程序代码Private Sub Command1_Click()Dim NewClass As New mzwuDim a As Integer, b As Integera = 3b = 4Label1.Caption = NewClass.add(a, b)End SubF5运行程序，单击Command1，结果如下图示：

OK，一个简单的Visual Basic6.0类这样就好了。附："实时错误91 对象变量或With块变量未设置"错误对象没有实例化时程序便会报错，提示"对象变量或With块变量未设置"，如下图：

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