1. 首頁 > 生活 > >

自己制作鼠標指針 怎么自己做鼠標指針

小知識



文章插圖
自己制作鼠標指針 怎么自己做鼠標指針

文章插圖
No.1
在VBA編程中，鼠標形狀也是可以改變，通常情況下，很少主動設置鼠標形狀 。
如果熟悉Windows系統設置，那么對鼠標設置也不陌生 。
VBA并不是可視化操作，本節就講一下，如何在編程中動態改變鼠標形狀 。
鼠標形狀就是個參數設置，這個參數在VBA里以常量形式來固定下來，如何讓鼠標符合我們主定義的方式來顯示，只需要將常量進行改變一下就可以實現 。
實現這個過程的屬性為Cursor，是Application對象的一個屬性，應用常量XlMousePointer 。
XlMousePointer常量有如下四種：
Application.Cursor=XlDefaultApplication.Cursor=XlBeamApplication.Cursor=XlNorthwestArrowApplication.Cursor=XlWait
常量說明xlDefault默認指針xlIBeamI 形指針xlNorthwestArrow西北向箭頭指針xlWait沙漏型指針
上圖為例，對鼠標形狀設置，當選擇紅色區域的時候，鼠標變為I形，當選擇其它區域的時候鼠標變為默認形狀 。
應用形式還是十分簡單的 。
No.2
代碼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim cell As Range, r As Range, Cy As BooleanCy = FalseSet cell = Range(ActiveSheet.Cells(9, 2), ActiveSheet.Cells(13, 10))For Each r In cellIf Target.Address = r.Address ThenCy = TrueExit ForEnd IfNext rIf Cy ThenApplication.Cursor = xlIBeamcell.Valuehttp://www.mnbkw.com/jxjc/169362/= ""r.Valuehttp://www.mnbkw.com/jxjc/169362/= "指針變為I形"ElseApplication.Cursor = xlDefaultcell.Valuehttp://www.mnbkw.com/jxjc/169362/= ""cell.Item(1).Valuehttp://www.mnbkw.com/jxjc/169362/= "指針恢復默認"End IfEnd Sub【自己制作鼠標指針 怎么自己做鼠標指針】上面代碼要放到Worksheet_SelectionChange事件里，執行以后觀看鼠標形狀，在I形和默認形狀之間切換 。
鼠標應用相對較少，甚至在某些時候可以用也可以不用 。