额··问个问题可以吗？

Question

各位哥哥姐姐，叔叔阿姨，爷爷奶奶我刚接触VB不久想做个这样的东西一个文本框一个按钮单击按钮就可以打开百度搜索文本框输入的内容  那个按钮的事件我怎么写？
谢谢

Answer 1

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 LongPrivate Sub Command1_Click()
   ShellExecute 0, "open", "http://www.baidu.com/s?bs=vb&f=8&wd=" & _
                           Text1.Text, "", App.Path, 5
End Sub

Answer 2

呵呵 我这样写也可以 Private Sub Command1_Click()
WebBrowser1.Navigate "www.baidu.com/s?wd=" + t.TextEnd Sub不过还是要谢谢你

Answer 3

Shell "rundll32.exe url.dll,FileProtocolHandler http://www.baidu.com/baidu?wd=" & Text1.Text