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的問題
這裡最關鍵的就是 val 函式，在它不能識別為數字的第一個字元上，停止讀入字串。val 123ab 到 a 才是 第一個不能識別為數字 所以 結果是 123 而 val a123ab 第一個字元 a 就是 不能識別為數字 的，所以結果是 0 下面詳細瞭解一下val 函式。val 函式 返回包含於字串...
請教VB問題，請教一個VB問題
結果是4了。是按鈕過程變呼叫fun過程！是012345 分析如下 1 呼叫fun 5 此時k 5，在判斷中k 0 則呼叫了fun 4 2 同樣fun 4 執行時k 4，在判斷中k 0 則呼叫了fun 3 3 同樣fun 3 執行時k 3，在判斷中k 0 則呼叫了fun 2 4 同樣fun 2 執行時...
VB問題很急，一個VB問題 很急
vb我不懂怎麼寫，但可以肯定的告訴你，adodc1.recordsource select from member where no 00300002 這一句下面的操作需要你的資料庫不為空才可以操作，你試著在member里加入一條no 00300002 的記錄試試 要徹底的解決問題，需要在 adod...