level 12
![[酸爽]](/static/emoticons/u9178u723d.png)
level 14
VB6是有CDecl关键字的，只是很多人不知道而已：
Declare Sub qsort CDecl Lib "ntdll"(Base As Any, ByVal NumOfElements As Long, ByVal SizeOfElements As Long, ByVal CompareFunction As Long)
但是由于巨硬当年写了个BUG，导致Declare声明的CDecl函数没法正确调用（只有tlb声明的可以），于是国外就有位大婶给VB6写了个插件修复了此BUG：https://github.com/woeoio/VBCDeclFix
装这个补丁插件并启用后，不仅CDecl声明的函数可以正常调用了，连回调函数我们也直接写上 CDecl 调用约定：
Function CompInt CDecl(ByRef a As Integer, ByRef b As Integer) As Long
CompInt = a - b
End Function
2022年09月29日 04点09分
6
Declare Sub qsort CDecl Lib "ntdll"(Base As Any, ByVal NumOfElements As Long, ByVal SizeOfElements As Long, ByVal CompareFunction As Long)
但是由于巨硬当年写了个BUG，导致Declare声明的CDecl函数没法正确调用（只有tlb声明的可以），于是国外就有位大婶给VB6写了个插件修复了此BUG：https://github.com/woeoio/VBCDeclFix
装这个补丁插件并启用后，不仅CDecl声明的函数可以正常调用了，连回调函数我们也直接写上 CDecl 调用约定：
Function CompInt CDecl(ByRef a As Integer, ByRef b As Integer) As Long
CompInt = a - b
End Function
回楼主，我看到你回帖说“而且我这人有个坏习惯，写出来的代码尽可能能在最精简的VB6自版本中编译，而不是想办法装什么库，什么插件”，这里没有显示可能被吞了吧。CDeclFix是修改VB6编译器BUG，用它编译出来的exe是不需要带任何库就可以发布的。
2022年09月30日 00点09分
回楼主，我看到你回帖说“而且我这人有个坏习惯，写出来的代码尽可能能在最精简的VB6自版本中编译，而不是想办法装什么库，什么插件”，这里没有显示可能被吞了吧。CDeclFix是修改VB6编译器BUG，用它编译出来的exe是不需要带任何库就可以发布的。
2022年09月30日 00点09分
level 14
这里我再重点提示一下，排序回调函数里面的ByVal和内存拷贝都是多此一举的操作，并且非常影响排序效率。你要排序的数组的成员是什么类型，你就直接用什么类型参数（注意要用 ByRef 参数）就可以了，因为qsort函数是传的数组成员的地址，VB6的ByRef在底层实现就是地址，所以你直接用ByRef就能接收任何类型的数据，且不会产生拷贝副本。
这个早就发现了，byref 不用拷贝内存回调速度可以提高一倍，这里只是提供一种另类方法，也别太在意细节，真要说极限速度就直接抄汇编改stdcall了
2022年09月29日 07点09分
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
。