如何让窗体在不同分辩率和不同大小的显示器上都居中？
如何让窗体在不同分辩率和不同大小的显示器上都居中？ 问题点数：20、回复次数：7Top
1 楼joeking（只是喜欢动手罢了）回复于 2001-04-04 23:50:00 得分 5
在设计时有个窗体布置，可以选择在不同分辨率下进行窗体居中。但不能根据不同的分辨率在运行时来自动设置，其实可以用一个API来检测显示分辨率，然后在窗体载入时将左边界设置为
（“显示器宽度”－“窗体宽度”）／2
给思路应该够了吧？Top
2 楼Triumph（夜雨）回复于 2001-04-05 00:36:00 得分 5
用下面的语句。
Me.StartUpPosition = 1 '居中
其实在设计时通过窗体的属性窗口就可以直接设置此属性。建议查看帮助。Top
3 楼y1g1y1（袁飞☆VB诚可贵VB.Net价更高C#心中有二者皆可抛☆）回复于 2001-04-05 08:14:00 得分 5
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 Function
sub form_load()
setformcenter me
end subTop
4 楼QQRN（笨QQ－馊主意提供者）回复于 2001-04-07 04:29:00 得分 0
二楼的说的对啊！Top
5 楼phf（tonight,I don't cry）回复于 2001-04-07 06:28:00 得分 0
三楼说得对Top
6 楼ttyp（@http://www.cnblogs.com/ttyp/）回复于 2001-04-07 13:04:00 得分 0
四楼说的对，不过最好在函数中加一句on error goto 0Top
7 楼snowrose（冰儿）回复于 2001-04-07 14:58:00 得分 5
在form_load中加入
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2Top
