1樓：
private sub form_queryunload(cancel as integer, unloadmode as integer)'點選右上角的關閉
dim a as integer
a = msgbox("確認關閉嗎？", vbokcancel + vbquestion, "系統提示")
if a = vbok then
end '解除安裝所有窗體
else
cancel = -1 '返回窗體
end if
end sub
補充一下
雙擊窗體複製以上內容即可
2樓：匿名使用者
option explicit
private sub form_queryunload(cancel as integer, unloadmode as integer)
if msgbox("確定關閉麼？", vbquestion + vbyesno) = vbno then cancel = true
end sub
3樓：匿名使用者
i = msgbox("確認關閉嗎？", vbokcancel, "關閉")
VB的問題，一個VB的問題
以下 只需要按command1就可以同時顯示text1和text2了 option explicit option base 1 private sub command1 click dim a 15 as integer dim i as integer text1.text for i 1 to...
VB基礎問題，VB一個基礎問題
private sub command1 click static i as integer dim a a array 小1 王2 小3 李4 太5 多6 了7 不8 寫9 了10 label1.caption a i if i 9 then i i 1end sub private sub co...
關於vb時鐘的問題，關於vb時鐘的一個問題
建立一個窗體,把borderstyle屬性設為0 none，在窗體上面繪製一個timer 一個label就可以了，不用修改其他屬性。開啟 區，寫下以下 dim x1,y1 as single private sub form load me.caption me.borderstyle 0 with...