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

cumulonimbus · 发表于 2012-8-22 19:07

相当精彩，为你喝彩。

liucqa · 发表于 2012-8-22 20:28

伸缩式窗体示例-2007通过.rar (21.78 KB, 下载次数: 72)

2007下窗体有点毛病，改了一下

枫的大拿加 · 发表于 2012-8-22 20:59

liucqa 发表于 2012-8-22 20:28
2007下窗体有点毛病，改了一下

当彩虹条在运行时，点击“设计模式”按钮，会导致程序自动退出，该如何调整？？？

liucqa · 发表于 2012-8-22 21:06

枫的大拿加发表于 2012-8-22 20:59
当彩虹条在运行时，点击“设计模式”按钮，会导致程序自动退出，该如何调整？？？

那就别点嘛，你进设计模式会导致vba代码中断，定时器没有退出。所以就这样了。

枫的大拿加 · 发表于 2012-8-22 21:10

liucqa 发表于 2012-8-22 21:06
那就别点嘛，你进设计模式会导致vba代码中断，定时器没有退出。所以就这样了。

有没有避免这种事情发生的?
问题是别人用的时候不小心点了，会导致输入的数据都没了

枫的大拿加 · 发表于 2012-8-22 21:20

liucqa 发表于 2012-8-22 20:28
2007下窗体有点毛病，改了一下

liucqa：
更改的是不是只是这两句，以前的没+10
If UserForm2.Left <= UserForm2.Image1.Width - UserForm2.Width + 10 Then
UserForm2.Left = UserForm2.Image1.Width - UserForm2.Width + 10

sunny_8848 · 发表于 2012-8-22 21:31

本帖最后由 sunny_8848 于 2012-8-22 21:34 编辑

佩服版主的VBA水平，程序界面挺酷的。另外，个人感觉程序(即使是liucqa 网友修改过的）应该有点点小问题，即使在VBE环境下设置为中断模式(也可以按F8键运行一行代码），然后去程序界面点击设计模式都会自动非正常退出(win 7 64位+excel 2003）

liucqa · 发表于 2012-8-22 21:34

sunny_8848 发表于 2012-8-22 21:31
佩服版主的VBA水平，程序界面挺酷的。另外，个人感觉程序应该有点点小问题，即使在VBE环境下设置为中断模式 ...

有定时器的都不允许非正常退出

sunny_8848 · 发表于 2012-8-22 21:38

本帖最后由 sunny_8848 于 2012-8-22 21:39 编辑

liucqa 发表于 2012-8-22 21:34
有定时器的都不允许非正常退出

请教有什么办法解决吗。以版主这样的水平，应该也有不少商业程序了，这样的功能只能玩玩不能加入正式的程序中吗，因为很多用户是不知道也不必知道这个规则的

枫的大拿加 · 发表于 2012-8-22 21:56

sunny_8848 发表于 2012-8-22 21:31
佩服版主的VBA水平，程序界面挺酷的。另外，个人感觉程序(即使是liucqa 网友修改过的）应该有点 ...

无奈之下，我把设计模式的按钮屏蔽了
Application.CommandBars("Control Toolbox").Controls(1).Enabled = False

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