大虾们!谁做过用窗体制作关闭对话框?

Question

我想用窗体制作一个关闭窗体时弹出来的对话框!
类似msgbox("真的要退出吗?")这种对话框

Answer 1

可以，在QueryUnload事件中处理就行了。

Answer 2

具体怎么做啊?代码怎么写?
cangwu_lee(小橙子) 

Answer 3

private sub form_unload(cancel as integer)
  dim r as integer
  r=msgbox("确定要退出吗？",vbquestion+vbyesno,"提醒")
  if r=vbno then cancel=true
end sub

Answer 4

private sub form_unload(cancel as integer)
  if msgbox("确定要退出吗？",vbyesno,"提醒")=vbno then
     cancel=true
  end if
end sub

Answer 5

我明白LZ的意思，我也自己做過。
我是嫌自帶的msgbox不好看，跟我的系統的格調不協調，不知道LZ是否也是因為如此。其實做這樣的窗體沒有難度，只是要自己根據需要設置好窗體上的按鈕。
比如：<確定>、<取消>、<重設>、<是>、<否>
每個按鈕的返回值可以參考msgbox的用1、2、3... ...7等等表示

Answer 6

正是这样
我做了一个
但我在调用时不像msgbox那样好调用
有时候在登陆啊
等
不好卸载窗体

Answer 7

Sub form_unload(cancel as integer)
if msgbox("确定退出？",vbyesno)=vbno then cancel=1
End sub
也可以把上面这句话写在QueryUnload时间里。Sub form_QueryUnload(cancel as integer)
if msgbox("确定退出？",vbyesno)=vbno then cancel=1
End sub一样