Me.Left = 0
Me.Top = 0
Me.Width = Form_Top.Width - 3300
Me.Height = Form_Top.Height - GetTaskbarHeight - 2300
如上代码是放在子窗口中的,让它固定一个大小,我现在想把它做成一个公共模块类,让其它窗口也调用这个,这样就不用每个窗口都要写了,可是用Me好像会出错,提示无效使用Me关键字  怎么处理,是不是要做成一个传送Form参数的类?大家给点意见

解决方案 »

  1.   

    新建一个公共模块:
    Sub ResizeWindow(ByRef f As Object, ByRef f_top As Object)
        f.Left = 0
        f.Top = 0
        f.Width = f_top.Width - 3300
        f.Height = f_top.Height - GetTaskbarHeight - 2300
    End SubFunction GetTaskbarHeight()
        ... '把GetTaskbarHeight和相关API声明也放过来
    End Function调用:
    Call ResizeWindow(Me, Form_Top)