自己制作鼠标指针怎么自己做鼠标指针 _自己制作鼠标指针

文章插图

文章插图
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形和默认形状之间切换。
鼠标应用相对较少，甚至在某些时候可以用也可以不用。

自己制作鼠标指针 怎么自己做鼠标指针

自己制作鼠标指针怎么自己做鼠标指针