'將下列Sub放置到 Me.Resize，當控制項變化時會自動調整位置
Private Sub WindowToCenter()
Dim sx As Integer = Screen.PrimaryScreen.Bounds.Width
Dim sy As Integer = Screen.PrimaryScreen.Bounds.Height
Me.Left = (sx - Me.Width) / 2
Me.Top = (sy - Me.Height) / 2
End Sub
全站熱搜
- Oct 24 Mon 2011 08:35
[VB.NET] 讓視窗開啟位置固定在中間
'將下列Sub放置到 Me.Resize，當控制項變化時會自動調整位置
Private Sub WindowToCenter()
Dim sx As Integer = Screen.PrimaryScreen.Bounds.Width
Dim sy As Integer = Screen.PrimaryScreen.Bounds.Height
Me.Left = (sx - Me.Width) / 2
Me.Top = (sy - Me.Height) / 2
End Sub
留言列表
留言列表發表留言
