万博体育app世界杯版3.0下载

热门关键词: 万博体育app世界杯版3.0下载 私发的万博app有问题吗  photo shop 

四中概况 | 资源下载 | 教学视频 | 图片频道 | 教师风采 | 教研课改 | 党政工作 | 校园新闻 | 招生考试 | 工会活动 | 文学社 | 健康人格 |
您当前的位置:首页 > 教研课改

msgbox实例一

时间:2017-11-21 13:10:12  来源:  作者: 背景:

第一步:建立窗口对象

1111111111.png

第二步:写入代码

 Private Sub Command1_Click()

Dim i As Integer
i = MsgBox("现在打开百度", vbYesNo, "提示")
If i = vbYes Then Shell "explorer.exe http://www.baidu.com/"
If i = vbNo Then Text1.Text = 200
End Sub
 
文章互动
  评论人 评论内容 发表时间  

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表

评论协议:
请遵守国家法律和道德规范。一切评论与本站无关!
娄底四中办公室电话:6529307
网站首页 | 关于我们 | 服务条款 | 广告服务 | 联系我们 | 网站地图 | 免责声明 | WAP
Copyright © 2009 - 私发的万博app有问题吗
Powered by ldsdszx.com 备案:湘ICP备10018474号