form的宽和高是有限度的,即不能超过当前分辨率的边界(如800X600,me.width就不能超过800)

解决方案 »

  1.   

    在窗口处于最小化或最大化时不能再对其Width和Height赋值,你可以使用Me.WindowState = vbMinimized or Me.WindowState = vbMaximized来判断。
      

  2.   

    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    [自解压]
      

  3.   

    Me.Height = Height + i
    是否应该是 Me.Height = Me.Height + i