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

ldhyob · 发表于 2003-5-7 09:43

以下是引用xgxjohn在2003-5-7 9:20:04的发言： 有人问题是，在我把彩虹条请出来的时候（这时候它正要往里走），这时候我想再一次用到它，可它还是不听话，一定要往里跑进去后再出来，应该怎么修正？

呵呵，这个设计要求很好解决，在窗体mousemove事件中加一句就OK啦 If yc = 3 Then yc = 4

6W391i9q.rar (22.59 KB, 下载次数: 687) 谢谢xgxjohn的建议

arthurting · 发表于 2003-5-7 10:05

老大，我服了，不过，可不可以告诉我密码或者交给我如何学习，好吗？谢谢你哦！

youke · 发表于 2003-5-7 12:49

晕倒一个！

打哈欠 · 发表于 2003-5-7 12:51

果然不错。有创意

whbin · 发表于 2003-5-7 13:58

高，实在是高

CasBoy · 发表于 2003-5-7 17:40

厉害啊，不怕做不到，就怕想不到。VBA的潜力真是无限。

MOUS100 · 发表于 2003-5-7 22:05

酷! 非常好！！

jinliang · 发表于 2003-5-8 10:38

真的很好!很有创意!佩服!!

nkhcs · 发表于 2003-5-8 14:14

很不错的东东,看来我也要好好学学VBA了! 不过好象有点不足: 就是当我找开时不是最大化时,这个窗体跑到屏幕左边了, 也就是跑到文件外面来了, 有没有办法解决?

ldhyob · 发表于 2003-5-8 17:53

TO nkhcs：呵呵，谢谢您提的建议！您的意思是把它作为某一工作簿的独用窗体。实现是可以的，在workbook的窗体大小改变事件中增加代码，算出窗体新的左上角坐标即可（还得考虑用API设定窗体的显示区域以不露出边角以及当窗口大小不足以显示此窗体时的情况...）。代码从略啊呵呵哈哈~~~

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