在雲硬碟備份的msgbox對話方塊中，點選“確認”或“取消”後如何定義操作？

msgbox 函式具有返回值。

目標。 msgbox(prompt[, buttons] [title] [helpfile, context])

返回值。 用於 msgbox 函式返回值的常量。

常量值說明。

vbok 1 好的。

VB取消 2.

VBABORT 3 終止。

vbretry 4 重試。

vbignore 5 忽略。

VBYES 6 是。

vbno 7 編號

定義乙個變數以接收其返回值，或直接做出判斷。

ans=msgbox(“continue?vbokcancel） 或。

if msgbox(“continue?”,vbokcancel )=vbok then msgbox（“1”，vbokonly）

if msgbox(“continue?”,vbokcancel )=vbcancel then msgbox（“2”，vbokonly）

x=msgbox("要顯示的資訊",vbokcancel)if x=vbok then

**你想寫。

elseif x=vbcancel 那麼你要寫 **。

end if

可以根據以下常數來判斷。

vbok 1 單擊“確定”按鈕。

vbcancel 2 單擊“取消”按鈕。

vbabort 3 單擊“終止”按鈕。

vbretry 4 單擊“重試”按鈕。

vbignore 5 單擊“忽略”按鈕。

VBYES 6 單擊“是”按鈕。

單擊 VBNO 7“否”按鈕。

另存為 ANSI 編碼的 VBS 檔案並嘗試一下。

你可以把“msgbox”。"是的"“與”味精盒"不"替換為您自己的**。

資料來源： lret = msgbox （"是否？ ",vbyesno,"請確認")

if lret = vbyes then

msgbox "是的"

end if

if lret = vbno then

msgbox "不"

如果附件結束：

msgbox 函式具有返回值。

msgbox(prompt[, buttons] [title] [helpfile, context])

返回值用作 msgbox 函式返回值的常量。

常量值說明。

vbok 1 好的。

VB取消 2.

VBABORT 3 終止。

vbretry 4 重試。

vbignore 5 忽略。

VBYES 6 是。

vbno 7 編號

定義乙個變數以接收其返回值，或直接做出判斷。

ans=msgbox(“continue?vbokcancel） 或。

if msgbox(“continue?”,vbokcancel )=vbok then msgbox（“1”，vbokonly）

if msgbox(“continue?”,vbokcancel )=vbcancel then msgbox（“2”，vbokonly）

msgbox 無法更改 OK、取消、忽略等！ 這些包括每個按鈕的固定值，因為這允許使用者快速確定下一步要做什麼！

msgbox 函式的格式：

變數 = msgbox （hint [， button type] [， title]） 或： msgbox hint [， button type][， title]，其中按鈕型別由 3 部分組成：按鈕型別 + 圖示型別 + 預設按鈕，其值如下：

不！ MSGBOX彈出的東西都是固定的！ ~

你可以自己做乙個這樣的小形式，這並不難！ ~

不應該有，像“OK”、“Cancel”等東西，都是在系統檔案中定義的，例如，有時英文軟體的對話方塊也會出現“OK”等。

所以應該沒有辦法改變這一點，你可以自己寫乙個模仿的形式。

這是自定義的，因此建議您使用多個表單，以便您可以達到所需的效果。

呵呵！ 希望它對你有幫助，祝你好運

這就像為您為跟蹤對話方塊而定義的變數分配乙個值一樣簡單，並且此變數的值是來自您單擊的不同鍵的不同值。

value = msgbox("are u sure...",vbokcancel,"title")

value=1，則單擊“確定”; value=2，則單擊以取消。

牛頭不在馬嘴裡，答案很強，答案不是他問的。

if msgbox("你確定要做到嗎？ ",1) = 2 thenend if

msgbox "執行了以下**。 "

dim userchoice as integeruserchoice=msgbox("是否要繼續？ ",vbokcancel,"來自程式的資訊")

if userchoice=vbok thenelseend

end if

timer1 的 timer 事件是這樣寫的。

private sub timer1_timer()static i as integer

i=i+1if i>= 5 then

i =0 end

end if

end sub

存在乙個問題，使用者必須有不到 5 秒的時間來完成所有操作，否則程式就結束了。 解決起來比較麻煩，彈窗必須自己編寫，需要使用 API 函式獲取滑鼠移動或按鍵的訊息，然後定義如何處理。

我建議你放大這個時間，比如說 20 秒作為等待時間，並新增乙個提醒框來告訴使用者還剩下多少時間來執行操作。

製作自己的對話方塊，其中包含計時器！

OK 按鈕中的 ** 是：解除安裝我

取消按鈕中的**是：結束

timer 的 interval 屬性為 5000

計時器中的**是：結束

private sub form_unload(cancel as integer)

if msgbox("您確定選擇退出該計畫嗎？ ", 1 + 64 + 256) = vbcancel then cancel = 1

end sub

在 unload 事件中啟用上述功能。

例如，私有子表單 load（）msgbox"輸入資料", vbokcancel, "有 2 個按鈕" '那個 vbokcancel 是 2 個按鈕的引數。

end sub

具體介紹已經在樓上給出了。

if msgbox("技巧", vbokcancel, "標題") = 1 then

按 OK。

否則按取消或直接關閉。

end if

if msgbox("內容",vbyesno)=vbyes thenmsgbox "下乙個彈出視窗"

elsemsgbox "選擇取消彈出視窗"

end if