VB.net中使用SendMessage+CB_ADDSTRING导致栈不平衡问题求助

嘿，我之前优化ComboBox加载速度的时候也踩过这个栈不平衡的坑！你用Windows API来提速的方向完全正确——毕竟原生API比VB自带的AddItem快太多了，但问题出在函数调用约定不匹配上，这是VB和Windows API交互时最容易犯的错误之一。

为什么会出现栈不平衡？ #

Windows API里的SendMessage使用的是stdcall调用约定（函数执行完毕后自己清理栈），但VB默认的调用约定是cdecl（由调用者来清理栈）。如果你的SendMessage声明没有指定正确的调用约定，就会导致栈指针错位，触发栈不平衡的错误。

正确的SendMessage声明 #

根据你使用的VB版本，用下面对应的声明替换原来的：

如果你用的是VB6（32位）：

Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" ( _
    ByVal hWnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
) As Long

Private Const CB_ERR As Long = -1
Private Const CB_ADDSTRING As Long = &H143
Private Const WM_SETREDRAW As Long = &HB

如果你用的是VBA（兼容Office 32/64位）：

Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageW" ( _
    ByVal hWnd As LongPtr, _
    ByVal wMsg As Long, _
    ByVal wParam As LongPtr, _
    ByVal lParam As LongPtr _
) As LongPtr

Private Const CB_ERR As Long = -1
Private Const CB_ADDSTRING As Long = &H143
Private Const WM_SETREDRAW As Long = &HB

额外的加载提速技巧 #

光解决栈不平衡还不够，再加上这两步能让你的ComboBox加载速度再上一个台阶：

• 暂停控件重绘：在批量添加项之前，先发送WM_SETREDRAW消息关闭控件的自动重绘，避免每添加一项就刷新一次UI：

  ' 关闭重绘
  SendMessage Combo1.hWnd, WM_SETREDRAW, 0, 0
  
  ' 批量添加所有项
  For Each item In yourDataList
      SendMessage Combo1.hWnd, CB_ADDSTRING, 0, StrPtr(item)
  Next
  
  ' 恢复重绘并强制刷新
  SendMessage Combo1.hWnd, WM_SETREDRAW, 1, 0
  Combo1.Refresh
  

• 用StrPtr传递字符串：直接传StrPtr(item)而不是字符串本身，避免VB做不必要的字符串转换，进一步减少开销。

这样调整之后，不仅栈不平衡的问题会消失，ComboBox的加载速度应该能比之前再快一大截——我当时用这个方法把加载时间从4秒压到了不到500毫秒！

内容的提问来源于stack exchange，提问作者Kuba Wasilczyk