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

来源:百度知道 编辑:UC知道 时间:2024/05/29 07:23:21
有窗体A、B和C,它们都有
D.show
Unload Me
而D窗体有返回按钮,我想返回到最近上一次显示的窗体,该怎么办?

在标准模块中,定义

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

我想可以这样:先设一个全局变量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中。