设置窗口在屏幕中的位置


【实例说明】
    在开发程序中,经常需要设置窗体启动后位于屏幕某一位置。如何在程序是动态调整窗口在桌面的位置呢?本程序将介绍这一实例。运行程序,单击相应按钮,窗体将出现在相应位置。

【编程思路】
    使用Move方法来调整窗体位于屏幕的位置。
    Move的语法和参数:
    语法:object.Move left,top,width,height
    参数:left必需的。单精度值,指示object左边的水平坐标(X轴)。top可选的。单精度值,指示object顶边的垂直坐标(Y轴)。width可选的。单精度值,指示object新的宽度。height可选的。单精度值,指示object新的高度。

【设计步骤】
    1.新建一个标准工程,创建一个新窗体,默认名为Form1。
    2.在窗体上放置五个CommandButton控件。

    3.源程序  [素材源程序下载]


'左下角
Private Sub Command1_Click()
        Me.Top = Screen.Height - Me.Height
        Me.Left = 0
End Sub

'左上角
Private Sub Command2_Click()
        Me.Top = 0
        Me.Left = 0
End Sub

'右上角
Private Sub Command3_Click()
        Me.Top = 0
        Me.Left = Screen.Width - Me.Width
End Sub

'中央
Private Sub Command4_Click()
        If WindowState = 0 Then
                Move (Screen.Width - Form1.Width) / 2, (Screen.Height - Form1.Height) / 2
        End If
End Sub

'右下角
Private Sub Command5_Click()
        Me.Top = Screen.Height - Me.Height
        Me.Left = Screen.Width - Me.Width
End Sub