| 发布日期：2024-08-20 13:44 点击次数：83 |
《VBA高等应用30例》（版权10178985），是我推出的第十套教程，教程是突出针对高等学员在学习VBA经过中晋升阶梯上的案例张开，这套教程案例与表面贯串，紧贴“实战”，并作念“战略追念”，以便公共能很好的应用。教程的筹算是条款公共在执行责任等分发VBA瓜代，写好的瓜代不错升级。本套教程共三册三十个专题，本讲的内容是：VBA高等应用30例应用2竣事在列表框内及列表框间竣事数据拖动：在责任表界面窗体的加载
【共享恶果，随喜正能量】 咱们能在生时多作念功德，则临死何惧？咱们能在深广孝顺社会，则虽死犹生。。
应用2 在列表框内及列表框间竣事数据拖动
4 在责任表界面窗体的加载
这部分中我给公共评释一种窗体的加载，这种加载式样在我其他教程中莫得先容过的，也横暴常有酷爱的，公共看底下的代码：
Sub mynzFormShow
Dim frmDD As mynzForm1
Set frmDD = New mynzForm1
frmDD.Show
Unload frmDD
Set frmDD = Nothing
End Sub
1. 德岛漩涡位于日本德岛县鸣门市，成立于1955年，历史上获得1次日职乙冠军（2020赛季）。
代码的截图：
在以上的代码中咱们欺诈了一个set语句来加载一个新的窗体类对象，小程序定制开发多少钱咱们看一下关于SET语句的评释：
Set 语句：将对象援用分派给变量或属性。
语法：Setobjectvar = {[New]objectexpression|Nothing}
参数的评释：
Part
阐述
备注
objectvar
必填。
变量或属性的称呼；遵照圭臬变量定名商定。
New
可选。
在声明以启用隐式对象创建的经过中，时常使用 New。 在将 New 与 Set 贯串使用时，它将创建 类的新实例。 如若 objectvar 包含对某个对象的援用，则该援用将在分派新的援用时发布。 New 要害字不行用于创建任何固有对象的新数据类型况且不行用于创建依赖对象。
objectexpression
必填。
抒发式包含对象的称呼、归拢双象类型的另一个声明变量或复返疏通对象类型的对象的函数或方法。
Nothing
可选。
中断 objectvar 与任何特定对象的关连。 将 Nothing 分派给 objectvar 将开释与之前援用的对象关连的统统系统和内存资源，当任何其他变量王人未援用该对象时。
上述经过中是一个新的实例加载，哦，就像是一个影子的伪善，这亦然类的执行。
5 代码的运转铁心
1）点击列表框项筹算拖动按钮：
2）列表框的加载：
3）Item1的拖动：
3）将item1 在列表框2中拖动：
论断: 在这个应用中，给公共详备评释了若何竣事列表框中项筹算拖动。在本专题的开篇我讲过，竣事项筹算拖动在VBA中是相比贫寒的事情，一是要详情哪些神志被遴荐，一是要详情拖动到何处。在本专题中我借助于类来竣事这个筹算。这个专题亦然类应用的一个典型的应用，但愿公共借助于虚无的类完成事件的应用解决。
虽然，这个专题的代码还有些不完善，需要公共一谈致力于，完善我方的应用。
小程序开发当天内容回向：
1 列表框应用中要竣事项筹算拖动的想路是什么？
2 本文中类模块的主要作用是什么？
3 本文中类的实例化是在何处完成的？
我20多年的VBA施行教化，全部浓缩鄙人面的各个教程中：
