lzth.net
当前位置:首页 >> VB 怎样可以点击MsgBox的确定后打开另一窗口? >>

VB 怎样可以点击MsgBox的确定后打开另一窗口?

If MsgBox("注册已完成,现在就登录吗?", vbOKCancel) = vbOK Then Form2.Show 假定Form2是登录窗口

If MsgBox("想要打开百度吗?", vbYesNo) = vbYes Then Shell "iexplore.exe www.baidu.com"

End 改为 unload me:form2.show

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

Private Sub Command1_Click() MsgBox "123" Command2_Click End Sub Private Sub Command2_Click() Me.Caption = "1111111" End Sub

msgbox函数有返回值的 MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 返回值 用于MsgBox函数返回值的常量 常数值 说明 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 定义一...

Private Sub Command1_Click() MsgBox "请随机点击一按钮,将弹出另一消息框!", vbYesNoCancel, "消息框一" MsgBox "另一消息框!", , "消息框二"end sub

你说的是外部程序,还是自身程序? 如果是其他程序,需要通过另一程序来控制它的话,需要枚举窗体 如果是自身程序,则由本身代码控制。

自己做一个MSGBOS()相似的窗口,里面东东你都可以自己定,要弹出消息时弹出自己做的MSGBOS就好了。。。。

'我也是手机端啊!! Dim msg as long msg=msgbox("确定就显示图片,取消就不显示。",vbyesno,"提示") if msg=vbno then '如果选择“否/取消” exit sub '退出过程,相当于没事发生。 else '否则,也就是选择了“是/确定” '……要怎样就到这加进来… e...

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com