VB如何弹出提示框

2024-11-07 23:30:59

有5个网友回答

网友（1）：

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

网友（2）：

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

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

Vb----

网友（3）：

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

网友（4）：

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

网友（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