求教个VB搜索代码

来源：百度知道 编辑：UC知道 时间：2024/06/03 21:43:15
四个控件。text1,text2,command1,WebBrowser1

要求，在text1中输入要查询的关键字，command1点击查询，（例如在百度中搜索）。然后 会在text2中显示搜索结果

谢谢指教

上面的wzxll - 助理错了，应是：
Private Sub Command1_Click()
Dim b
b = Text1.Text
Me.WebBrowser1.Navigate "http://www.baidu.com/s?wd=" & b
End Sub

Private Sub Form_Load()
Me.WebBrowser1.Navigate "about:blank"
End Sub