请问如何调用百度来搜索文本框中的内容

吉　发表于：2017-06-13 15:52:35 　

复制

具体是按一个按钮就打开浏览器并百度搜索某个文本框的内容.请教各位大侠如何才能实现呢?

Top

吉发表于：2017-06-13 16:10:04

Private Sub Command0_Click()
Me!Command0.HyperlinkAddress = "http://www.baidu.com/s?wd=" & Text1
End Sub

用上面的方法实现了不知道还有没有更好的方法

Top

仙来发表于：2017-06-14 14:29:34

Dim webAddreess As String
Dim str As String
    Dim Web
    Set Web = CreateObject("InternetExplorer.Application")
    Web.Visible = True
    If IsNull(Me.Text1) Then Exit Sub
    str = Me.Text1
    WebAddress = "https://www.baidu.com/s?ie=utf-8 &wd=" + str

Web.Navigate WebAddress

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

请问如何调用百度来搜索文本框中的内容