VB6MouseWheel.zip

冬至快乐^-^
第一次上传资源，收一个积分当作纪念，意思意思犒劳一下劳动成果呗，不用积分也可以的，就在我CSDN博客里面拿资源哈^-^
vb6控件一般都不支持【鼠标滚轮滚动事件】，那么我们利用消息处理机制（Hook消息处理函数），给控件增加一个鼠标滚轮滚动事件。
资源【VB6MouseWheel.zip】中包含VB6源码+示例exe。
代码示例是给一个文本框text增加一个“响应鼠标滚轮滚动的事件”，前滚+1，后滚-1，并将值返回填回文本框。如果您想实现自己的效果，只需要更改事件“Private Sub txtNum_MouseWheel(ByVal Delta As Long, ByVal Button As Long, ByVal X As Long, ByVal Y As Long)”中的代码即可。