VBA 也能玩滑屏附源码

Moneky · 发表于 2013-10-6 22:31

做了个半成品：

可以任意添加按钮
可以拖动列表
能够接收事件

剩下的快速拖动释放后的惯性，子对象理论上也不太复杂了，有兴趣了再继续加。。。。。

ps：代码中有冗余，之前写的一些代码可能没有注释完

Moneky · 发表于 2013-10-6 22:36

本帖最后由 Moneky 于 2013-10-6 22:37 编辑

上面类的应用还很低档次，设想中的完美状态应该是创建一个滑动列表类，它是一个集合，集合中包含多个 item，一个item就是目前窗体上的那种label，并且有自定义的拖动、点击事件等——可惜对类的掌握还不熟练。

老谭酸菜 · 发表于 2013-10-6 23:59

Moneky 发表于 2013-10-6 22:31
做了个半成品：

可以任意添加按钮

再跟踪下鼠标拖动的力度（通过单位时间内鼠标垂直移动的距离来判断），鼠标释放后根据力度继续滑动，同时力度值逐步递减到零，随之停止滑动。这样应该就动感十足了！呵呵

wls198210100 · 发表于 2013-10-7 14:40

咋木有代码看看呢。。。不然咋学习啊。。

ldy · 发表于 2013-10-7 22:57

一楼添加了源代码

cumulonimbus · 发表于 2013-11-3 23:00

不错，收藏着，代码太复杂鸟

龙蒙山 · 发表于 2013-11-15 23:42

收藏学习。谢谢！！！

@_excel · 发表于 2014-6-18 17:07

请问大侠们那个截图动态是用什么软件做成的？

sunny_8848 · 发表于 2014-6-18 21:58

收藏学习。谢谢！！

lygly6789 · 发表于 2015-4-4 21:14

要是支持滚轮滑动就更好了。

		自动登录	找回密码
密码			免费注册

[原创] VBA 也能玩滑屏 附 源码