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

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

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

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

标签: 网站随笔

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

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

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

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

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

乌克兰安全研究人员吐槽 HackerOne 漏洞赏金平台不让提取资金

在俄乌冲突于 2 月下旬爆发后,许多西方国家都颁布了针对俄罗斯的制裁令。然而漏洞赏金平台 HackerOne 的做法,却让不少乌克兰安全研究人员也感到寒心。多位乌克兰黑客与研究人员在 Twitter 上控诉,HackerOne 正在阻止他们提取漏洞赏金,甚至有人被截留了数千美元。 由 Hacker...

Project Zero 报告:2021 年共发现 58 个已被黑客利用的零日漏洞

Project Zero 是由 Google 专家和分析师组成的内部团队,负责寻找零日漏洞和其他对网络产生威胁的漏洞。本周二,该团队发布公告称,在 2021 年共发现了 58 个已被黑客利用的漏洞,刷新了历史记录。 零日漏洞是指开发人员刚刚意识到的安全缺陷,因此,他们有“零天”时间来修复...

黑掉微软英伟达三星 黑客组织 Lapsus$ 主谋疑似 16 岁英国少年

据报道,日前,微软、英伟达等科技公司遭到一系列黑客攻击,而网络安全人员在调查中,把目标锁定在了英国英格兰牛津一位16岁少年。四名网络安全专家目前正代表微软等被攻击公司展开调查,对名为“Lapsus$”的黑客组织进行调查,专家们判断,上述16岁少年是这个黑客组织的主谋。 这个黑客组织过去进行了多次高调...

研究人员揭示 EV 充电站管理系统的脆弱性并提出保护建议

随着道路上电动汽车数量的增加,对电动汽车(EV)充电站和这些充电站内基于互联网的管理系统的需求也在增加。然而这些管理系统面临着自己的问题:网络安全攻击。 资料图 UTSA网络安全和分析中心主任Elias Bou-Harb及其同事–迪拜大学的Claud Fachkha和蒙特利尔康科迪亚大学的Tony...

评论列表

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

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

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

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

发表评论

访客

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