Question

vb6.0 command 按钮实现两个功能

创建一个工程 新建两个窗口 Form1 ,form2
在Form1窗体中添加一个Command1按钮，修改caption属性为打开Form2
需要实现的功能
点击Command1按钮时打开Form2，并且按钮名字自动更改为“关闭Form2”
然后在点击Command1按钮时关闭Form2，并且按钮名字自动更改为“打开Form2”
求代码 最后有注释 谢谢

Answer 1

参考代码如下
在form1中添加如下代码，即可实现该功能
Private Sub Command1_Click()
'按钮的点击事件
If Command1.Caption <> "关闭form2" Then
'如果标题不是 关闭form2 那么执行
Form2.Show '打开form2
Command1.Caption = "关闭form2" '并设置标题 可关闭状态
Else
'如果是关闭
Unload Form2 '关闭form2
Command1.Caption = "打开form2" '设计标题为 可打开状态
End If
End Sub

另外，如果想手工关闭form2也能影响form1的按钮的话，在form2的代码中增加如下代码
Private Sub Form_Unload(Cancel As Integer)
'form2关闭后，设置按钮一的状态为可打开状态
Form1.Command1.Caption = "打开form2"
End Sub