VBA高级应用30例应用2:MouseMove鼠标左键按下并移动鼠标事件

2024-03-28 07:12

本文主要是介绍VBA高级应用30例应用2:MouseMove鼠标左键按下并移动鼠标事件,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

《VBA高级应用30例》(版权10178985),是我推出的第十套教程,教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开,这套教程案例与理论结合,紧贴“实战”,并做“战术总结”,以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序,写好的程序可以升级。本套教程共三册三十个专题,本讲的内容是:VBA高级应用30例应用2:MouseMove鼠标左键按下并移动鼠标事件fddfd58c3cce89f7a80d517c399ae04c.jpeg

分享成果,随喜正能量】 海洋能接纳百川,所以深不可测,广阔无边;大地能承载万物,所以生机勃勃,气象万千;天空能包容一切,所以宽广浩瀚、虚融自在;一颗宁静而平等的心,亦能包容万物、能感化世界上最顽固的敌人、能化解世间最强烈的仇恨、能治疗人类身心的疑难杂症。可以这么说,只要我们的心能够平静与自在,天下没有难事。心的自性是活泼的、灵活的、生动的、机灵的,心灵的力量超越世间所有力量。有心量就有福报,有福报就能心安,心安才能快乐。。

应用2 在列表框内及列表框间实现数据拖放

利用VBA编程时候,我们往往会利用列表框进行选择处理,最为方便的操作是拖放数据,但是在VBA中实现拖放,是比较困难的任务。为了便于在UserForm上的两个列表框之间完成拖放操作,我专门利用这个专题给大家讲解一个利用类模块的方案,在需要的时候,只需将其插入到VBA项目中即可。这样做之后,可以大大方便我们自己的工作。

1 实现的工作原理

如果要在UserForm上的控件之间(或控件内)实现拖放,则需要以下控件事件:

1) MouseMove鼠标左键按下并移动鼠标事件

当鼠标左键按下并移动鼠标时,用户可能正在开始拖动操作。我们需要确保记住列表中当前选定的项目。我希望代码能够在两个控件之间和一个控件内进行拖放,并指示拖放将在何处进行。因此,我需要两件事:

一是记住在开始拖动时选择了哪些列表的项,代码通过在每个选定项前面添加一个字符串位来临时标记我们正在拖动的项:“>”。此字符串也在稍后利用为在移动后必须从列表中删除哪些项的标识。如果用户没有按下鼠标按钮的情况下拖动,则将从列表项中删除“>”以进行清理。

二是指示下落位置的方法,VBA不便于检测鼠标光标下的列表项。MouseMove和BeforeDropOrPaste事件确实给出了X和Y坐标,但是确定哪个项目“属于”某个Y并不容易,因为我们不知道每个项目的Y坐标。我使用的技巧是:临时将40个列表项添加到列表框中(以确保列表项使用了框的整个高度),然后将列表框的topindex设置为最后一个。这将强制列表框向下滚动,在列表框底部显示最后一项。然后列表框会得到一个新的TopIndex(实际显示在顶部的项目),这样我们现在就可以计算有多少项目适合列表框的高度。因此,我们可以计算单个项目的高度,并使用它来检测鼠标的位置。我们将在属于ListBox1的属性过程中找到执行此操作的代码。

  • 我们先来讲解一下这个事件,MouseMove 事件在用户移动鼠标时发生:

语法:Private Subobject _MouseMove( ByVal Button As fmButton,ByVal Shift As fmShiftState,ByVal X As Single,ByVal Y As Single)

参数:

Part

说明

备注

object

必填。

有效的对象名称。

Button

必填。

标识鼠标按钮状态的整数值。

Shift

必填。

指定 Shift、Ctrl 和 Alt 的状态。

X, Y

必填。

从控件的左或上边缘以磅为单位测量的水平或垂直位置。

Button 的设置是:

说明

0

未按下任何按钮。

1

已按下左键。

2

已按下右键。

3

已按下右键和左键。

4

已按下中键。

5

已按下中键和左键。

6

已按下中键和右键。

7

已按下全部三个键。

Shift 的设置是:

说明

1

已按下 Shift。

2

已按下 Ctrl。

3

已按下 Shift 和 Ctrl。

4

已按下 Alt。

5

已按下 Alt 和 Shift。

6

已按下 Alt 和 Ctrl。

7

已按下 Alt、Shift 和 Ctrl。

4f8de205bb37b621bc48d6ad2f808d8b.jpeg

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:


b98a6420d985a8c17c9ddf9b7f436f96.jpeg

f3f33c147c6f3a99cd465e1499d57413.jpeg

这篇关于VBA高级应用30例应用2:MouseMove鼠标左键按下并移动鼠标事件的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/854847

