首页
后端开发
VB
VB6 鼠标滚轮事件扩展控件

VB6 鼠标滚轮事件扩展控件

23 次浏览 0 条评论
rar
rar

该控件扩展了 VB6 对鼠标滚轮事件的原生支持，通过添加该控件到窗体，可以使 MSFlexGrid、HScrollBar 和 VScrollBar 控件响应鼠标滚轮事件。

优势

  • 相较于子类化方法，该控件避免了程序崩溃的风险，提升了程序稳定性。

使用方法

  1. 将控件添加到窗体中。
  2. 在需要响应鼠标滚轮事件的控件事件中调用 udfMouseScroll.sub_setFocus 方法，并将控件本身作为参数传入。

示例：

Private Sub flgNotFinished_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 
   If Button = 4 Then 
       udfMouseScroll.sub_setFocus Me.flgNotFinished 
   End If 
End Sub

源码:

[源码链接] (请替换为实际源码链接)

扩展

开发者可以根据源码，自行扩展该控件以支持其他 VB6 控件的鼠标滚轮事件。

rar 文件大小：12.59KB