首页 > 网游 > 正文

动态鼠标指针怎么制作（电脑动态鼠标指针）需要的进来看看吧-天天最资讯

2023-02-13 11:21:02来源：互联网  

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 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 IfEnd Sub

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

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

标签：

相关阅读

精彩推荐

爱优特电净化技术惊艳亮相2023美国AHR暖通制冷展
爱优特电净化技术惊艳亮相2023美国AHR暖通制冷展

阅读排行

相关词

推荐阅读

联系我们:85 572 98@qq.com
骄阳网 -　关于我们　-　联系方式　-　版权声明　-　招聘信息

Copyright© 2014-2017 骄阳网(www.joyyang.com) All rights reserved.

粤ICP备18023326号-30未经过本站允许,请勿将本站内容传播或复制.