<<< 返回 access911.net 编程静态资料库索引页

如何设定鼠标指针?

 

作者:  摘自:  录入:cg1  时间:2003-8-31  浏览人次:2107


专题地址:http://access911.net/fixhtm/78FAB31E12DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

如何设定鼠标指针?

 


方法一:

Private Declare Function alxSetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long
'将指定的鼠标指针设为当前指针
Private Declare Function alxGetCursor Lib "user32" Alias "GetCursor" () As Long
'获取目前选择的鼠标指针的句柄



Private Sub MouseType()
'取得左右形光标的值
    Screen.MousePointer = 9 '设屏幕鼠标为9(左右型鼠标)。
    lngMouseOne = alxGetCursor() '返回左右型鼠标在WINDOWS(2000\98\XP)的值。
    Screen.MousePointer = 7 '设屏幕鼠标为11(沙漏)。
    lngMouseTwo = alxGetCursor() '返回左右型鼠标在WINDOWS(2000\98\XP)的值。
    Screen.MousePointer = 0 '重设屏幕鼠标为0(ACCESS自确定)。.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/78FAB31E12DC.htm

 


上一篇:新手来看:如何改变graph控件的图形?

下一篇:新手来看:如何屏蔽Access的启动图片?

2017年2月22日生成静态资料