2. 河豚號 > 生活百科 >

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

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

No.1

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

如果熟悉Windows系統設置，那么對鼠標設置也不陌生。

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

 

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

 

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

實(shí)現這個(gè)過(guò)程的屬性為Cursor，是Application對象的一個(gè)屬性，應用常量XlMousePointer。

XlMousePointer常量有如下四種：

Application.Cursor=XlDefault

Application.Cursor=XlBeam

Application.Cursor=XlNorthwestArrow

Application.Cursor=XlWait

常量說(shuō)明

xlDefault默認指針

xlIBeamI 形指針

xlNorthwestArrow西北向箭頭指針

xlWait沙漏型指針

 

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

 

上圖為例，對鼠標形狀設置，當選擇紅色區域的時(shí)候，鼠標變?yōu)镮形，當選擇其它區域的時(shí)候鼠標變?yōu)槟J形狀。

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

 

VBA如何改變鼠標指針形狀，就是這個(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 = "指針恢復默認"

End If

End Sub

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

鼠標應用相對較少，甚至在某些時(shí)候可以用也可以不用。

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

相關(guān)推薦

聯(lián)系我們

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

微信號：15705946153

工作日：9:30-18:30，節假日休息

国产精品亚洲w码日韩中文|国产高清露脸孕妇系列|久久国语露脸国产精品|久久久777精品电影网影网|欧美高大丰满freesex