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

emc易倍官方网站二：
随便找一个.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()'恢复emc易倍官方网站指针样式
SetSystemCursorlngSystemCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text="鼠标指针已经恢复为emc易倍官方网站动静"
cmdMyCursor.Enabled=True
cmdSystemCursor.Enabled=False
lngSystemCursor=0
EndSubprivateSubForm_Close()
IflngSystemCursor 0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSubprivateSubForm_Unload(CancelAsInteger)
IflngSystemCursor 0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSub 本文作者:html教程

郑重声明：本文版权交易中心归原作者所有，转载文章仅为传播祥仔更多大片访问信息之目的，如作者信息标记有误，请第一下子搭头我们改动或删去，谢谢。

上一篇：使ACCESS数据透视表库在网络动用中保障同步

下一篇：Access 2002的三个白痴有数实用的销售技巧