Form互斥显示的问题.请指教,谢谢.

[cowboy2006]

Form互斥显示的问题.
form1.show的时侯其它(只有一个能打开)的关闭
form2.show的时侯其它(只有一个能打开)的关闭
......
而不必去手动地去关闭其它的Form.



呵呵,不知道我的意思说清楚了没有.请指教.谢谢

[饮水需思源]

form1.show 1

[射天狼]

Option Explicit

Private Sub Command1_Click()
CloseForm
Form2.Show
End Sub

Private Sub Command2_Click()
CloseForm
Form3.Show
End Sub

Private Sub CloseForm()
Dim frm As Form

For Each frm In Forms
If frm.Name <> "主窗口名称" Then
Unload frm
End If
Next
End Sub

[射天狼]

1楼,要看清楚题目再回答,不要只说别人的回答欠妥~~~~~~