在线等待!!!!!!标题栏上关闭按钮问题

Question

当按关闭按钮时,当前窗体是关闭了的,但是隐藏的窗体不能关闭,程序还在运行怎样实现在关闭后隐藏窗体同时关闭???????

Answer 1

在能关闭的窗体的close事件中，close隐藏的窗体

Answer 2

在我的记忆中好像可以使用
each ... in ...
可以一个个全部关闭

Answer 3

Dim i asInteger
′在窗体集合中循环并卸载每个窗体
For i=0 to Forms.Count－1
Unload Forms(i)
Next

Answer 4

dim frm as form
for each frm in forms 
   unload frm
next

Answer 5

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Me.Hide
End Sub

Answer 6

dim frm as form
for each frm in forms 
   unload frm
next
我也是这个答案，