Question

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

用window.state=2使得窗体最大化之后，
如何使某一控件始终显示在这个窗体的中央？
试图做的一个尝试是：
Command1.Left = (Form2.Width - Command1.Width) / 2
Command1.Top = (Form2.Height - Command1.Height) / 2
但是这样貌似并不行...
因为我需要使得一个大小每次会变化的控件连续显示又消失很多次，所以我希望每次这个控件的中心点在窗体/屏幕的同一个位置上，但是不知道怎么操作。
多谢!!!

Answer 1

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

Answer 2

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

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

不行的话就追问

Answer 3

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

Answer 4

没学过控件的left和top属性？没学过控件的move方法？没学过窗体的 resize 事件？