In the solutions explorer window, click on the web reference to see the Google web reference that we added earlier. Let's rename it to Google, by right clicking on it and clicking rename:
Create a user interface as shown in the image below. Add the following controls:
- For searching:
txtSearch
- TextBoxlbl_TotalFound
- Labelbtn_Search
- Button - For spell checking:
txt_CheckSpelling
- TextBoxlbl_CorrectSpelling
- Labelbtn_CheckSpelling
– Button
Type the following code into the click event of the Google search button (btn_Search):
Private Sub btn_Search_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn_Search.Click
Dim MyLicenseKey As String
' Variable to Store the License Key
' Declare variable for the Google search service
Dim MyService As Google.GoogleSearchService = New _
Google.GoogleSearchService()
' Declare variable for the Google Search Result
Dim MyResult As Google.GoogleSearchResult
' Please Type your license key here
MyLicenseKey = "tGCTJkYos3YItLYzI9Hg5quBRY8bGqiM"
' Execute Google search on the text enter and license key
MyResult = MyService.doGoogleSearch(MyLicenseKey, _
txtSearch.Text, 0, 1, False, "", False, "", "", "")
' output the total Results found
lbl_TotalFound.Text = "Total Found : " & _
CStr(MyResult.estimatedTotalResultsCount)
End Sub
Type the following code into the click event of the check spelling button (btn_CheckSpelling):
Private Sub btn_CheckSpelling_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn_CheckSpelling.Click
Dim MyLicenseKey
As String ' Variable to Store the License Key
' Declare variable for the Google search service
Dim MyService As Google.GoogleSearchService = New _
Google.GoogleSearchService()
' Declare variable for the Google Search Result
Dim MyResult As String
' Please Type your license key here
MyLicenseKey = "tGCTJkYos3YItLYzI9Hg5quBRY8bGqiM"
' Execute Google search on the text enter and license key
MyResult = MyService.doSpellingSuggestion(MyLicenseKey, _
txt_CheckSpelling.Text)
' output the Results
lbl_CorrectSpelling.Text = "Did you Mean : " & MyResult
End Sub
Now that we have finished coding our application, run the application and type some text into the search box and click on the google search button to see number of results found. Also test out the Google spell check. And there you have it! Our web service is working as planned, and only with the implementation of a couple of lines of code!
Comments