相关文章

中文分词jieba库的使用与实景应用(一)

知识星球:https://articles.zsxq.com/id_fxvgc803qmr2.html 目录 一.定义: 精确模式(默认模式): 全模式: 搜索引擎模式: paddle 模式(基于深度学习的分词模式): 二 自定义词典 三.文本解析   调整词出现的频率 四. 关键词提取 A. 基于TF-IDF算法的关键词提取 B. 基于TextRank算法的关键词提取

水位雨量在线监测系统概述及应用介绍

在当今社会,随着科技的飞速发展,各种智能监测系统已成为保障公共安全、促进资源管理和环境保护的重要工具。其中,水位雨量在线监测系统作为自然灾害预警、水资源管理及水利工程运行的关键技术,其重要性不言而喻。 一、水位雨量在线监测系统的基本原理 水位雨量在线监测系统主要由数据采集单元、数据传输网络、数据处理中心及用户终端四大部分构成,形成了一个完整的闭环系统。 数据采集单元:这是系统的“眼睛”,

禁止平板,iPad长按弹出默认菜单事件

通过监控按下抬起时间差来禁止弹出事件,把以下代码写在要禁止的页面的页面加载事件里面即可     var date;document.addEventListener('touchstart', event => {date = new Date().getTime();});document.addEventListener('touchend', event => {if (new

csu 1446 Problem J Modified LCS (扩展欧几里得算法的简单应用)

这是一道扩展欧几里得算法的简单应用题,这题是在湖南多校训练赛中队友ac的一道题,在比赛之后请教了队友,然后自己把它a掉 这也是自己独自做扩展欧几里得算法的题目 题意:把题意转变下就变成了:求d1*x - d2*y = f2 - f1的解,很明显用exgcd来解 下面介绍一下exgcd的一些知识点:求ax + by = c的解 一、首先求ax + by = gcd(a,b)的解 这个

hdu1394(线段树点更新的应用)

题意:求一个序列经过一定的操作得到的序列的最小逆序数 这题会用到逆序数的一个性质,在0到n-1这些数字组成的乱序排列,将第一个数字A移到最后一位,得到的逆序数为res-a+(n-a-1) 知道上面的知识点后,可以用暴力来解 代码如下: #include<iostream>#include<algorithm>#include<cstring>#include<stack>#in

zoj3820(树的直径的应用)

题意:在一颗树上找两个点,使得所有点到选择与其更近的一个点的距离的最大值最小。 思路:如果是选择一个点的话,那么点就是直径的中点。现在考虑两个点的情况,先求树的直径,再把直径最中间的边去掉,再求剩下的两个子树中直径的中点。 代码如下: #include <stdio.h>#include <string.h>#include <algorithm>#include <map>#

30常用 Maven 命令

Maven 是一个强大的项目管理和构建工具,它广泛用于 Java 项目的依赖管理、构建流程和插件集成。Maven 的命令行工具提供了大量的命令来帮助开发人员管理项目的生命周期、依赖和插件。以下是 常用 Maven 命令的使用场景及其详细解释。 1. mvn clean 使用场景:清理项目的生成目录,通常用于删除项目中自动生成的文件(如 target/ 目录)。共性规律:清理操作

【区块链 + 人才服务】可信教育区块链治理系统 | FISCO BCOS应用案例

伴随着区块链技术的不断完善,其在教育信息化中的应用也在持续发展。利用区块链数据共识、不可篡改的特性, 将与教育相关的数据要素在区块链上进行存证确权,在确保数据可信的前提下,促进教育的公平、透明、开放,为教育教学质量提升赋能,实现教育数据的安全共享、高等教育体系的智慧治理。 可信教育区块链治理系统的顶层治理架构由教育部、高校、企业、学生等多方角色共同参与建设、维护,支撑教育资源共享、教学质量评估、

AI行业应用(不定期更新)

ChatPDF 可以让你上传一个 PDF 文件,然后针对这个 PDF 进行小结和提问。你可以把各种各样你要研究的分析报告交给它,快速获取到想要知道的信息。https://www.chatpdf.com/

系统架构师考试学习笔记第三篇——架构设计高级知识(20)通信系统架构设计理论与实践

本章知识考点:         第20课时主要学习通信系统架构设计的理论和工作中的实践。根据新版考试大纲,本课时知识点会涉及案例分析题(25分),而在历年考试中,案例题对该部分内容的考查并不多,虽在综合知识选择题目中经常考查,但分值也不高。本课时内容侧重于对知识点的记忆和理解,按照以往的出题规律,通信系统架构设计基础知识点多来源于教材内的基础网络设备、网络架构和教材外最新时事热点技术。本课时知识