欢迎光临

木子屋

标题: Visual Basic6.0使用自定义类

作者: dnawo

日期: 2007-02-04 01:16 PM

分类: Win编程

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

+ 查看当前日志评论 (1)

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.102 ms

返回

标题: Visual Basic6.0使用自定义类

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.102 ms

返回

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.133 ms

返回