我的程序里面有两个Form（Form1和Form2），Form1上放一个button，button上的caption是 "show"。程序运行后，Form2并没有显出来，只看到form1。我要实现的功能是：点击form1上的button，就将form2显示出来，同事button的caption变为"hide",再点击一下button，form2隐藏起来，同时button的caption变为“show”，请问如何实现这个功能？我写的程序是：
Private Sub command3_Click()

If Command3.Caption = "show" Then
Command3.Caption = "hide"
Form2.Show
ElseIf Command3.Caption = "hide" Then
Command3.Caption = "Show"
Form2.Hide
End If
End Sub

可是这个程序还是有问题。请教大家了，多谢！

同时还想问一下，form2.show和form2.visible=true这两句有什么强区别？

[此贴子已经被作者于2006-12-29 22:03:11编辑过]

Private Sub cmdShow_Click()
Static SH As Integer
SH = SH + 1
If SH Mod 2 <> 0 Then
Form2.Show
cmdShow.Caption = "Hide"
Form1.SetFocus
Else
Form2.Hide
cmdShow.Caption = "Show"
End If
End Sub

Private Sub Form_Load()
cmdShow.Caption = "Show"
End Sub

show为显示是方法来的,而visible是可见性...是一个控件的属性来的.

[此贴子已经被作者于2006-12-29 22:48:03编辑过]

谢谢大侠！！

我做的程序里面有两个Form（Form1和Form2），Form1上放一个button，button上的caption是 "show"。
方法：
第一步：Form1中的button的表达式写为：
Private Sub Command1_Click()
Command1.Caption = "show"
Form2.Show
End Sub
第二步：却换为Form2，并在Form2中的button的表达式写为
Private Sub Command1_Click()
If Command1.Caption = "hide" Then
Form2.Hide
End If
End Sub
第三步：运行这个程序就可以实现点击form1上的button，就将form2显示出来，同事button的caption变为"hide",再点击一下button，form2隐藏起来，同时button的caption变为“show”.
小弟不才，好像上楼的程序有点问题，而且也不够简洁.
还请各位指教！

我在form2上是没有button的，我要实现的功能就是点击form1上的button让form2显示，再点一次让它消失。同时button上的caption要相应的改变。我修改后的程序是：
If Command3.Caption = "show" Then
Command3.Caption = "hide"
Form2.Visible = True
ElseIf Command3.Caption = "hide" Then
Command3.Caption = "show"
Form2.Visible = False
End If

程序可以运行。这个程序和kowen的思路相近。

ioriliao的程序提供了另外一种思路，非常新颖。我现在在思考能不能将Form2.Visible = False该为unload form2，将Form2.Visible = True改为load form1；因为unload可以从内存里把form2删除

将Form2.Visible = True改为load form1；因为unload可以从内存里把form2删除
这个就要看看程序的必要与不必要了...如果必要的就得unload!根据实际情况而定就是了.

没什么大问题，是你不仔细。你把Command3.Caption = "Show"中的Show改为show就行了。你把让Command3.Caption等于Show，而又判断Command3.Caption是否等于show，当然出错了。