Set Mouse Pointer Symbol

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:

    • CommandState - SetDefaultCursor and SetLocateCursor
    • Application - StartBusyCursor and StopBusyCursor

    However, if you are looking to create new elements, or modify existing elements with MicroStation VBA; consider using:

    • IPrimitiveCommandEvents
    • ILocateCommandEvents

    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



  • 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