当前位置:首页 > 网站入侵 > 正文内容

动态鼠标指针怎么 *** (电脑动态鼠标指针)

访客3年前 (2022-01-26)网站入侵1018

No.1

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

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

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

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

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

XlMousePointer常量有如下四种:

Application.Cursor=XlDefault Application.Cursor=XlBeam Application.Cursor=XlNorthwestArrow Application.Cursor=XlWait 常量说明xlDefault默认指针xlIBeamI 形指针xlNorthwestArrow西北向箭头指针xlWait沙漏型指针

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

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

No.2

代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range%2c r As Range%2c Cy As Boolean
Cy = False
Set cell = Range(ActiveSheet.Cells(9%2c 2)%2c ActiveSheet.Cells(13%2c 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形和默认形状之间切换。

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

扫描二维码推送至手机访问。

版权声明:本文由黑客技术发布,如需转载请注明出处。

本文链接:https://w-123.com/90535.html

标签: 网站随笔

“动态鼠标指针怎么 *** (电脑动态鼠标指针)” 的相关文章

“Hack DHS”漏洞猎人在国土安全部系统中发现 122 个安全漏洞

据美国国土安全部(DHS)近日透露,加入“Hack DHS”漏洞赏金项目(bug bounty program)的赏金猎人已经在国土安全部的外部系统中发现了122个安全漏洞,其中27个被评估为严重漏洞。 据悉,国土安全部已向450多名经审查的安全研究人员和道德黑客发放了总计125,600美元的奖金...

荷兰白帽黑客轻松攻破电网控制系统 捧走其第四座 Pwn2Own 奖杯

在本周于佛罗里达州迈阿密举办的 Pwn2Own 2022 大会上,两名来自荷兰的白帽黑客获得了第四次胜利。作为这场年度黑客大会的大赢家,Dean Keuper 和 Thijs Alkemade 获得了 90000 美元奖励、且捧走了冠军奖杯。此前这对搭档曾于 2012、2018 和 2021 年创下...

乌克兰安全局宣称逮捕了协助俄军开展通讯中继服务的黑客

Vice 报道称,在最近一次行动中,乌克兰安全局(SBU)声称抓获了一名在乌境内为俄军提供通信服务的黑客。在当天上午 10 点发布的推文和电报消息中,SBU 分享了本次行动的诸多细节。尽管尚未得到另一独立消息源的证实,但我们已经看到了面部打码的黑客、以及所谓的通信系统照片。 电报帖子指出,黑客...

NVIDIA 拒绝支付赎金后 威胁者利用代码签署恶意软件 可在 Windows 中加载

利用窃取过来的 NVIDIA 代码,威胁者利用签名证书来签署恶意软件,使其看起来值得信赖,并允许在 Windows 中加载恶意驱动程序。本周,NVIDIA 公司证实,他们遭受了一次网络攻击,使威胁者得以窃取员工的证书和专有数据。 对本次泄露事件负责的勒索集团 Lapsus$ 表示,他们已经窃取了...

私钥失窃:慧与证实 Aruba Networks 客户数据泄露事件

作为慧与(HPE)的一家网络设备制造子公司,Aruba Networks 于早些时候发生了数据泄露事件。这家企业技术巨头在一份声明中称,未经授权者利用一把私钥,访问了存储于 Aruba Central 云端的客户数据。尽管未详细说明黑客是如何获取到私钥的,但 HPE 确认它可被用于访问存储客户数据的...

美国联邦调查局通缉 23 岁俄罗斯黑客

 Hackernews 编译,转载请注明出处: 一名23岁的俄罗斯人在美国被起诉,并被列入美国联邦调查局网络通缉名单,因为他被指控是一家网络犯罪论坛 Marketplace A的管理员,该论坛出售被盗的登录凭证、个人信息和信用卡数据。 伊戈尔 · 德赫蒂亚克(Igor Dekhty...

评论列表

痴者宠臣
3年前 (2022-05-31)

r End If Next r If Cy Then Application.Cursor = xlIBeam cell.Value = ""

慵吋离祭
3年前 (2022-06-01)

简单的。No.2代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim cell As

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。