Question

在VB中，怎样单击弹出一个框？

我设置了一个command1，想单击它的时候弹出一个窗口，该窗口上面有四个按钮，麻烦各位帮帮忙~
还有，请问如何实现单击按钮显示网页？我在网上查到这段
Private Sub command1_click()
WebBrowser1.Navigate "http://zhidao.baidu.com/"
End Sub
但不行，说“run-time error 424 , object required”
这是什么意思呢？我应该怎么写才行？
谢谢~
第二个问题我明白错在哪里了，谢谢zijinzhu~其实我的本意不是要在窗口上显示网页，而是在点击按钮的时候弹出浏览器，浏览器里显示那个网页~那该怎么办啊？麻烦了~
大家都好热心~先谢过了~

Answer 1

查看WebBrowser控件有没有添加。
WebBrowser控件不是VB的标准控件，在使用前需选择“工程”/“部件”菜单项，在弹出的对话框中，勾选“Microsoft Internet Controls”项，将其添加到工具箱中。然后再在窗体上使用它。

Private Sub command1_click()
WebBrowser1.Navigate "http://zhidao.baidu.com/"
End Sub
代码没错!

如果要弹出浏览器，那添加form2,在form2中画WebBrowser控件
Private Sub Command1_Click()
Form2.Show
Me.Hide
Form2.WebBrowser1.Navigate "http://zhidao.baidu.com/"
End Sub

Answer 2

1: 先建立另外一个 form ，上面画4个按钮，然后command1 的 click事件中加 form.show

2，先在界面添加 WebBrowser1 控件！ object required 是说你没加这个对象：）

Answer 3

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "http://www.baidu.com", 0, 0, 0
End Sub

Answer 4

搞那么复杂干什么，给你个简单方法，一句就搞定了：

Shell "cmd.exe /c start http://zhidao.baidu.com", 0

Answer 5

Private Sub command1_click()
窗口名.show
end if