VBA高级应用30例应用2实现在列表框内及列表框间实现数据拖动

《VBA高级应用30例》(版权10178985),是我推出的第十套教程,教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开,这套教程案例与理论结合,紧贴“实战”,并做“战术总结”,以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序,写好的程序可以升级。本套教程共三册三十个专题,本讲的内容是:VBA高级应用30例应用2实现在列表框内及列表框间实现数据拖动:窗体及模块的实现过程6f323c8842c5fb57ab423e6fb978aa11.jpeg

分享成果,随喜正能量】 修行,不是让你什么都顺,而是让你知道为什么不顺?心里执着的多,磨难就越多,越想得到什么,就会失去什么。修行,不是等待菩萨来救赎,

而是需要自渡,去向内求,提升自己的内在认知,修正自己的贪、嗔、痴、慢、疑,

圆满自己,利益他人。。

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

3 窗体及模块的实现过程

这部分我们要完成窗体及其模块的构建,这个构建过程中我们要完成窗体的初始化及类的实例化。

1) 对于是否允许列表框内移动的设置,这是通过DragWithin1,和DragWithin2参数的设置来完成的,这两个参数的值通过两个CheckBox的点击实现,代码如下:

Private Sub CheckBox1_Click()

mcDragDrop.DragWithin1 = Me.CheckBox1.Value

End Sub

Private Sub CheckBox2_Click()

mcDragDrop.DragWithin2 = Me.CheckBox2.Value

End Sub

代码的截图:

51229ad686de0fb812c77b762b6ac2bf.jpeg

2)窗体的初始化及实例化类。在窗体的初始化过程中我们要完成列表框的初始化赋值及类的实例化过程。我们看下面的代码。

'窗体的初始化

Private Sub UserForm_Initialize()

Dim i As Long

'向列表框中添加数据

With ThisWorkbook.Sheets("sheet1")

For i = 1 To Int(.Range("a1").End(xlDown).Row / 2)

Me.ListBox1.AddItem "Item " & .Range("a" & i)

Next

For i = Int(.Range("a1").End(xlDown).Row / 2) + 1 To .Range("a1").End(xlDown).Row

Me.ListBox2.AddItem "Item " & .Range("a" & i)

Next

End With

'实例化类

Set mcDragDrop = New clsDragDrop

With mcDragDrop

'类对象列表框与窗体列表框关联

Set mcDragDrop.ListBox1 = Me.ListBox1

Set mcDragDrop.ListBox2 = Me.ListBox2

End With

'在两个列表框中启用拖放

Me.CheckBox1.Value = True

Me.CheckBox2.Value = True

'列表框中允许多选

Me.ListBox1.MultiSelect = fmMultiSelectMulti

Me.ListBox2.MultiSelect = fmMultiSelectMulti

End Sub

代码的截图:

fd9e8285e36c0789a4438e7d12c24d0a.jpeg

[待续]

d4b39b2fa03b7ca6e7b55ff5af4798c2.jpeg

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

fef628db6f97f2b50b5487f6fa12a3c3.jpeg


本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/web/25135.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

Facebook:社交世界的引领者

导语 在当今数字化时代,Facebook已经成为了人们社交生活的重要一环。然而,除了成为社交媒体的象征外,它还在不断探索并领导着社交世界的新方向。 1. 社交平台的发展者 Facebook不仅仅是一个社交平台,更是社交方式的引领者。从其…

MathType7.8永久破解版下载 让数学学习变得简单有趣!

大家好,我是科技评论家。今天给大家推荐一款非常实用的数学公式编辑器——MathType 7.8!📱💰 在数字化时代,学术研究、教学和科研领域中的数学公式编辑需求越来越高。而MathType 7.8作为一个广受欢迎的数学公式编辑器&…

swaks一键启动邮箱信息测试(KALI工具系列十九)

目录 1、KALI LINUX 简介 2、swak工具简介 3、临时邮箱 4、操作实例 4.1 测试邮箱连通性 4.2 假冒发送方 4.3 发送文件 5、总结 1、KALI LINUX 简介 Kali Linux 是一个功能强大、多才多艺的 Linux 发行版,广泛用于网络安全社区。它具有全面的预安装工具和功…

MSP432E401Y Launchpad硬件电路

MSP432E401Y是一款32位Arm Cortex-M4F内核的MCU,主频120MHz、256KB SRAM、1MB Flash、6KB EEPROM,具有丰富的通信外设,例如支持以太网、2个CAN、8个UART、4个QSSI(SPI)、10 个I2C; 同时还有2个12 位SAR的ADC模块,每个模块支持高…

探索智慧景区的总体架构与应用

背景: 在旅游业快速发展的今天,智慧景区已成为提升景区管理水平、提高游客体验的重要手段之一。智慧景区系统的总体架构设计与应用,将现代信息技术与景区管理相结合,为景区的运营管理和游客服务提供了新的思路和解决方案。本文将…

【诈骗离你我很近】中国同胞进来看看国外诈骗新套路。

前几天一个老外经常在CSDN给我发消息,我最开始很警惕,不过聊了大概半个月,我就没怎么怀疑他了,而且还很高兴认识了一个外国朋友。这半个月聊天内容很正常,就聊些中国的小习惯,让我教他用筷子。还问我有哪些…

