1. 河豚號 > 生活百科 >

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

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ā)布,不代表我們立場,轉載聯(lián)系作者并注明出處:http://webhosting0.com/shbk/41413.html

聯(lián)系我們

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

微信號:15705946153

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