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 |
.gif "Gg663110.BIZOMArrow(en-us,MSDN.10).gif") |
Arrow |
geoPointerArrowHourglass |
13 |
.gif "Gg663110.BIZOMArrowHourglass(en-us,MSDN.10).gif") |
Arrow and hourglass |
geoPointerArrowQuestion |
14 |
.gif "Gg663110.BIZOMArrowQuestion(en-us,MSDN.10).gif") |
Arrow and question mark |
geoPointerCrosshair |
2 |
.gif "Gg663110.BIZOMCrosshair(en-us,MSDN.10).gif") |
Crosshair |
geoPointerDefault |
0 |
.gif "Gg663110.BIZOMDefault(en-us,MSDN.10).gif") |
The MapPoint default |
geoPointerHand |
23 |
.gif "Gg663110.BIZOMHand(en-us,MSDN.10).gif") |
Hand |
geoPointerHourglass |
11 |
.gif "Gg663110.BIZOMHourglass(en-us,MSDN.10).gif") |
Hourglass |
geoPointerIbeam |
3 |
.gif "Gg663110.BIZOMIbeam(en-us,MSDN.10).gif") |
I beam |
geoPointerNoDrop |
12 |
.gif "Gg663110.BIZOMNoDrop(en-us,MSDN.10).gif") |
No drop |
geoPointerSizeAll |
15 |
.gif "Gg663110.BIZOMSizeAll(en-us,MSDN.10).gif") |
Size all |
geoPointerSizeNESW |
6 |
.gif "Gg663110.BIZOMSizeNESW(en-us,MSDN.10).gif") |
Double-headed arrow pointing northeast and southwest |
geoPointerSizeNS |
7 |
.gif "Gg663110.BIZOMSizeNS(en-us,MSDN.10).gif") |
Double-headed arrow pointing north and south |
geoPointerSizeNWSE |
8 |
.gif "Gg663110.BIZOMSizeNWSE(en-us,MSDN.10).gif") |
Double-headed arrow pointing northwest and southeast |
geoPointerSizeWE |
9 |
.gif "Gg663110.BIZOMSizeWE(en-us,MSDN.10).gif") |
Double-headed arrow pointing west and east |
geoPointerUpArrow |
10 |
.gif "Gg663110.BIZOMUpArrow(en-us,MSDN.10).gif") |
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