こんにちは!
全てにおいて良い日。
Visual Studio 2017 の VB.Net で WebBrowser コントロールを使用して Google マップを開こうとしています。
これが簡単なコードです。
Private Sub txtSearc_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown If e.KeyCode = Keys.Enter Then Try Dim queryaddress As New System.Text.StringBuilder queryaddress.Append("https://www.google.com/maps?q=") If txtSearch.Text <> "" Then queryaddress.Append(txtSearch.Text + "," & "+") End If browser_.ScriptErrorsSuppressed = True browser_.Navigate(queryaddress.ToString()) Catch ex As Exception Exit Sub End Try End If End Sub
しかし、場所を読み込むと、WebBrowser コントロールに数秒間ページが表示され、その後場所が消え、コントロールに「Google マップを使用するにはブラウザを更新してください」というエラーが表示されます。
もし誰かが私がここでやっていることの重大な間違いを助けてくれたら、感謝します。
ありがとうございます。それでは、お元気で:
ムハンマド・アシム・ムガール
私が試したこと:
Private Sub txtSearc_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSearch.KeyDown If e.KeyCode = Keys.Enter Then Try Dim queryaddress As New System.Text.StringBuilder queryaddress.Append("https://www.google.com/maps?q=") If txtSearch.Text <> "" Then queryaddress.Append(txtSearch.Text + "," & "+") End If browser_.ScriptErrorsSuppressed = True browser_.Navigate(queryaddress.ToString()) Catch ex As Exception Exit Sub End Try End If End Sub
コメント