VB问两个小问题，谢谢！

来源：百度知道 编辑：UC知道 时间：2024/05/28 13:46:20
怎样使单击命令按钮弹出确认对话框，点是，就关闭，点否就返回！
还有如何单击命令弹出网页比如弹出www.baidu.com
谢谢了！
好的话我追分！
一楼那个根本不行``
二楼那个也不行！因为弹出对话框了，你点是，他也不关闭，反正一直弹出那个对话框，点否对话框还在！

Private Sub Command1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "你想关闭吗 ?" ' 定义信息。
Style = 4 ' 定义按钮。
Title = "MsgBox Demonstration" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes"
' 完成某操作。
End
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If
End Sub

Private Sub Command2_Click()
Dim dk
dk = Shell("C:\Program Files\Internet Explorer\Iexplore.exe www.baidu.com", 1)
End Sub

窗体上拖两个按钮command1用于弹出对话框cimmand2用于打开网址,在代码区粘贴以下代码
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (