vb点击MsgBox窗口上的“是”“否”按钮分别执行不同操作?

我知道下面这个代码可以在MsgBox上加是否按钮:MsgBox("现在打开百度",vbYesNo,"提示")=vbYes。那么怎样实现点击msgbox窗口上的“是”按钮后... 我知道下面这个代码可以在MsgBox上加是否按钮:
MsgBox("现在打开百度", vbYesNo, "提示") = vbYes。
那么怎样实现点击msgbox窗口上的“是”按钮后,执行text1=100,点击“否”按钮后,执行text1=200?
展开
 我来答
duyin2011
推荐于2018-05-15 · TA获得超过2398个赞
知道大有可为答主
回答量:1723
采纳率:100%
帮助的人:663万
展开全部
Private Sub Command1_Click()
Dim i As Integer
i = MsgBox("现在打开百度", vbYesNo, "提示")
If i = vbYes Then Text1.Text = 100
If i = vbNo Then Text1.Text = 200
End Sub
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
130lichong
2013-04-10 · TA获得超过4893个赞
知道大有可为答主
回答量:1.5万
采纳率:0%
帮助的人:3996万
展开全部
如果MSGBOX(“退出”,vbYesNo + vbInformation用来“退出”)= vbYes结束

结束,如果
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2013-03-24 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5646万
展开全部
if MsgBox("现在打开百度", vbYesNo, "提示") = vbYes then
text1=100
else
text1=200
endif
你连基本语句都不会,靠你那几百分到处要代码做个外挂,有啥用?显摆?
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式