Private Sub Form_Unload(Cancel As Integer) end End Sub 如果这个可以保证无论什么情况 都可以关闭后不出现exe,那我所有的程序都应该加上这个!!!哈哈 等会我试试!!!
有些Form在Unload的时候不需要End的除外
不是所有的都应该加上这个end,那样关闭一个窗口有end程序都会结束, 只能在主窗口加end
请问 VB右上角的关闭 相当于 什么程序?? 相当于 end 还是 unload.me 还是什么别的?多谢
End结束所有的东西 unload.me 是卸载当前的窗体
Private Sub Form_Unload(Cancel As Integer) Dim tmpIndex As Integer For tmpIndex = Forms.Count - 1 To 0 Step -1 '枚举所有窗口 If Not Forms(tmpIndex) Is Me Then Unload Forms(tmpIndex) '卸载所有非本窗口的窗口 Next If Forms.Count > 1 Then '如果窗口数量大于1 Cancel = True '撤销关闭窗口 End If End Sub 也有人这么写, 不知道与用End有什么不同?
unload me卸载自己 也就是卸载当前窗体
可以在
Private Sub Form_Unload(Cancel As Integer)
end
End Sub
我现在的方法 是不用 .show,换成.visiable 不知道能不能解决!
end
End Sub
如果这个可以保证无论什么情况 都可以关闭后不出现exe,那我所有的程序都应该加上这个!!!哈哈
等会我试试!!!
不是所有的都应该加上这个end,那样关闭一个窗口有end程序都会结束,
只能在主窗口加end
相当于 end 还是 unload.me 还是什么别的?多谢
unload.me 是卸载当前的窗体
Dim tmpIndex As Integer
For tmpIndex = Forms.Count - 1 To 0 Step -1 '枚举所有窗口
If Not Forms(tmpIndex) Is Me Then Unload Forms(tmpIndex)
'卸载所有非本窗口的窗口
Next
If Forms.Count > 1 Then '如果窗口数量大于1
Cancel = True '撤销关闭窗口
End If
End Sub
也有人这么写, 不知道与用End有什么不同?
Unload : 只有在盆里没孩子的情况下才倒掉洗澡水