在窗口处于最小化或最大化时不能再对其Width和Height赋值,你可以使用Me.WindowState = vbMinimized or Me.WindowState = vbMaximized来判断。
private sub timer3_timer() static i as integer if me.windowstate=vbminimized or me.windowstate=vbmaximized then exit sub i=i+60 If Me.Width < 4035 Then Me.Width = Width + i Me.left = left - (i / 2) Else i = 0 End If If Me.Height < 3100 Then Me.Height = Height + i Me.top = top - (i / 2) Else i = 0 End If End Sub================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。 ★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。 ★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录! ★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ● 可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip Http://www.ChinaOK.net/csdn/csdn.rar Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
Me.Height = Height + i 是否应该是 Me.Height = Me.Height + i
static i as integer
if me.windowstate=vbminimized or me.windowstate=vbmaximized then exit sub
i=i+60
If Me.Width < 4035 Then
Me.Width = Width + i
Me.left = left - (i / 2)
Else
i = 0
End If
If Me.Height < 3100 Then
Me.Height = Height + i
Me.top = top - (i / 2)
Else
i = 0
End If
End Sub================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
是否应该是 Me.Height = Me.Height + i