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