Access VBA教程:MouseWheel事件

当用户在“窗体”视图、“数据表视图”、“数据透视表视图”或“数据透视图视图”中滚动鼠标轮时,该事件发生。

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

Page   如果页已更改,则为 True。

Count   用鼠标轮滚动视图的行数。

VBA示例

下面的示例说明了捕获 MouseWheel事件的子程序的语法。


Private Sub Form_MouseWheel( _
        ByVal Page As Boolean, ByVal Count As Long)
    If Page = True Then
        MsgBox "You've moved to another page."
    End If
End Sub

上页:Access VBA教程:MouseUp事件 下页:Access VBA教程:NoData事件

Access VBA教程:MouseWheel事件

Access VBA教程:NoData事件 Access VBA教程:NotInList事件
Access VBA教程:OnConnect事件 Access VBA教程:OnDisconnect事件
Access VBA教程:Open事件 Access VBA教程:Page事件
Access VBA教程:PivotTableChange事件 Access VBA教程:Print事件
Access VBA教程:Progress事件 (Snapshot Viewer) Access VBA教程:Query事件
Access VBA教程:ReadyStateChange事件 (Snapshot Viewer) Access VBA教程:RecordExit事件
Access VBA教程:Resize事件 Access VBA教程:Retreat事件
Access VBA教程:RollbackTransaction事件 Access VBA教程:SelectionChange事件
Access VBA教程:Terminate事件 Access VBA教程:Timer事件
Access VBA教程:Undo事件 Access VBA教程:UndoBatchEdit事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号