MouseCursor Property

Purpose

Returns or sets a value indicating the type of mouse pointer displayed when the mouse is over a particular part of an object at run-time.

Syntax

Object.MouseCursor [ = CValue ]

Description

The MouseCursor property takes a MouseCursor object, which is returned by LoadCursor for instance. The MouseCursor property provides a custom icon that is used when the MousePointer property is set to 98 (basCursor).

The MouseCursor object only has one property.

• Handle - Returns the hCursor handle of the cursor (read-only).

Example

OpenW 1

Local mc As MouseCursor

If Exist(WinDir & "\Cursors\hourglas.ani") // Only included up to WinXP

Set mc = LoadCursor(WinDir & "\Cursors\hourglas.Ani")

Else

Set mc = LoadCursor(WinDir & "\Cursors\aero_busy.ani")

EndIf

Set Win_1.MouseCursor = mc

Win_1.MousePointer = 98     // basCursor

Print Win_1.MouseCursor.Handle

Do

Sleep

Until IsNothing(Me)

Set mc = Nothing

Remarks

See Also

LoadCursor, MouseIcon, MousePointer, DefMouse

{Created by Sjouke Hamstra; Last updated: 02/07/2022 by James Gaite; Other Contributors: Jean-Marie Melanson}