[已解决]把代码放在 类模块里应该怎样在工作表里调用啊

qhllqhll

把分解开的代码放到 类模块里 应该怎样调用
谢谢

复件 6662.rar (14.72 KB, 下载次数: 11)

2013-9-12 15:08 上传

点击文件名下载附件
原帖 加深了一步
http://www.excelpx.com/thread-309432-1-1.html

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-9-12 16:22

1. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     Dim a As 类1
   
3.     Set a = New 类1
   
4.     Call a.dy(CSng(X), CSng(Y))
   
5. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

类模块的要用的话，必须用NEW实例化。
不能直接调用的。
不知道VBA中是否有静态类的概念。

qhllqhll

hwc2ycy 发表于 2013-9-12 15:34
类模块的要用的话，必须用NEW实例化。
不能直接调用的。
不知道VBA中是否有静态类的概念。

请问：烟花版主 new实例化是什么意思啊？
能否封装到 vb6.0里的模块里啊？
谢谢

无聊的疯子

qhllqhll 发表于 2013-9-12 16:05
请问：烟花版主 new实例化是什么意思啊？
能否封装到 vb6.0里的模块里啊？
谢谢

将你的 Call dy(CSng(X), CSng(Y))  改为以下的就行了

1. 
   
2. Dim Le As New 类1
   
3.     Le.dy CSng(X), CSng(Y)
   

复制代码

实例化，意思是在类型前面添加  new 关键字，即 该变量 声明后可直接使用，无需使用 赋值语句

代码都可以用 VB6.0 进行封装，但是需要要按照其使用规则及封装要求进行，否则封装后的代码不能正常使用

hwc2ycy

1. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     Dim a As 类1
   
3.     Set a = New 类1
   
4.     Call a.dy(CSng(X), CSng(Y))
   
5. End Sub

复制代码

hwc2ycy

这样写，直接放模块有啥区别了。

hwc2ycy

而且你用sheet2.button，要是按钮不放sheet2呢。

qhllqhll

无聊的疯子 发表于 2013-9-12 16:18
将你的 Call dy(CSng(X), CSng(Y))  改为以下的就行了实例化，意思是在类型前面添加  new 关键字，即 该变 ...

大师您好：麻烦您给我一个附件好吗？非常感谢

qhllqhll

hwc2ycy 发表于 2013-9-12 16:22

请问恩师：明白了
谢谢