河豚号

  2. 河豚号 > 生活百科 >

动态鼠标指针怎么制作（电脑动态鼠标指针）

河豚侠 • 生活百科 • 2022-06-27 08:42:25 •

No.1

在VBA编程中，鼠标形状也是可以改变，通常情况下，很少主动设置鼠标形状。

如果熟悉Windows系统设置，那么对鼠标设置也不陌生。

VBA并不是可视化操作，本节就讲一下，如何在编程中动态改变鼠标形状。

 

VBA如何改变鼠标指针形状，就是这个属性

 

鼠标形状就是个参数设置，这个参数在VBA里以常量形式来固定下来，如何让鼠标符合我们主定义的方式来显示，只需要将常量进行改变一下就可以实现。

实现这个过程的属性为Cursor，是Application对象的一个属性，应用常量XlMousePointer。

XlMousePointer常量有如下四种：

Application.Cursor=XlDefault

Application.Cursor=XlBeam

Application.Cursor=XlNorthwestArrow

Application.Cursor=XlWait

常量说明

xlDefault默认指针

xlIBeamI 形指针

xlNorthwestArrow西北向箭头指针

xlWait沙漏型指针

 

VBA如何改变鼠标指针形状，就是这个属性

 

上图为例，对鼠标形状设置，当选择红色区域的时候，鼠标变为I形，当选择其它区域的时候鼠标变为默认形状。

应用形式还是十分简单的。

 

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 = "指针变为I形"

Else

Application.Cursor = xlDefault

cell.Value = ""

cell.Item(1).Value = "指针恢复默认"

End If

End Sub

上面代码要放到Worksheet_SelectionChange事件里，执行以后观看鼠标形状，在I形和默认形状之间切换。

鼠标应用相对较少，甚至在某些时候可以用也可以不用。

本文由网上采集发布，不代表我们立场，转载联系作者并注明出处：http://www.yujujie.cn/shbk/41413.html

相关推荐

联系我们

在线咨询：点击这里给我发消息

微信号：15705946153

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