vb在不同的分辨率下窗体都居中

Question

vb怎么在不同的分辨率下窗体都居中？
窗体在1024*768下正常居中，但在800*600下无法居中 怎么办？帮帮我吧！
Dasparion 这样是可以居中，不过我先在1024*768下打开程序，再切换到800*600下就无法居中了

Answer 1

很简单：选择Form在属性窗口的StarUpPosition属性选2-屏幕中心

想要实时更改使用以下代码(窗体添加Timer1间隔自己设定:1000为一秒)

Private Sub Timer1_Timer()
If Me.Left = Screen.Width / 2 - Me.Width / 2 And Me.Top = Screen.Height / 2 - Me.Height / 2 Then
Else
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
End If
End Sub

Answer 2

Form的StartUpPosition在设计是设为2 - CenterScreen
或者在Form_Load 事件中写
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub