Question

VB设置打开的窗体的大小和位置 和前一个保持一致

VB设置打开的窗体的大小和位置 和前一个保持一致
form1.hide
form2.show

这是form2要跟form1在屏幕上的位置相同 大小也和form1相同 如果1最大化了 那么2也会以最大化出现
我用了5个窗体
它们之前可以任意顺序切换
怎么和上一个开启的保持一致

Answer 1

'添加一个模块，输入以下代码
Option Explicit

Public m_CurrentForm As Object
Public m_LastForm As Object

Public Sub ReadFormData()
m_CurrentForm.Top = m_LastForm.Top
m_CurrentForm.Left = m_LastForm.Left
m_CurrentForm.Height = m_LastForm.Height
m_CurrentForm.Width = m_LastForm.Width
End Sub

'在所有的窗体中添加如下代码
Private Sub Form_Activate()
Set m_CurrentForm = Me
ReadFormData
End Sub

Private Sub Form_Deactivate()
Set m_LastForm = Me
End Sub

Answer 2

方法一：
form2.Top = Form1.Top
form2.Left = Form1.Left
form2.Height = Form1.Height
form2.Width = Form1.Width
前提是打开form2时form1不关闭。

方法二：
在模块中设置全局变量（变量名随意修改）：
Public Top1 As Integer
Public Left1 As Integer
Public Height1 As Integer
Public Width1 As Integer
在form1给变量赋值：
Top1 = Form1.Top
Left1 = Form1.Left
Height1 = Form1.Height
Width1 = Form1.Width
在form2读取：
form2.Top = Top1
form2.Left = Left1
form2.Height = Height1
form2.Width = Width1
打开form2时form1可关闭也可不关闭。

Answer 3

在窗体的resize事件中添加下面的代码。private
sub
form_resize()
text1.top
=
0
text1.left
=
0
text1.width
=
me.scalewidth
text1.height
=
me.scaleheight
end
sub

Answer 4

form2.top=form1.top
form2.left=form1.left
form2.height=form1.height
form2.width=form1.width