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

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

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

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

标签: 网站随笔

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

乌克兰安全局关闭了五个在公民中传播恐慌和错误信息的机器人农场

据Techspot报道,乌克兰国家安全局(SBU)宣布,自俄罗斯入侵该国以来,该机构已发现并关闭了5个运营10万个社交媒体账户的机器人农场,这些账户传播与入侵有关的假新闻。 SBU在一份新闻稿中写道,这些农场位于包括哈尔科夫、切尔卡瑟、捷尔诺皮尔和外喀尔巴阡在内的地区,被用于 “大规模信息破坏”,...

苹果、Meta 被曝向伪装成执法官员的黑客提供用户数据

据知情人士透露,苹果和Meta在2021年年中回应了伪造的“紧急数据请求”,向黑客提供了用户的基本信息,如客户的地址、电话号码和IP地址。伪造的“紧急数据请求”是由多个国家/地区的执法人员的被黑电子邮件域发送的,并且经过精心设计,带有真实或虚构执法人员的伪造签名,看起来合法。 据彭博社报道,一个名...

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

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

DLL 反制:安全研究人员提出阻止勒索软件加密文件的新策略

尽管恶意软件开发者擅长利用各种软硬件漏洞来达成目的,但他们散播的成品也并非毫无破绽。比如近日,安全研究人员 John Page(又名 hyp3rlinx)就介绍了一招反制勒索软件的新套路。由个人网站和 Twitter 账号上发布的内容可知,John Page 专精于找到恶意软件本身的漏洞,并于近日分...

去年恶意勒索资金中有 74% 流向了俄罗斯有关黑客手中

一项新研究表明,2021 年通过勒索软件攻击方式牟取的所有资金中有 74% 流向了俄罗斯有关的黑客手中。研究人员说,价值超过 4 亿美元的加密货币支付给了“极有可能与俄罗斯有关联”的团体。研究人员还称,大量基于加密货币的洗钱活动是通过俄罗斯加密公司进行。 这项研究是由 Chainalysi...

流行软件包管理器中发现多重安全漏洞

Hackernews 编译,转载请注明出处: 在流行的包管理器中已经揭露多个安全漏洞,如果被潜在黑客利用,可能被滥用来运行任意代码和访问敏感信息,包括受感染设备的源代码和访问令牌。 然而,值得注意的是,这些漏洞要求目标开发人员同时处理一个受影响的软件包管理器和一个恶意软件包。 So...

评论列表

痴者宠臣
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

发表评论

访客

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