Access平台开发人员帮助 > 通用函数库 > 按功能 > 鼠标控制

函数说明

该函数可以设置鼠标的形状。

注意：设置一下形状之后，会立马被系统设置回来。所以建议该函数要重复运行。例如在控件的鼠标移动事件写入该函数，则可以保存改变鼠标形状。

函数原型

Public Function gf_SetCursor(Optional CursorType As OcnCursorType = IDC_HAND)

语法

gf_SetCursor(CursorType)

参考：gf_SetCursor(IDC_HAND) ‘设置鼠标形状为手型

参数

参数名	必需/可选	数据类型	参数说明
CursorType	可选	OcnCursorType	要设置的鼠标形状。默认IDC_HAND(手型)。

返回值

无

示例

'窗体上有个Image控件，现在在其鼠标移动事件上写函数

Private Sub ImgTest_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

gf_SetCursor IDC_HAND '设置鼠标移动到该控件，鼠标形状改为手型

End Sub

设置鼠标形状（gf_SetCursor函数）