下面是点击command1钮,则弹出系统询问的对话框,但如何实现点击窗体右上角关闭钮也会弹出这样的对话框?
Private Sub Command1_Click()
Dim Ltem As Long
Dim LpID As Long
Dim hLong As Long
Dim strWinName As String
strWinName = "olp"
hLong = FindWindow(vbNullString, strWinName)
If hLong Then
GetWindowThreadProcessId hLong, LpID
Ltem = OpenProcess(PROCESS_TERMINATE, False, LpID)
TerminateProcess Ltem, 0
hLong = 0
End If
If MsgBox("你确实要退出吗?", vbYesNo + vbExclamation, "系统询问") = vbYes Then
Unload Me
End
Else
Cancel = True
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
Call Command1_Click
End Sub

谢谢楼上朋友,点关闭钮可以实现要求,但出了一个意外;即点Command1弹出对话框后,要点两次"是",窗体才能关闭,不知何故,请指教.

上面的原代码还有一个问题是:当点按钮“Command1”时，悬浮窗体就提前关闭了，就是说还未弹出“是”和“否”的对话框它就关闭了。
采用二楼代码后,点击窗体关闭钮,悬浮窗体同样会提前关闭.但与上面不同的是,只要按一下"是",就退出窗体了.
而点Command1后,变成了要点二次"是"才能关闭主窗体.(原来未采用点击窗体关闭钮时只要点一次就关闭窗体了)不知问题出在哪里?

[此贴子已经被作者于2007-2-17 15:01:11编辑过]

把代码传上来,否则不知道你哪有问题,这个代码单独用是没问题的

今天是大年初一,大家新年好!祝大家新春愉快,万事如意!
谢谢各位帮助本人解决这跨年度的问题,
按理,上面的问题在单工程内是已经解决了,但该问题是出在引用了exe窗体而出现的,所以与常规有不同的地方,现在将原代码发上,请高手帮助解决.

下面代码能实现不提前关闭悬浮窗体,但点击Commind1关闭窗体时,需要点二次"是"才能关闭,问题出在何处?如何改?
Private Sub Command1_Click()
Dim Ltem As Long
Dim LpID As Long
Dim hLong As Long
Dim strWinName As String
strWinName = "olp"
hLong = FindWindow(vbNullString, strWinName)
If hLong Then
GetWindowThreadProcessId hLong, LpID
Ltem = OpenProcess(PROCESS_TERMINATE, False, LpID)
hLong = 0
End If
If MsgBox("你确实要退出吗?", vbYesNo + vbExclamation, "系统询问") = vbYes Then
TerminateProcess Ltem, 0
Unload Me
End
Else
Cancel = True
End If
End Sub

[此贴子已经被作者于2007-2-21 10:02:38编辑过]

谢谢楼上版主的帮助,改后的代码放到程序中,出现了一些问题,就是会在转页时,跳出多余的窗体,现传上附件,请更正为盼!

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("您真的要退出吗?", vbYesNo + vbQuestion, "系统提示") = vbYes Then
End
Else
Cancel = 1
End If
End Sub

这个不就够了