Dear all,
In Microstation version 08.05.01.25 windows x86, How to set mouse pointer symbol like crosshair,Arrow,Help,etc., using vba?
MicroStation VBA provides these "direct" methods:
However, if you are looking to create new elements, or modify existing elements with MicroStation VBA; consider using:
For setting cursor shape, size, and color active settings consider using:
Set Cursor Style and Size
set cursor orthogonal
Set cursor style to: Orthogonal — Traditional “+” pointer (the default).
set cursor isometric
Set cursor style to : Isometric — Cross hairs are aligned with the isometric drawing plane (top, left, right, or all). This is especially useful with the Place Isometric Block and the Place Isometric Circle tools. The Isometric Plane is set in the Locks dialog.
set cursor small
Set cursor size to Small for the active cursor style (ortho or iso)
set cursor full
Set cursor size to Full Screen for the active cursor style (ortho or iso)
set cursor toggle
Toggle cursor size between Small or Full Screen modes
Set Cursor Color
SET XOR ColorName
COLOR NAMES: black, blue, cyan, dgrey, green, lgrey, magenta, red, white, white, yellow
HTH,Bob
Thanks Bob.
Unknown said:How to set mouse pointer symbol like crosshair,Arrow,Help,etc., using vba?
When the cursor is inside a VBA UserForm, you can set the UserForm.MousePointer property.
If you call into the MDL API, you can set the mouse pointer to one of the standard Windows pointers anywhere inside MicroStation. MicroStation VBA: Set Mouse Pointer shows you how.
Regards, Jon Summers LA Solutions