• Home
 · 
• Internet/HTML
 · 
• Adds a Google web search and image search with the option to turn on and off google safe search.

Adds a Google web search and image search with the option to turn on and off google safe search.

Adds a Google web search and image search with the option to turn on and off google safe search.

API Declarations


'2 option boxes called optWeb and optImages
'1 check box called chkSafeSearch
'1 Command box called cmdSearch
'1 Web Browser Control called WebBrowser1



Rate Adds a Google web search and image search with the option to turn on and off google safe search.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

On Error Resume Next
If optWeb.Value = True And chkSafeSearch.Value = "1" Then
WebBrowser1.Navigate ("http://www.google.co.uk/search?hl=en&safe=on&q=" + (txtSearch.Text) + "&ie=UTF-8&sa=N")
End If
If optWeb.Value = True And chkSafeSearch.Value = "0" Then
WebBrowser1.Navigate ("http://www.google.co.uk/search?hl=en&safe=off&q=" + (txtSearch.Text) + "&ie=UTF-8&sa=N")
End If
If optImages.Value = True And chkSafeSearch.Value = "1" Then
WebBrowser1.Navigate ("http://images.google.co.uk/images?hl=en&safe=on&q=" + (txtSearch.Text) + "&um=1&ie=UTF-8&sa=N&tab=wi")
End If
If optImages.Value = True And chkSafeSearch.Value = "0" Then
WebBrowser1.Navigate ("http://images.google.co.uk/images?hl=en&safe=off&q=" + (txtSearch.Text) + "&um=1&ie=UTF-8&sa=N&tab=wi")
End If
End Sub