VB中，如何使控件始终显示在屏幕中央？

VB中，使控件始终显示在屏幕或窗体中央设计窗体时对窗体StartUpPosition属性选2，在

窗体Resize 事件中编写放置控件始终处于窗体中心位置的代码。

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

   

2. Resize 事件，当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生。（例如，一个窗体被最大化、最小化或被还原。）

   
   

   

3. 示例代码：

   Private Sub Form_Resize()

       Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2

       Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2

       Command1.Visible = True

   End Sub

我大概知道你的意思了。在代码中添加：

Private Sub Form_Resize()
    Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2
    Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2
End Sub

如果你要用 Visible 属性显示按钮时，最好在显示之前加上改变大小的代码，如：

Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2
Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2
Command1.Visible = True

不行的话就追问

Private Sub Form_Resize()
    Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2
    Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2
End Sub