【BUG】已解决: No module named ‘torch._six

已解决:No module named ‘torch._six 欢迎来到英杰社区https://bbs.csdn.net/topics/617804998 欢迎来到我的主页,我是博主英杰,211科班出身,就职于医疗科技公司,热衷分享知识,目前是武汉城市开发者社区主…

【Flutter 面试题】 JIT 与 AOT分别是什么?

【Flutter 面试题】 JIT 与 AOT分别是什么? 文章目录 写在前面口述回答写在前面 🙋 关于我 ,小雨青年 👉 CSDN博客专家,GitChat专栏作者,阿里云社区专家博主,51CTO专家博主。2023博客之星TOP153。 👏🏻 正在学 Flutter 的同学,你好! 😊 Flutter 面试宝典(…

GPT-4欺骗人类的惊人成功率达99.16%!

PNAS重磅研究揭示,LLM推理能力越强欺骗率越高!! 此前,MIT的研究发现,AI在各类游戏中为了达到目的,不择手段,学会用佯装和歪曲偏好等方式欺骗人类。 GPT-4o深夜发布!Plus免费可用&…

【面经分享-CPP篇】[建议收藏] C++基础20问-02

🍭 大家好这里是清隆学长 ,一枚热爱算法的程序员 ✨ 本系列打算持续跟新c面试基础 👏 感谢大家的订阅➕ 和 喜欢💗 文章目录 1.题目:解释C中的深拷贝和浅拷贝。2.题目:解释C中的虚基类及其用途。3.题目&…

C++中的模板---下

一,非类型模板参数 模板参数分类类型形参与非类型形参 类型形参即:出现在模板参数列表中,跟在class或者typename之类的参数类型名称 非类型形参,就是用一个常量作为类(函数)模板的一个参数,在类(函数)模板中可将该参…

数据加密验签机的工作原理

数据加密验签机,作为网络安全领域的关键设备,其重要性不言而喻。以下是对数据加密验签机的详细介绍: 一、引言 在数字化时代,数据的机密性、完整性和真实性是企业和个人都极为关注的问题。数据加密验签机,正是为了解决…

Java(三)选择与循环

在一个程序执行的过程中,各条语句的执行顺序对程序的结果是有直接影响的。所以,我们必须清楚每条语句的执行流程。而且,很多时候要通过控制语句的执行顺序来实现我们想要的功能。 一、引言 如果我们要写一个计算圆的面积的程序,…

RPC RMI 区别以及在java中的应用

文章目录 1. 简介1.1 什么是RPC1.2 什么是RMI 2. RPC与RMI的区别2.1 RPC和RMI的优缺点对比RPC的优点RPC的缺点RMI的优点RMI的缺点 2.2 选择RPC还是RMI?应用场景和考虑因素选择RPC的场景选择RMI的场景 3. RPC在Java框架中的应用3.1 Java中常用的RPC框架3.2 RPC在Java…

【学术小白成长之路】02三方演化博弈(基于复制动态方程)期望与复制动态方程

从本专栏开始,笔者正式研究演化博弈分析,其中涉及到双方演化博弈分析,三方演化博弈分析,复杂网络博弈分析等等。 先阅读了大量相关的博弈分析的文献,总结了现有的研究常用的研究流程,针对每个流程进行拆解。…

C++设计模式-生产者消费者模式

运行在VS2022,x86,Debug下。 32. 生产者消费者模式 解耦生产者和消费者之间的关系,即生产者和消费者只依赖缓冲区,而不相互依赖。应用:多线程并发编程,可以解决生产者和消费者之间的同步问题。实现 生产者…

Dubbo 3.x源码(21)—Dubbo服务引用源码(4)

基于Dubbo 3.1,详细介绍了Dubbo服务的发布与引用的源码。 此前我们学习了createInvokerForRemote方法中的Wrapper有哪些以及作用,接下来我们将会的学习真正的本地、应用级别、接口级别的Protocol的引入逻辑,以及创建Proxy服务接口代理对象的逻…

分享不用会员免费听歌的软件,可听付费,支持随听随下!

今天来点特别的,给你们带来几款全网免费听歌的神器,让你们的音乐之旅不再有障碍! 现在,找好听的歌越来越像寻宝一样,动不动就得掏腰包。不过别担心,阿星今天就来分享几款好用的免费听歌app,电脑…

六、【源码】SQL执行器的定义和实现

源码地址:https://github.com/mybatis/mybatis-3/ 仓库地址:https://gitcode.net/qq_42665745/mybatis/-/tree/06-sql-executor SQL执行器的定义和实现 之前的Sql执行都是耦合在SqlSession里的,现在要对这部分进行解耦和重构,引…

【MySQL】(基础篇四) —— 检索数据

检索数据 检索数据是我们使用数据库时进行最多的操作,其中包括了检索条件、排序、过滤、分组等等。我会在后续的多篇博客中为你进行详细地介绍它们。 这次先让我们来粗略的了解一下SELECT,为了使用SELECT检索表数据,必须至少明确两点信息—…