求助！让窗体保持在屏幕的正中间

Question

如何让窗体保持在屏幕的正中间（不管用户的分辩率是多少）
在VB2005中可以直接设置FROM的1个参数，但在VB6中没有，郁闷

Answer 1

vb6也有，属性StartUpPosition设置成2 - 屏幕中心

Answer 2

Public Sub CenterForm(X As Form)     X.Move (Screen.Width - X.Width) / 2, (Screen.Height - X.Height) / 2
    
End Sub

Answer 3

选中窗体，看属性栏，移到startupposition项，选取值为 屏幕中心  即可.

Answer 4

me.left=(Screen.Width - X.Width) / 2
me.top=(Screen.Height - X.Height) / 2

Answer 5

Private Sub Form_Load()
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 0 Then
        Me.Move (Screen.Height - Me.Height) / 2, (Screen.Height - Me.Height) / 2, Me.Width, Me.Height
    End If
End SubPrivate Sub Form_Resize()
    Me.Move (Screen.Height - Me.Height) / 2, (Screen.Height - Me.Height) / 2, Me.Width, Me.Height
End Sub

Answer 6

如果存在最大化按鈕的話 最好先判断 Me.WindowState 的状态 如果 不等于2的话 才可以移动窗口 不然会出错