vba中实现回调函数

ioriliao

1. '什么是回调函数？回调函数就是由你自己写的。你需要调用另外一个函数，而这个函数的其中一个参数，就
   
2. '是你的这个回调函数名。回调函数与普通的函数没有什么区别，其之所以称之为回调函数，是因为这个函数
   
3. '作为另外一个函数的参数,比如有以下两个函数 CallFun是回调函数, MainFun是调用回调函数的函数
   
4. 'Private Sub CallFun(i as Integer)
   
5. '
   
6. 'End Sub
   
7. 'Private Sub MainFun(CallFun, i As Integer)
   
8. '    CallFun i
   
9. 'End Sub
   
10. '不幸的是VBA中不能将函数作为参数，利用上面的代码是不可行的。下面我将介绍可行的办法。
    
11. '首先让我们理解一下 Implements 语句
    
12. '语法 Implements [InterfaceName | Class]
    
13. '所需的 InterfaceName 或 Class 是类型库中的接口或类的名称，该类型库中的方法将用与 Visual Basic 类中相一致的方法来实现。
    
14. '说明:
    
15. '所谓接口就是代表接口封装的成员（方法以及属性）的原型集合；也就是说，它只包含成员过程的声明部分。一个类提供一个或多
    
16. '个接口的所有方法以及属性的一种实现方案。类的控制者每次调用函数时，该函数所执行的代码由类来提供。每个类至少应实现一
    
17. '个缺省接口。在 Visual Basic 中，一个已实现的接口中任何没有显式声明的成员都是缺省接口的隐式成员。
    
18. '当 Visual Basic 类实现接口时，都会提供该接口的类型库中说明的所有 Public 过程的版本。除了提供接口原型与自编过程之间的
    
19. '映射关系之外，Implements 语句还使这个类接收对指定接口 ID 的 COM QueryInterface 调用。
    
20. '看了说明是不是还是一头雾水,好的，下面让笔者用实际的例子演示一下相信各位看官就会明白的了。
    
21. '1.首先我们新建一个标准工程，然后在这个标准工作添加 类模块，然后把类模块的名字改为 InterFace ,意为 接口类, 根据接口定义
    
22. '我们在这个类模块中添加函数原形(所谓接口就是代表接口封装的成员（方法以及属性）的原型集合)，即是说接口只是声明一了个原形，
    
23. '而不必有实现，可谓原形,比如一个函数原形如下:
    
24. 'Private Sub CallFun(i as Integer)
    
25. '
    
26. 'End Sub
    
27. '所谓实现如下:
    
28. 'Private Sub CallFun(i as Integer)
    
29. '   msgbox i
    
30. 'End Sub
    
31. 
    
32. 'InterFace 类模块的代码如下:
    
33. 'Public Sub CallFun(i as Integer)
    
34. '
    
35. 'End Sub
    
36. 
    
37. '接着我们添加一个实现这个接口的类，首先添加一个类模块，把名字改为Func1
    
38. '添加以下代码:
    
39. 'Implements InterFace
    
40. '这一句的意思即是说这个类是要实现InterFace接口的
    
41. '然后点击Implements InterFace上面的列表框，是不是看到了一个InterFace的项(如图1所示)，我们选择这个项看看会有什么效果
    
42. '是不是自动添加了如下代码
    
43. 'Private Sub InterFace_CallFun(i As Integer)
    
44. '
    
45. 'End Sub
    
46. '然后我们可以在这个InterFace_CallFun函数中写我们想写的实现代码,我就写一句 msgbox i 代码吧,如下所示
    
47. 'Implements InterFace
    
48. 'Private Sub InterFace_CallFun(i As Integer)
    
49. '    MsgBox i
    
50. 'End Sub
    
51. 
    
52. '然后我们在Sheet1的代码区中实现MainFun函数，如下
    
53. Private Sub MainFun(Fun As InterFace, i As Integer)
    
54.     Debug.Print "随便写的代码"
    
55.     Debug.Print "随便写的代码"
    
56.     Debug.Print "随便写的代码"
    
57.     Fun.CallFun i
    
58.     Debug.Print "随便写的代码"
    
59. End Sub
    
60. '接着在Sheet1的Worksheet_BeforeDoubleClick事件中调用MainFun函数,如下代码所示
    
61. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
62.      MainFun New Func1, 10
    
63.     '好的,如果我们想把i的值等于99时再Msgbox出来如何是好呢？是不是得回去修改Func1类的，这当然不，而是继续添加另外一个类
    
64.     '模块，把名字改为Func2, 添加以下代码
    
65.     'Implements InterFace
    
66.     'Private Sub InterFace_CallFun(i As Integer)
    
67.     '    If i = 99 Then
    
68.     '        MsgBox i
    
69.     '    End If
    
70.     'End Sub
    
71.     '好的，我们现在调用一下看看
    
72.     MainFun New Func2, 88  '这句没有满足条件没有显示结果
    
73.     MainFun New Func2, 99  '这句满足了条件从而显示了结果
    
74. End Sub
    
75. 
    
76. '本教程是一个简单的例程，如果各位看官有不明白之处请提问，本文有谬误之处亦请指出，谢谢！
    

复制代码

演示工程: CallBack.rar (11.67 KB, 下载次数: 469)

2010-6-1 09:00 上传

点击文件名下载附件

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

hanter007

谢谢分享,好好学习一下

ttui

谢谢分享，学习了

liucqa

学习，谢谢分享

chentx

很好，学习了。

kboy_

非常感谢，学习了，用在异步访问服务端之后的回调

jial1047

非常感谢，学习了

0031126

谢谢，学习

skyonejs

谢谢分享，好好学习一下。