Question

【求助】VB多窗体之间的切换显示

有窗体A、B和C，它们都有
D.show
Unload Me
而D窗体有返回按钮，我想返回到最近上一次显示的窗体，该怎么办？

Answer 1

在标准模块中,定义

Public myFrm as Form

A B C窗体的过程中,增加一条语句
D.show
Unload Me
Set myFrm = Me

在D的Unload事件中,这样写

Private Sub Form_Unload(Cancel As Integer)
Frm.Show
Unload Me
End Sub

Answer 2

我想可以这样：先设一个全局变量Stau as string，
然后在A窗体的form_load事件中加入Stau=Stau+"a",在B窗体的form_load事件中加入Stau=Stau+"b",在C窗体的form_load事件中加入Stau=Stau+"c",再在返回按钮的click事件中加入：
dim r as string
r=right(Stau,1)
select case r
case "a"
form1.show
case "b"
form2.show
case "c"
form3.show
end select
r=left(r,len(r)-1)
这样每个窗体的打开状态和顺序都被在Stau中。

Answer 3

昨天不是回复了吗？
form1:
Private
Sub
Command2_Click()
With
Form1
ct
=
.Top
cl
=
.Left
ch
=
.Height
cw
=
.Width
End
With
Form2.Show
Unload
Me
End
Sub
Private
Sub
Form_Load()
If
ct
=
0
And
cl
=
0
And
ch
=
0
And
cw
=
0
Then
Exit
Sub
With
Form1
.Top
=
ct
.Width
=
cw
.Left
=
cl
.Height
=
ch
End
With
End
Sub
form2:
Private
Sub
Command1_Click()
With
Form2
ct
=
.Top
cl
=
.Left
ch
=
.Height
cw
=
.Width
End
With
Form1.Show
Unload
Me
End
Sub
Private
Sub
Form_Load()
With
Form2
.Top
=
ct
.Width
=
cw
.Left
=
cl
.Height
=
ch
End
With
End
Sub
module:
Public
ch
As
Long
Public
ct
As
Long
Public
cw
As
Long
Public
cl
As
Long