上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
Visual Basic6.0使用自定义类
编辑:dnawo 日期:2007-02-04
今天我们举一个简单的例子说下怎么在Visual Basic6.0中自定义一个类并使用。运行"Microsoft Visual Basic 6.0 中文版"，选择"标准EXE"：
选择"工程"菜单下"添加类模块"：
将类模块名称改为"mzwu"：
打开类模块代码窗口，定义一个方法add，此方法返回其两个参数之和，代码如下：
在Form1中添加一个label和Command，界面如下：
双击Command1，打开代码窗口，输入代码：
F5运行程序，单击Command1，结果如下图示：
OK，一个简单的Visual Basic6.0类这样就好了。
附："实时错误91 对象变量或With块变量未设置"错误
对象没有实例化时程序便会报错，提示"对象变量或With块变量未设置"，如下图：
很可能是将Dim NewClass As New mzwu写成了Dim NewClass As mzwu，改下即可！
选择"工程"菜单下"添加类模块"：
将类模块名称改为"mzwu"：
打开类模块代码窗口，定义一个方法add，此方法返回其两个参数之和，代码如下：
复制内容到剪贴板
程序代码
程序代码Public Function add(ByVal a,ByVal b)
add = a + b
End Function
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
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 | 引用: 0 | 查看次数: 5445
发表评论
请登录后再发表评论！
