[原创]热感应窗体在VBA中的制作

ldhyob · 发表于 2003-5-5 13:43

大家一定见过"东方快车"的那种界面:启动时窗体自动缩入屏幕边界隐藏,当鼠标移进边界时窗体缓缓伸出.这种窗体如果运用到自己编制的VBA系统里,会让人耳目一新,它至少能带来以下优点:1、可作为主控窗体；2、不占用屏幕空间；3、方便用户操作；4、美化操作界面。先看看它的具体运行状态：是不是有点怪怪的[em06] 具体在制作时，关键解决好以下方面： 1、使用无模式窗体； 2、彩虹动态条的实现（用PS绘制原形，用循环加DOEVENTS或时钟控制动画）； 3、窗体移入和移出动态的实现（对窗体的left属性进行设置） 4、鼠标移入和移出的检测（这是最关键的，移入好解决，用窗体或窗体控件的MOUSEMOVE事件，可是移出费点劲，为图方便，我采取了一个简单的方法，即检测鼠标形状法）用此方法我在公司的一个小程序里使用了此界面，效果还不错，所以拿出来砸砸

[em02][em05] 也专门整了个示例文档，提供下载(psw:ldhyob)

[此贴子已经被作者于2003-5-9 12:05:15编辑过]

Hersmile · 发表于 2003-5-5 14:09

很好，漂亮！

xiaog · 发表于 2003-5-5 15:04

本帖最后由 ExcelHome 于 2012-10-6 15:59 编辑

很好，另类的菜单，我喜欢。

大头 · 发表于 2003-5-5 16:54

不错!构思新奇

coolgege · 发表于 2003-5-6 08:49

一个字，就是cool

我为风狂 · 发表于 2003-5-6 22:16

有点意思，真是不怕做不到，就怕想不到哇

Rowen · 发表于 2003-5-6 23:39

太棒了!

Tom_HYQ · 发表于 2003-5-6 23:42

的确是个不错的东东!

蓝天SKY · 发表于 2003-5-7 00:13

ldhyob兄：又一份大作啊。。。。。牛。。。建议送“精华”

[此贴子已经被作者于2003-5-7 0:15:26编辑过]

xgxjohn · 发表于 2003-5-7 09:20

有个问题是，在我把彩虹条请出来的时候（这时候它正要往里走），这时候我想再一次用到它，可它还是不听话，一定要往里跑进去后再出来，应该怎么修正？

[此贴子已经被作者于2003-5-7 10:19:29编辑过]

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

[原创]热感应窗体在VBA中的制作

评分

最新热点 /1