在云硬盘备份的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