To shines 1、不是,但已解决了。谢谢各位。 2、不是,我的意思像用VB的form中的Terminate事件一样,但是此事件,不管你如何操作,窗体总要关闭,我想实现:单击了关闭窗口(‘X’),但是窗体依旧存在于界面中。如何实现?
看这个例子: Private Sub Form_Unload(Cancel As Integer) Dim r As Integer r = MsgBox(" 应用程序即将关闭..." + vbCrLf + vbCrLf + " 你的真的想现在退出吗?" _ + vbCrLf + vbCrLf, vbInformation Or vbYesNoCancel, "退出...") If r = vbCancel Then '按下Cancel键 Cancel = 1 '取消退出 ElseIf r = vbYes Then '按下Yes键 '相关处理..... ElseIf r = vbNo Then '按下No键 '相关处理..... End If End Sub
API,VB书上有。
一定要句柄吗?用焦点转移,能解决吗?
是哪个API函数?
能告诉我吗?
2、不是很明白你的意思,如果你是指该窗口的hWnd,则直接引用:form.hWnd
谢了!我试试。2 是关闭窗口的句柄.不是form.hwnd。 就是窗体那右上角小小的“X”。如何捕获关闭窗体的东东?
1、不是,但已解决了。谢谢各位。
2、不是,我的意思像用VB的form中的Terminate事件一样,但是此事件,不管你如何操作,窗体总要关闭,我想实现:单击了关闭窗口(‘X’),但是窗体依旧存在于界面中。如何实现?
Private Sub Form_Unload(Cancel As Integer)
Dim r As Integer
r = MsgBox(" 应用程序即将关闭..." + vbCrLf + vbCrLf + " 你的真的想现在退出吗?" _
+ vbCrLf + vbCrLf, vbInformation Or vbYesNoCancel, "退出...")
If r = vbCancel Then
'按下Cancel键
Cancel = 1 '取消退出
ElseIf r = vbYes Then
'按下Yes键
'相关处理.....
ElseIf r = vbNo Then
'按下No键
'相关处理.....
End If
End Sub
非常感谢各位!到此问题全部已解决,小弟在此再谢!
我有个不请之问: 实现From_Unload事件的作用。请问如果改为用API调用,则用哪个API函数(具体的函数名)?