VBA 也能玩滑屏 附 源码

ldy

大屏幕智能手机都有哈，滑屏就是模仿的手机的滑屏。
纯ＶＢＡ代码， 先看看效果先。


改编成VB ，编译的EXE 仿滑屏效果.rar (12.77 KB, 下载次数: 380)

2013-6-5 03:12 上传

点击文件名下载附件

------------------------------------------------------------------------------2013-10-7----------------------------------------------------------
本来 在写一篇教程，分享一下如何编写一个基于数据库的管理系统，想写完了一起发的，结果过去4个月了，也没时间来续写后面的内容。
这了滑屏菜单仅仅是界面设计的第一步，看来还是有不少朋友喜欢的 我把源码放上来给大家参考下，简单说下：
做这个肯定要用到类模块的，麻烦的是在移动一个控件的时候如何让其他控件按照要求一起移动，通常的做法是遍历循环的方法，这样的做法执行简单的动作是可以的，
稍微复杂些的动作，比如双击绿色按钮后 上面的按钮不动，下面绿色按钮要往下移动 腾出空间来显示 蓝色的子按钮，如果用循环的方式 代码写起来就会非常复杂，维护起来也很麻烦。
这种情况下就如同你是个队长，在对队伍发出指令 “向前一步走”，问题是每个队员都不是真人，而是人体模型，你要一个个的去搬（循环遍历）。
如果是想如同真人队员一样 队长发出指令，每个队员都会自动执行，那么 类与类之间的通讯 就非常必要了。
想必都听说过 windows系统 是通过消息和事件来运行的说法，我们可以借助这个思路来实现 类之间的通讯。
建立一个公共消息类，在其中写事件代码，，公共消息 你可以把他看做是一个对讲机总台
Public Event moveUp(y As Long)
Public Sub moveUp(y As Long)
    RaiseEvent moveUp(y)
End Sub

在模块中定义一个 公共消息类的公共变量  public 公共消息 as 公共消息类
在控件类模块和窗体中都 dim withevents 消息 as 公共消息类
然后你会发现 在类模块代码窗口 和窗体代码窗口中 的对象下拉菜单中 多了一个 “ 消息”选项，选中后 右边的事件选项中出现 moveUp，点选moveUp会自动生成代码
Private Sub 消息_moveUp(y as long)
'
End Sub
就如同写其他事件代码一样。

在窗体启动时 实例化公共消息类  set 公共消息 = new 公共消息类
然后 窗体执行 set 消息 = 公共消息  相当于有了一个新的对讲机，并且与总台设定了相同的频道，双方已经可以沟通了
继续运行代码 创建按钮类了 同样的 执行  set 消息 = 公共消息
控件加载完毕后，每一个实例控件类都有一个相同的 公共消息类（每个队员都有了一个同频率的对讲机）
在任何地方执行语句  公共消息.moveUp y
所有类包括窗体都会收到  消息_moveUp 事件，并运行其中的代码。如同某队员在对讲机中说了一句话，所有队员都会听到，并根据其内容做出相应的动作。
这只是一个简单的说明 具体的还是看源代码吗。


滑屏源码.zip (59.83 KB, 下载次数: 264)

2013-10-7 22:47 上传

点击文件名下载附件

smhf_6

谢谢版主
您的网页分析,是我在论坛中看到的最好的一篇,作用具大

chen7806

俺是03版的，有界面，点击以后没有象楼主一样的滑屏效果。偶然会这样出现，估计是电脑问题还是什么。

-------------再后来，发现一定得双击才出效果。收藏了。

fankairong

的确很强大，如果可以拖任意地方滑动就更好了，现在好像只能拖绿色文字区域才能有效

ldy

fankairong 发表于 2013-6-5 08:29
的确很强大，如果可以拖任意地方滑动就更好了，现在好像只能拖绿色文字区域才能有效

可以拖到任意地方，但是作为菜单，慢屏幕乱跑，也不是太好

liucqa

ldy 发表于 2013-6-5 10:55
可以拖到任意地方，但是作为菜单，慢屏幕乱跑，也不是太好

有没有源码提供？可以入知识树

HHAAMM

我猜想这是js特效

老谭酸菜

哈！好玩！到底是EXCEL VBA的还是VB的呢？
看界面象VB的，查进程也没发现EXCEL。
仔细观察了下，应该是VB做的。

老谭酸菜

上当啦！VB6.0做的，不是VBA！

ldy

HHAAMM 发表于 2013-9-25 23:16
我猜想这是js特效

再猜{:soso_e113:}