MousePointer property
Returns or sets the type of mouse pointer displayed when the mouse is hovered over the map. Read/write GeoPointer.
GeoPointer | Value | Icon | Description |
---|---|---|---|
geoPointerArrow |
1
|
![]() |
Arrow |
geoPointerArrowHourglass |
13
|
![]() |
Arrow and hourglass |
geoPointerArrowQuestion |
14
|
![]() |
Arrow and question mark |
geoPointerCrosshair |
2
|
![]() |
Crosshair |
geoPointerDefault |
0
|
![]() |
The MapPoint default |
geoPointerHand |
23
|
![]() |
Hand |
geoPointerHourglass |
11
|
![]() |
Hourglass |
geoPointerIbeam |
3
|
![]() |
I beam |
geoPointerNoDrop |
12
|
![]() |
No drop |
geoPointerSizeAll |
15
|
![]() |
Size all |
geoPointerSizeNESW |
6
|
![]() |
Double-headed arrow pointing northeast and southwest |
geoPointerSizeNS |
7
|
![]() |
Double-headed arrow pointing north and south |
geoPointerSizeNWSE |
8
|
![]() |
Double-headed arrow pointing northwest and southeast |
geoPointerSizeWE |
9
|
![]() |
Double-headed arrow pointing west and east |
geoPointerUpArrow |
10
|
![]() |
Arrow pointing north |
Applies to
Objects: Application, MappointControl
Syntax
object.MousePointer
Parameters
Part | Description |
---|---|
object | Required. An expression that returns an Application or MappointControl object. |
Example
Sub ChangeMapCursor()
Dim objApp As New MapPoint.Application
'Set up application
objApp.Visible = True
objApp.UserControl = True
'Set the mouse pointer to an icon that points up
'and down when hovering over the map
objApp.MousePointer = geoPointerSizeNS
End Sub