您的位置：程序门 -> vb -> 基础类

能给我一个简单的类模块使用例子吗？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

能给我一个简单的类模块使用例子吗？[已结贴,结贴人:yanstill]

发表于：2007-03-28 11:17:41 楼主

我在网上找的类模块都好长啊，而且我也不知道它怎么用法，可以拿一个简单一点的给我看看吗？可以拿来运行的就更好了，谢谢啊

发表于：2007-03-28 14:25:191楼得分:0

有人吗？有人吗？

发表于：2007-03-28 14:29:152楼得分:0

'form1
option explicit
function xy（x as integer, y as integer) as long
xy = x + y
end function

private sub class_initialize（)
msgbox "类开始 "
end sub

private sub class_terminate（)
msgbox "类结束 "
end sub

'class1.bas
option explicit
function xy（x as integer, y as integer) as long
xy = x + y
end function

private sub class_initialize（)
msgbox "类开始 "
end sub

private sub class_terminate（)
msgbox "类结束 "
end sub

发表于：2007-03-28 14:30:413楼得分:5

上面的发错了
'===form1====
option explicit
private sub command1_click（)
dim obj as class1
set obj = new class1
msgbox obj.xy（10, 20)
end sub
'========================
option explicit
function xy（x as integer, y as integer) as long
xy = x + y
end function

'====class1====
private sub class_initialize（)
msgbox "类开始 "
end sub

private sub class_terminate（)
msgbox "类结束 "
end sub

发表于：2007-03-28 15:58:194楼得分:0

路过`接分

发表于：2007-03-28 16:17:105楼得分:5

呵呵，这个自己打开msdn，里面的例子很好啊
vb中文精简版的：使用visual basic---》部件工具指南---》创建activex部件
这里面就有现成的例子，且介绍比较全面

发表于：2007-03-28 16:43:296楼得分:0

呵呵，谢谢啊，msdn我的是英文的，我找找看

发表于：2007-03-31 13:23:467楼得分:0

得了0分??

发表于：2007-04-04 10:26:558楼得分:0

啊？我给分了的啊，不知道怎么会这样

下一篇：有关vb调用vc的dll时，rect类型参数声明问题。
上一篇：请问vb中如何进行消息影射？

其他资讯