Access VBA教程:MousePointer属性

MousePointer属性可以和Screen对象一起用于指定或确定当前显示的鼠标指针类型。Integer 型,可读写。

expression.MousePointer

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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。

VBA示例

下面的示例将鼠标指针改为沙漏图标。

Screen.MousePointer = 11

上页:Access VBA教程:Modules属性 下页:Access VBA教程:MouseWheel属性

Access VBA教程:MousePointer属性

Access VBA教程:MouseWheel属性 Access VBA教程:Moveable属性
Access VBA教程:MoveLayout属性 Access VBA教程:MSODSC属性
Access VBA教程:MultiRow属性 Access VBA教程:MultiSelect属性
Access VBA教程:Name属性 Access VBA教程:NavigationButtons属性
Access VBA教程:NewFileTaskPane属性 Access VBA教程:NewRecord属性
Access VBA教程:NewRowOrCol属性 Access VBA教程:NewValues属性
Access VBA教程:NextRecord属性 Access VBA教程:NumeralShapes属性
Access VBA教程:Object属性 Access VBA教程:ObjectPalette属性
Access VBA教程:Object属性 Access VBA教程:ObjectVerbs属性
Access VBA教程:ObjectVerbsCount属性 Access VBA教程:ODBCConnectStr属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号