NOTE: This code will only work for the Google Search engine, but can easily be optimized.
This code assumes the following:
You have a form named "frmMain"
You have a WebBrowser Control named "webBrowser"
You have a ToolStrip with a label named "tslSearch", a combobox named "cboSearch" and a button named "btnGo"
The default text values are respectively: "Browse:", "", "&Go"
Now, the idea behind it: This user is able to type in any URL, IP Address, etc into the search bar. However, if the user enters in something along the lines of "google.com" or "www.google.com" and hits the [Space] key, the "SearchMode" is activated.
Now for the coding:
frmMain
We are going to declare a boolean variable "blnSearchMode" and initialize it to false:
Public Class frmMain Dim blnSearchMode As Boolean = False End Class
Now, we are going to code the combobox "cboSearch":
Private Sub cboSearch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboSearch.KeyDown
' If the user presses space, check to see if they are going to search Google.
If e.KeyCode = Keys.Space Then
If cboSearch.Text.Contains("google.com") Then
' If the user entered in "google.com", then enter search mode.
blnSearchMode = True
' Set up the interface to show this:
tslSearch.Text = "Search Google:"
cboSearch.Text = ""
Else
blnSearchMode = False
tslSearch.Text = "Browse:"
End If
End If
End Sub
The above code will detect if the user wants to searh Google. If so, the interface is optimized for searching Google.
Now, the "btnGo" code:
Idea: If the browser is in search mode, we will use the text in cboSearch to search Google, if not, simply pass the cboSearch text as a URL.
If blnSearchMode = True Then
' If the browser is in search mode, search Google.
webBrowser.Navigate("http://www.google.com/search?hl=en&source=hp&q=" & cboSearch.Text & "&aq=f&oq=&aqi=g10")
Else
' If the browser is not in search mode, browse as normal.
webBrowser.Navigate(cboSearch.Text)
End If
End Sub
Now, let's say the user wants to exit "search mode." This is covered below.
Idea: the user deletes all the text from cboSearch. And hits backspace twice to revert to browse mode.
Steps:
Create an integer named intBackSpace below blnSearchMode
Dim blnSearchMode As Boolean = False Dim intBackSpace As Integer = 0
Now, in the cboSearch KeyDown event, add the following:
If e.KeyCode = Keys.Back Then If cboSearch.Text = "" Then intBackSpace += 1 If intBackSpace = 2 Then blnSearchMode = False tslSearch.Text = "Browse:" intBackSpace = 0 End If End If End If
This code works 100%! Developed it as i wrote this tutorial, so I know it works. Hope its useful!






MultiQuote


|