如何使程序运行时候出现在屏幕最中间

[tokyfeng228]

如何使不同显示器大小，不同分辨率的情况下保证程序运行时候出现在屏幕中央

[northwolves]

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

[j_x_y]

设置from的StartUpPosition属性为屏幕中心

[脆皮大雪糕]

StartUpPosition 属性


返回或设置一个值，指定对象首次出现时的位置，运行时不能使用。

语法

object.StartUpPosition = position

StartUpPosition 属性的语法有这些部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的对象。
StartUpPosition 整数，规定当对象在“设置值”中显示时的位置。


设置值

可用 StartUpPosition 四个设置值中的一个：

常数 值 描述
vbStartUpManual 0 没有指定初始设置值。
vbStartUpOwner 1 UserForm 所属的项目中央。
vbStartUpScreen 2 屏幕中央。
vbStartUpWindowsDefault 3 屏幕的左上角。