Zoom in or zoom out using the mouse.
.NET Syntax
Visual Basic (Declaration) | |
---|
Function MouseWheelXYZ( _
ByVal X As System.Double, _
ByVal Y As System.Double, _
ByVal Z As System.Double, _
ByVal Clicks As System.Integer, _
ByVal Flags As System.Integer _
) As System.Boolean |
Visual Basic (Usage) | |
---|
Dim instance As IMouse
Dim X As System.Double
Dim Y As System.Double
Dim Z As System.Double
Dim Clicks As System.Integer
Dim Flags As System.Integer
Dim value As System.Boolean
value = instance.MouseWheelXYZ(X, Y, Z, Clicks, Flags) |
C# | |
---|
System.bool MouseWheelXYZ(
System.double X,
System.double Y,
System.double Z,
System.int Clicks,
System.int Flags
) |
C++/CLI | |
---|
System.bool MouseWheelXYZ(
& System.double X,
& System.double Y,
& System.double Z,
& System.int Clicks,
& System.int Flags
) |
Parameters
- X
- x coordinate where to move the pointer
- Y
- y coordinate where to move the pointer
- Z
- z coordinate where to move the pointer
- Clicks
- Number of clicks to zoom in and out; specify -120 to to zoom in one click and specify 120 to to zoom out
- Flags
- Mouse command as defined in swMouse_e (see Remarks)
Return Value
True if the operation succeeded, false if not
Example
Visual Basic for Applications (VBA)
'--------------------------------
' Preconditions: Model document is open.
'
' Postconditions: Model is zoomed in and out.
'--------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelView As SldWorks.ModelView
Dim swMouse As SldWorks.Mouse
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelView = swModel.ActiveView
Set swMouse = swModelView.GetMouse
swMouse.MouseWheelXYZ 0, 0, 0, 120, swMouse_RightUp
swMouse.MouseWheelXYZ 0, 0, 0, 120, swMouse_RightUp
swMouse.MouseWheelXYZ 0, 0, 0, 240, swMouse_RightUp
swMouse.MouseWheelXYZ 0, 0, 0, -120, swMouse_RightUp
swMouse.MouseWheelXYZ 0, 0, 0, -240, swMouse_RightUp
End Sub
Remarks
See Also
Availability
SOLIDWORKS 2009 FCS, Revision Number 17.0