Question

VB如何弹出提示框

用VB弹出提示框，提示框内容如图
当用户点击确定按钮时则运行d:\1.exe,当用户点击取消按钮时则运行d:\2.exe，VB代码该怎么写？我是菜鸟，希望高手们能够把代码和过程尽可能的写详细点，谢谢！~~~
代码详细点

Answer 1

可以通过MsgBox函数调用提示框。
msgbox函数有两种格式，一种带返回值，一种不带返回值
代码如下：
MsgBox "提示内容" ， ， “提示框标题” ‘不带返回值
D=Msgbox （“提示内容”， ， “提示内容”） ’D为返回值，可以知道用户按下哪个按钮。

Answer 2

输入代码：msgbox"你想说的内容填这里"
温馨提示：
Windows10不支持中文
要写英文语句哦！
想写标题的这样写：
msgbox"想写的内容"，VbOkOnly,"想写的标题" 这样就可以了。

想写标题的msgbox"你想说的内容填这里"

Vb----

Answer 3

If MsgBox("提示：是否运行应用程序？", vbOKCancel, "提示")= vbOK Then
Shell "d:\1.exe"
Else
Shell "d:\2.exe"
End If

追问

点击确定后程序(1.exe)是运行了，但是运行的程序没有弹出桌面来，而是最小化在任务栏处。添加什么代码能够点击确定后程序（1.exe）运行时能够在桌面的前端显示而不是最小化？

追答

Shell "d:\1.exe",vbNormalFocus 试试

追问

谢谢
如果我只要“确定”按钮，不要“取消”按钮那么代码该怎么写？

追答

MsgBox("提示：是否运行应用程序？", vbOKOnly, "提示")

追问

我想提示框里面的字大一点，代码该怎么改？谢谢

追答

MSGBOX里字体的大小是系统规定的，要改的话，要用到好多api,很麻烦的

追问

谢谢你上面的回答，我还有最后一个问题：
如果点击取消按钮后不打开任何程序（只执行退出操作）代码该怎么改？
回答完后我加分

Answer 4

If MsgBox("提示：是否运行应用程序？", vbYesNo, "提示") = vbYes Then Shell "d:\1.exe" else Shell "d:\2.exe"

Answer 5

Private
Sub
Command1_Click()
Timer1.Enabled
=
True
'timer控件响应事件
Timer1.Interval
=
1000'事件间隔1秒
End
Sub
Private
Sub
Form_Load()
Timer1.Enabled
=
False'不响应
End
Sub
Private
Sub
Timer1_Timer()
Static
i
As
Integer
'设置静态变量i
i
=
i
+
1
'i值累加1
Me.Caption
=
i
If
i
=
3
Then
MsgBox
"提示":
i
=
0
'如果i=3
则弹出对话框:timer1.enabled=false
End
Sub