VBA实现高效的Lambda函数功能

leolee82

1. Sub LambdaTest()
   
2. a = 1
   
3. b = 2
   
4. Set Lambda = Lambda.Create(AddressOf LambdaCallBack, a, b)
   
5. x = Lambda(3, 4) 'a+b+3+4=10
   
6. y = Fun(Lambda, 5, 6) 'a+b+5+6=14
   
7. End Sub
   
8. 
   
9. 
   
10. Function Fun(fn As Lambda, m, n)
    
11. Fun = Lambda(m, n)
    
12. End Function
    
13. 
    
14. '回调函数
    
15. '第二个参数是long类型,在64位下会出问题
    
16. Public Sub LambdaCallBack(Ret, ByVal unused As Long, arrCapture, arrParams)
    
17. Dim i As Long
    
18. For i = LBound(arrCapture) To UBound(arrCapture)
    
19.     Ret = Ret + arrCapture(i)
    
20. Next
    
21. 
    
22. For i = LBound(arrParams) To UBound(arrParams)
    
23.     Ret = Ret + arrParams(i)
    
24. Next
    
25. End Sub

复制代码

10多年了，原来还有VBA基础知识的盲区，终于搞出高效的Lambda了，仅支持32位office。内部用通用的CallWindowProcA实现回调函数功能，改改可以支持64位office。
其实挺简单的，搞不懂的话导出Lamda模块看看，估计80%以上的人都不知道这个知识点

LambdaTest.zip (19.6 KB, 下载次数: 79)

2022-2-13 10:19 上传

点击文件名下载附件
Lambda

2022-2-13发现原代码里的Lamda拼错了，应该是Lambda，已更正。误人子弟了，误人子弟了。

morpheus126

虽然不太懂，但是先关注

小fisher

这个代码还有不少隐藏的亮点，比如在VBA中使用静态类（不需实例化即可调用其属性或方法）、带参数的构造函数、指定默认属性/方法，比较生僻但很实用。

leolee82

小fisher 发表于 2022-2-8 11:19
这个代码还有不少隐藏的亮点，比如在VBA中使用静态类（不需实例化即可调用其属性或方法）、带参数的构造函 ...

主要知识盲区是用Attribute XXX.VB_UserMemId = 0设置类的默认属性、方法，昨天下午才学到这东西。好像只有导出模块才能添加，然后再导入。不知道版主有没有其他好办法。

wodewan

类模块特殊用法的好例子啊，大佬们说的都太含蓄了，哈哈各位看官难道没发现，32位64位其实不是问题，无非是预编译加个判断，数据类型改下，重点是即使单独复制了楼主的代码是没有用的也运行不了，也不能实现不用New就可以点出成员，用类名直接调用类中的某个固定函数吗？涉及到两个在IDE中看不到的属性，可以先导出，然后用（记事本或类似NotePad++的文本编辑器）打开：
以Attribute 开头的都是IDE中看不到的属性：
其中楼主用到了如下2个属性：
Attribute VB_PredeclaredId = True（静态类）
Attribute Run.VB_UserMemId = 0（默认方法或属性）
下面是Attribute VB_PredeclaredId = True（静态类）的一个示例，Attribute Run.VB_UserMemId = 0（默认方法或属性）同理。


导出后，用记事本打开，或Notepad++打开就会发现原因

Moneky

leolee82 发表于 2022-2-8 15:04
主要知识盲区是用Attribute XXX.VB_UserMemId = 0设置类的默认属性、方法，昨天下午才学到这东西。好像只 ...

这个知识知道快20年了，当初VB6中用过

leolee82

Moneky 发表于 2022-2-8 17:53
这个知识知道快20年了，当初VB6中用过

膜拜下高人。
20年前我还不知道VB是啥，还在玩暗黑2呢，当时只会用内存外挂改血量和技能等级

Moneky

leolee82 发表于 2022-2-8 18:07
膜拜下高人。
20年前我还不知道VB是啥，还在玩暗黑2呢，当时只会用内存外挂改血量和技能等级

只用过一两次，当时上大学自己瞎写作函数图像的，用到了类，想用默认属性搜索出来的。你跟牛X，了解的都是高深的玩意儿。

loquat

Moneky 发表于 2022-2-8 17:53
这个知识知道快20年了，当初VB6中用过

VB6有类设计器，不需要导出导入

leolee82

今天才发现原代码里的Lamda拼错了，应该是Lambda