Question

vb 窗口切换

有2个窗体form1 form2
在form1中有next按钮
private sub next_Click()
form2.show 1
unload me
end sub
在form2中有return按钮
private return__Click()
form1.show 1
unload me
end sub
为什么我在form1中点击next后form2显示出来，而后在form2中点击return时显示窗体已经打开，不能显示有模式的
请问怎么修改程序来实现2个窗体的相互转换呢

Answer 1

对楼上的没语言。

估计他连你问的问题都不很清楚，
楼主先参考下这个，
每次发完问题了看下相关的问题
=================

VB中有例子，你可以尝试自行研究。
方法：工程 － 添加窗体 － 选项对话框。这个选项对话框已经有相关的应用代码。

不过你可以尝试人性化的自定义。方法：
工程 － 部件 － Microsoft Windows Common Controls *.*
点解TabStrip图标，添加到窗体。
右键点击TabStrip，选择属性，对TabStrip进行自定义。
点击选项卡，在标题栏填写类似新建、现存、最新等名字。如果需要添加选项卡，可以点击插入选项卡按钮
实现点击切换：我比较喜欢在窗体中添加Frame，点击选项卡则显示相应的Frame。例如：
Private Sub TabStripSite_Click()
'设置选项卡点击显示情况
For Counter = 0 To TabStripSite.Tabs.Count - 1 '从0开始计算判断所点击的选项卡
Select Case TabStripSite.SelectedItem.Caption '判断选中的选项卡的标题栏（Caption）的值
Case FraSiteBasic.Caption
FraSiteBasic.Visible = True '设置Visible状态
FraSiteOwner.Visible = True
FraSiteLocal.Visible = False
FraSitePower.Visible = False
Case FraSiteLocal.Caption
FraSiteBasic.Visible = False
FraSiteOwner.Visible = False
FraSiteLocal.Visible = True
FraSitePower.Visible = False
Case FraSitePower.Caption
FraSiteBasic.Visible = False
FraSiteOwner.Visible = False
FraSiteLocal.Visible = False
FraSitePower.Visible = True
End Select
Next
End Sub

＝＝＝＝＝＝＝＝＝＝

希望能帮上一点忙

Answer 2

1.新建工程，建立二个form,二个上面都各放一个command
2.form1上双击conmmand1输入以下代码
Private Sub Command1_Click()
Me.Hide
Form2.Show

End Sub

3.form2上双击conmmand1输入以下代码
Private Sub Command1_Click()
Me.Hide
Form1.Show

End Sub

搞定收工

Answer 3

方法很多.
方法一:
Form1上的按钮的代码如下
private
sub
command1_click()
me.hide
'窗体一隐藏
form2.show
'窗体二显示
end
Form2上的按钮的代码如下
private
sub
command2_click()
me.hide
'窗体二隐藏
form1.show
'窗体一显示
end
方法二:
Form1上的按钮的代码如下
private
sub
command1_click()
Me.Visible
=
False
'窗体一隐藏
form2.show
'窗体二显示
end
Form2上的按钮的代码如下
private
sub
command2_click()
Me.Visible
=
False
'窗体二隐藏
form1.show
'窗体一显示
end
方法三:
Form1上的按钮的代码如下
private
sub
command1_click()
unload
me
'窗体一隐藏
form2.show
'窗体二显示
end
Form2上的按钮的代码如下
private
sub
command2_click()
unload
me
'窗体二隐藏
form1.show
'窗体一显示
end

Answer 4

方法一：同一个窗体法

'FROM1

Private Sub Command1_Click()
Me.Hide
Form2.Show

End Sub

'FROM2

Private Sub Command1_Click()
Me.Hide
Form1.Show

End Sub

方法二：新建窗体法

private sub next_Click()
dim f as new form2
f.show
unload me
end sub

private return__Click()
dim f as new form1
f.show
unload me
end sub

Answer 5

private sub next_Click()
me.hide
form2.show 1
me.show
end sub

private return__Click()
unload me
end sub