<var id="hrfrj"></var><cite id="hrfrj"><video id="hrfrj"><menuitem id="hrfrj"></menuitem></video></cite>
<cite id="hrfrj"><video id="hrfrj"><menuitem id="hrfrj"></menuitem></video></cite>
<noframes id="hrfrj"><listing id="hrfrj"></listing>
<ins id="hrfrj"></ins>
<cite id="hrfrj"><video id="hrfrj"></video></cite>
<cite id="hrfrj"></cite>
<cite id="hrfrj"></cite>
<var id="hrfrj"></var>
<cite id="hrfrj"><video id="hrfrj"><menuitem id="hrfrj"></menuitem></video></cite><var id="hrfrj"></var>
<cite id="hrfrj"></cite>
首页 > 数据库 > Access > 正文

Access中如何设定鼠标指针?

2020-03-24 19:24:34
字体:
来源:转载
供稿:网友
PrivateDeclareFunctionalxSetCursorLib"user32"Alias"SetCursor"(ByValhCursorAsLong)AsLong
'将指定的鼠标指针设为当前指针
PrivateDeclareFunctionalxGetCursorLib"user32"Alias"GetCursor"()AsLong
'获取目前选择的鼠标指针的句柄



PrivateSubMouseType()
'取得左右形光标的值
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自确定)。
blTextout=False
blTextlook=False
EndSub

方法二:
随便找一个.cur文件copy到mdb文件相同的目录

PrivateDeclareFunctionCopyCursorLib"user32"Alias"CopyIcon"(ByValhcurAsLong)AsLong
PrivateDeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVallpstrCurFileAsString)AsLong
PrivateDeclareFunctionGetCursorLib"user32"()AsLong
PrivateDeclareFunctionSetSystemCursorLib"user32"(ByValhcurAsLong,ByValidAsLong)AsLong
PrivateConstOCR_NORMAL=32512 dimlngMyCursorAsLong
DimlngSystemCursorAsLong


PrivateSubcmdMyCursor_Click()'更改指针样式
DimstrCurFileAsString
strCurFile=CurrentProject.Path+"/Cursor.cur"
'可随意调用其他的.cur鼠标样式文件,以达到显示各种指针的目的
lngMyCursor=LoadCursorFromFile(strCurFile)
lngSystemCursor=GetCursor()
lngSystemCursor=CopyCursor(lngSystemCursor)
SetSystemCursorlngMyCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text="鼠标指针已经设定为您要的状态"
cmdMyCursor.Enabled=False
cmdSystemCursor.Enabled=True
EndSub privateSubcmdSystemCursor_Click()'恢复系统指针样式
SetSystemCursorlngSystemCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text="鼠标指针已经恢复为系统状态"
cmdMyCursor.Enabled=True
cmdSystemCursor.Enabled=False
lngSystemCursor=0
EndSubprivateSubForm_Close()
IflngSystemCursor 0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSubprivateSubForm_Unload(CancelAsInteger)
IflngSystemCursor 0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSub 本文作者:html教程

郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表
色欲色香天天天综合网站免费-国产精品美女久久久免费
<蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链>