vb的massagebox怎么编程
答案:1 悬赏:50 手机版
解决时间 2021-04-04 18:14
- 提问者网友:欲望失宠
- 2021-04-04 15:24
vb的massagebox怎么编程
最佳答案
- 五星知识达人网友:低音帝王
- 2021-04-04 16:45
massagebox应该是MsgBox吧。
MsgBox 函数,在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
MsgBox 函数示例
本示例使用 MsgBox
函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox 函数的返回值视用户按哪一个钮而定。
Private Sub Form_Load()
Dim Msg, Style, Title, Response, MyString
Msg = "你想继续 ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "MsgBox示范" ' 定义标题。
' 显示信息。
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Load Me
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
Unload Me
End If
End Sub
MsgBox 函数,在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。
MsgBox 函数示例
本示例使用 MsgBox
函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox 函数的返回值视用户按哪一个钮而定。
Private Sub Form_Load()
Dim Msg, Style, Title, Response, MyString
Msg = "你想继续 ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "MsgBox示范" ' 定义标题。
' 显示信息。
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Load Me
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
Unload Me
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