使用VB.NET实现 Google Web Service

CStr(MyResult.estimatedTotalResultsCount)

End Sub

请将下列代码输入到拼写检查按钮(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