<strong id="riedb"><track id="riedb"></track></strong><em id="riedb"><acronym id="riedb"></acronym></em>

<tbody id="riedb"></tbody>

_{<em id="riedb"><acronym id="riedb"></acronym></em>}

<tbody id="riedb"></tbody>

<tbody id="riedb"><center id="riedb"></center></tbody>

首頁 > 數據庫 > 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教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：使ACCESS數據庫在網絡使用中保持同步

下一篇：Access 2002的三個實用技巧

學習交流

MBR怎么轉換為GPT？硬盤MBR格式轉換成GPT格

MBR怎么轉換為GPT？硬盤MBR格式轉換成GPT格式教程...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

陌陌成立文化傳播新公司聯合創始人雷小亮任法定代表人

2020-03-25 12:47:38

美團云5月31日起停止對用戶服務

2020-03-22 13:00:36

中國移動2019年凈利潤1066億元超出預期

2020-03-19 18:53:05

國內油價重回“5元時代” 92號汽油每升下調0.80元

2020-03-18 19:35:57

騰訊在天津成立新公司斥資2億元人民幣

2020-03-18 19:32:46

軟銀集團或放棄收購WeWork 30億美元收購要約計劃告吹

2020-03-18 19:30:20

疑難解答

圖片精選

網友關注

黄色片自拍视频网站在线观看不卡无码丨精品精品自在现拍国产2021丨亚洲三级片在线观看在线免费观看丨波多野结衣在线视频一区二区三区

<strong id="riedb"><track id="riedb"></track></strong><em id="riedb"><acronym id="riedb"></acronym></em>

<tbody id="riedb"></tbody>

_{<em id="riedb"><acronym id="riedb"></acronym></em>}

<tbody id="riedb"></tbody>

<tbody id="riedb"><center id="riedb"></center></tbody>