处理WM_TOUCH的TOUCHEVENTF_DOWN时执行耗时操作为何收不到后续消息？

问题场景 #

我对窗口进行子类化以处理WM_TOUCH消息，核心流程如下：

1. 收到WM_TOUCH消息时调用GetTouchInputInfo获取触摸数据：

Dim RetVal&
RetVal = GetTouchInputInfo(hTouchInput, TouchPoints, tiTouchInput(1&), LenB(tiTouchInput(1&)))

2. 解析触摸事件类型：

Dim bDown As Boolean
Dim bUp As Boolean
bDown = tiTouchInput(i).dwFlags And TOUCHEVENTF_DOWN
bUp = tiTouchInput(i).dwFlags And TOUCHEVENTF_UP

3. 检测到TOUCHEVENTF_DOWN时执行约1秒的耗时操作，此时出现两个异常：
   • 无法接收后续携带TOUCHEVENTF_UP的WM_TOUCH消息（无耗时操作时可正常接收）
   • 几次触摸事件后VB6会随机崩溃
4. 已确保在消息处理末尾调用CloseTouchInputHandle：

Dim lRet&
lRet = CloseTouchInputHandle(hTouchInput)

问题疑问 #

这种消息丢失是否正常？还是操作有误导致？求解决思路。

解决思路 #

• 耗时操作阻塞消息循环是核心原因：VB6采用单线程UI模型，耗时操作会卡住消息循环，导致系统无法及时投递后续触摸消息。Windows触摸消息存在超时机制，若UI线程长时间不响应，系统可能丢弃后续触摸事件，甚至触发窗口异常逻辑引发崩溃。
• 将耗时操作移出UI线程：
  • 使用Timer控件：检测到TOUCHEVENTF_DOWN时启动Timer，在Timer事件中执行耗时操作，避免阻塞UI线程消息循环。
  • 启用独立线程：通过API创建子线程执行耗时操作（注意VB6对多线程支持有限，子线程仅处理纯计算或非UI逻辑，禁止操作VB6控件）。
• 简化消息处理逻辑：在WM_TOUCH消息处理函数内仅做必要的事件解析和标记，快速完成处理并返回，保证UI线程能及时响应后续消息。
• 确保资源安全释放：即使出现异常，也要保证CloseTouchInputHandle被执行（可通过错误处理块包裹），避免因触摸资源未及时释放引发内存访问错误。

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