MousePointer 属性
内容
MousePointer 属性可以和 Screen 对象一起用于指定或确定当前显示的鼠标指针类型。Integer 型，可读写。
expression 必需。返回“应用于”列表中的一个对象的表达式。
说明
MousePointer 属性为 Integer 型值，表示下列指针之一：
设置 |
说明 |
0 |
（默认值）形状由 Microsoft Access 确定 |
1 |
常规选择（箭头） |
3 |
文本选择（I 型指针） |
7 |
垂直调整大小（南、北方向） |
9 |
水平调整大小（东、西方向） |
11 |
系统忙（沙漏） |
注释 如果将 MousePointer 属性设为上表中没有列出的整数，则该属性值会被设置为 0。
仅在使用 Visual Basic 时才能设置 MousePointer 属性。
MousePointer 属性将影响鼠标指针在整个屏幕上的外观。某些自定义控件也有 MousePointer 属性，设置该属性可以指定鼠标指针位于该控件上时如何显示。
可以将 MousePointer 属性值设为 11，显示沙漏图标，表明应用程序正忙。也可以读入 MousePointer 属性来确定正在显示何种图标。鼠标指针显示沙漏图标非常有用，可以避免用户在系统正忙的时侯误按命令按钮。
将 MousePointer 属性值设为 11 和将 True (-1) 参数值赋给 DoCmd 对象的 Hourglass 方法是等效的。相反，将 True 参数值赋给 Hourglass 方法也会将 MousePointer 属性值设为 11。
示例
下面的示例将鼠标指针改为沙漏图标。
Screen.MousePointer = 11