下面是点击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

谢谢楼上朋友,点关闭钮可以实现要求,但出了一个意外;即点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

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

按楼上侠客的代码放进后,换页就弹出"退出系统"对话框,请看附件:

请问侠客,按新代码设置加入原程序中,还会出现原来的问题,即点换页钮会跳出退出系统对话框,此外,点退出系统,悬浮窗体未退出,
请看附件:

这个问题很重要,它涉及能否在exe窗体和单工程内窗体之间的转换问题,到目前还没有解决这问题,请侠客直接在下面附件中更正?

是这样的,偶按侠客的代码放入程序中,还出现一些问题:(请看本帖附件)
1,若是exe中只有单个主窗体其间进行跳换是没问题的,但exe文件中有多个主窗体,换页时会弹出"退出"对话框
2,在exe文件中若有多个窗体,它们之间的跳转也有些问题,
希望侠客能指正一下错误所在,