1. 封装函数
'当前窗体在 父级窗体中的位置 居中
Public Function MiddleInForm(frm1 As Form, frm2 As Form)
1 On Error GoTo Err_MiddleInForm
'-------------------------------------
2 frm1.Left = (frm2.ScaleWidth - frm1.Width) / 2
3 frm1.Top = (frm2.ScaleHeight - frm1.Height) / 2
'-------------------------------------
4 On Error GoTo 0
5 Exit Function
Err_MiddleInForm:
6 If MsgBox("【错误代码】:" & Err.Number & vbCrLf & "【错误描述】:" & Err.Description & vbCrLf & "【出错位置】: [FunAll]→ [MiddleInForm]的 " & Erl & "行" & vbCrLf & "是否继续?", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next
End Function
2. 调用函数
Call MiddleInForm(Me, MDIMain) '窗体居中