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