2. 河豚號 > 生活百科 >

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

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

No.1

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

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

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

 

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

 

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

實現(xiàn)這個過程的屬性為Cursor，是Application對象的一個屬性，應用常量XlMousePointer。

XlMousePointer常量有如下四種：

Application.Cursor=XlDefault

Application.Cursor=XlBeam

Application.Cursor=XlNorthwestArrow

Application.Cursor=XlWait

常量說明

xlDefault默認指針

xlIBeamI 形指針

xlNorthwestArrow西北向箭頭指針

xlWait沙漏型指針

 

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

 

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

應用形式還是十分簡單的。

 

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

 

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事件里，執(zhí)行以后觀看鼠標形狀，在I形和默認形狀之間切換。

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

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

相關推薦

聯(lián)系我們

在線咨詢：點擊這里給我發(fā)消息

微信號：15705946153

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