如何让窗体在不同分辩率和不同大小的显示器上都居中？

Question

在设计时有个窗体布置，可以选择在不同分辨率下进行窗体居中。但不能根据不同的分辨率在运行时来自动设置，其实可以用一个API来检测显示分辨率，然后在窗体载入时将左边界设置为
（“显示器宽度”－“窗体宽度”）／2
给思路应该够了吧？

Answer 1

用下面的语句。
Me.StartUpPosition =   1  '居中其实在设计时通过窗体的属性窗口就可以直接设置此属性。建议查看帮助。

Answer 2

Public Function SetFormCenter(k As Form)
On Error Resume Next
k.Left = (Screen.Width - k.Width) \ 2
k.Top = (Screen.Height - k.Height) \ 2
End Functionsub form_load()
setformcenter me
end sub

Answer 3

四楼说的对，不过最好在函数中加一句on error goto 0

Answer 4

在form_load中加入
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2