7,785
社区成员




Me.Left = 0
Me.Top = 0
Me.Width = Form_Top.Width - 3300
Me.Height = Form_Top.Height - GetTaskbarHeight - 2300
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 Sub
Function GetTaskbarHeight()
... '把GetTaskbarHeight和相关API声明也放过来
End Function
调用:Call ResizeWindow(Me, Form_Top)