2. 河豚號(hào) > 生活百科 >

動(dòng)態(tài)鼠標(biāo)指針怎么制作（電腦動(dòng)態(tài)鼠標(biāo)指針）

河豚俠 ? 生活百科 ? 2022-06-27 08:42:25 ?

No.1

在VBA編程中，鼠標(biāo)形狀也是可以改變，通常情況下，很少主動(dòng)設(shè)置鼠標(biāo)形狀。

如果熟悉Windows系統(tǒng)設(shè)置，那么對(duì)鼠標(biāo)設(shè)置也不陌生。

VBA并不是可視化操作，本節(jié)就講一下，如何在編程中動(dòng)態(tài)改變鼠標(biāo)形狀。

 

VBA如何改變鼠標(biāo)指針形狀，就是這個(gè)屬性

 

鼠標(biāo)形狀就是個(gè)參數(shù)設(shè)置，這個(gè)參數(shù)在VBA里以常量形式來(lái)固定下來(lái)，如何讓鼠標(biāo)符合我們主定義的方式來(lái)顯示，只需要將常量進(jìn)行改變一下就可以實(shí)現(xiàn)。

實(shí)現(xiàn)這個(gè)過(guò)程的屬性為Cursor，是Application對(duì)象的一個(gè)屬性，應(yīng)用常量XlMousePointer。

XlMousePointer常量有如下四種：

Application.Cursor=XlDefault

Application.Cursor=XlBeam

Application.Cursor=XlNorthwestArrow

Application.Cursor=XlWait

常量說(shuō)明

xlDefault默認(rèn)指針

xlIBeamI 形指針

xlNorthwestArrow西北向箭頭指針

xlWait沙漏型指針

 

VBA如何改變鼠標(biāo)指針形狀，就是這個(gè)屬性

 

上圖為例，對(duì)鼠標(biāo)形狀設(shè)置，當(dāng)選擇紅色區(qū)域的時(shí)候，鼠標(biāo)變?yōu)镮形，當(dāng)選擇其它區(qū)域的時(shí)候鼠標(biāo)變?yōu)槟J(rèn)形狀。

應(yīng)用形式還是十分簡(jiǎn)單的。

 

VBA如何改變鼠標(biāo)指針形狀，就是這個(gè)屬性

 

No.2

代碼

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim cell As Range, r As Range, Cy As Boolean

Cy = False

Set cell = Range(ActiveSheet.Cells(9, 2), ActiveSheet.Cells(13, 10))

For Each r In cell

If Target.Address = r.Address Then

Cy = True

Exit For

End If

Next r

If Cy Then

Application.Cursor = xlIBeam

cell.Value = ""

r.Value = "指針變?yōu)镮形"

Else

Application.Cursor = xlDefault

cell.Value = ""

cell.Item(1).Value = "指針恢復(fù)默認(rèn)"

End If

End Sub

上面代碼要放到Worksheet_SelectionChange事件里，執(zhí)行以后觀看鼠標(biāo)形狀，在I形和默認(rèn)形狀之間切換。

鼠標(biāo)應(yīng)用相對(duì)較少，甚至在某些時(shí)候可以用也可以不用。

本文由網(wǎng)上采集發(fā)布，不代表我們立場(chǎng)，轉(zhuǎn)載聯(lián)系作者并注明出處：http://beyondyourquote.com/shbk/41413.html

相關(guān)推薦

聯(lián)系我們

在線咨詢(xún)：點(diǎn)擊這里給我發(fā)消息

微信號(hào)：15705946153

工作日：9:30-18:30，節(jié)假日休息