vb 最小化代替关闭后 如何关闭

来源:百度知道 编辑:UC知道 时间:2024/05/18 11:34:01
Private Sub Form_Unload(cancel As Integer)
Me.WindowState = 1
cancel = True
End Sub
如此写,关闭就可以实现最小化的功能,但如何关闭阿

第一,你的代码最好写在Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

End Sub
事件里,你要关闭可以使用一个command,代码为end,不过你的软件如果是长驻内存的,建议不要采用这个,这样关机的时候会无法关闭或蓝屏,你应该这样写
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
if unloadmode=1 then cancel=-1
End Sub