在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形,当选择其它区域的时候鼠标变为默认形状。
应用形式还是十分简单的。
代码
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形和默认形状之间切换。
鼠标应用相对较少,甚至在某些时候可以用也可以不用。
在本周于佛罗里达州迈阿密举办的 Pwn2Own 2022 大会上,两名来自荷兰的白帽黑客获得了第四次胜利。作为这场年度黑客大会的大赢家,Dean Keuper 和 Thijs Alkemade 获得了 90000 美元奖励、且捧走了冠军奖杯。此前这对搭档曾于 2012、2018 和 2021 年创下...
Vice 报道称,在最近一次行动中,乌克兰安全局(SBU)声称抓获了一名在乌境内为俄军提供通信服务的黑客。在当天上午 10 点发布的推文和电报消息中,SBU 分享了本次行动的诸多细节。尽管尚未得到另一独立消息源的证实,但我们已经看到了面部打码的黑客、以及所谓的通信系统照片。 电报帖子指出,黑客...
在俄乌冲突于 2 月下旬爆发后,许多西方国家都颁布了针对俄罗斯的制裁令。然而漏洞赏金平台 HackerOne 的做法,却让不少乌克兰安全研究人员也感到寒心。多位乌克兰黑客与研究人员在 Twitter 上控诉,HackerOne 正在阻止他们提取漏洞赏金,甚至有人被截留了数千美元。 由 Hacker...
Project Zero 是由 Google 专家和分析师组成的内部团队,负责寻找零日漏洞和其他对网络产生威胁的漏洞。本周二,该团队发布公告称,在 2021 年共发现了 58 个已被黑客利用的漏洞,刷新了历史记录。 零日漏洞是指开发人员刚刚意识到的安全缺陷,因此,他们有“零天”时间来修复...
据报道,日前,微软、英伟达等科技公司遭到一系列黑客攻击,而网络安全人员在调查中,把目标锁定在了英国英格兰牛津一位16岁少年。四名网络安全专家目前正代表微软等被攻击公司展开调查,对名为“Lapsus$”的黑客组织进行调查,专家们判断,上述16岁少年是这个黑客组织的主谋。 这个黑客组织过去进行了多次高调...
随着道路上电动汽车数量的增加,对电动汽车(EV)充电站和这些充电站内基于互联网的管理系统的需求也在增加。然而这些管理系统面临着自己的问题:网络安全攻击。 资料图 UTSA网络安全和分析中心主任Elias Bou-Harb及其同事–迪拜大学的Claud Fachkha和蒙特利尔康科迪亚大学的Tony...