在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形和默认形状之间切换。
鼠标应用相对较少,甚至在某些时候可以用也可以不用。
近日 Android 设备被爆存在安全漏洞,但根源来自于苹果的无损音频编解码器(ALAC)。目前,美国市场 95% 的 Android 设备来自于高通和联发科,安全公司 Check Point 指出尚未安装 2021 年 12 月 Android Security Patch 的设备都存在“Out-...
Hackernews 编译,转载请注明出处: 在流行的包管理器中已经揭露多个安全漏洞,如果被潜在黑客利用,可能被滥用来运行任意代码和访问敏感信息,包括受感染设备的源代码和访问令牌。 然而,值得注意的是,这些漏洞要求目标开发人员同时处理一个受影响的软件包管理器和一个恶意软件包。 So...
网络安全仍然是一个不断发展的领域,对威胁者和安全专家来说都是如此。尽管如此,最近产生的一个积极因素是,公司更愿意与合作伙伴、专家和更大的社区分享信息,共同应对威胁。这方面的一个例子是,微软与苹果合作修补macOS设备中的”Shrootless”漏洞。微软已经提供了有关一个针对Mac的复杂木马的详细信...
一位最近出院的心脏病患者正在使用智能手表来帮助监测他的心电图信号。这款智能手表看起来非常安全,但处理该健康信息的神经网络使用的是私人数据,这些数据仍有可能被恶意代理通过侧信道攻击窃取。 边信道攻击试图通过间接利用一个系统或其硬件来收集秘密信息。在一种类型的边信道攻击中,精明的黑客可以在神经网络运行...
摄影和个性化照片巨头 Shutterfly 近日遭到 Conti 的勒索软件攻击,据称该软件已经加密了数千台设备并窃取了企业数据。大约 2 周前,Shutterfly 遭受了 Conti 团伙的勒索软件攻击,他们声称已经加密了 4000 多台设备和 120 台 VMware ESXi 服务器。勒索软...
Intel Labs在去年宣布了ControlFlag项目,以利用人工智能寻找代码中的漏洞。ControlFlag是一个开源的、利用机器学习来发现任意代码库中的错误的项目,起初它专注于发现C/C++代码中的错误,但随着其新的V1.1版本的发布,开始支持发现PHP代码当中的错误。 ControlFl...