Access中如何設(shè)定鼠標(biāo)指針？

2020-03-24 19:24:34

字體：大中小

供稿：網(wǎng)友

PrivateDeclareFunctionalxSetCursorLib"user32"Alias"SetCursor"(ByValhCursorAsLong)AsLong
'將指定的鼠標(biāo)指針設(shè)為當(dāng)前指針
PrivateDeclareFunctionalxGetCursorLib"user32"Alias"GetCursor"()AsLong
'獲取目前選擇的鼠標(biāo)指針的句柄

PrivateSubMouseType()
'取得左右形光標(biāo)的值
Screen.MousePointer=9'設(shè)屏幕鼠標(biāo)為9（左右型鼠標(biāo)）。
lngMouseOne=alxGetCursor()'返回左右型鼠標(biāo)在WINDOWS(2000/98/XP)的值。
Screen.MousePointer=7'設(shè)屏幕鼠標(biāo)為11（沙漏）。
lngMouseTwo=alxGetCursor()'返回左右型鼠標(biāo)在WINDOWS(2000/98/XP)的值。
Screen.MousePointer=0'重設(shè)屏幕鼠標(biāo)為0（ACCESS自確定）。
blTextout=False
blTextlook=False
EndSub

方法二：
隨便找一個(gè).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"
'可隨意調(diào)用其他的.cur鼠標(biāo)樣式文件，以達(dá)到顯示各種指針的目的
lngMyCursor=LoadCursorFromFile(strCurFile)
lngSystemCursor=GetCursor()
lngSystemCursor=CopyCursor(lngSystemCursor)
SetSystemCursorlngMyCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text="鼠標(biāo)指針已經(jīng)設(shè)定為您要的狀態(tài)"
cmdMyCursor.Enabled=False
cmdSystemCursor.Enabled=True
EndSub privateSubcmdSystemCursor_Click()'恢復(fù)系統(tǒng)指針樣式
SetSystemCursorlngSystemCursor,OCR_NORMAL
Text1.SetFocus
Text1.Text="鼠標(biāo)指針已經(jīng)恢復(fù)為系統(tǒng)狀態(tài)"
cmdMyCursor.Enabled=True
cmdSystemCursor.Enabled=False
lngSystemCursor=0
EndSubprivateSubForm_Close()
IflngSystemCursor 0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSubprivateSubForm_Unload(CancelAsInteger)
IflngSystemCursor 0ThenSetSystemCursorlngSystemCursor,OCR_NORMAL
EndSub 本文作者:html教程

鄭重聲明：本文版權(quán)歸原作者所有，轉(zhuǎn)載文章僅為傳播更多信息之目的，如作者信息標(biāo)記有誤，請(qǐng)第一時(shí)間聯(lián)系我們修改或刪除，多謝。

上一篇：使ACCESS數(shù)據(jù)庫(kù)在網(wǎng)絡(luò)使用中保持同步

下一篇：Access 2002的三個(gè)實(shí)用技巧