VB.NET Google无法在WebBrowser上加载

时间:2013-09-09 20:50:32

标签: vb.net format browser

enter image description here我正在Vb.net中创建一个webbrowser应用程序。当我去google并搜索某些内容时,格式无法正确加载,并且所有搜索结果都显示在左侧。

代码:

Public Class Form7

Private Sub Form7_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
    Form1.ToolStripMenuItem1.Visible = False
End Sub

Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
    WebBrowser1.Navigate(TextBox1.Text)
    TextBox1.Text = WebBrowser1.Url.ToString
End Sub

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    WebBrowser1.GoBack()
End Sub

Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
    WebBrowser1.GoForward()
End Sub

Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
    TextBox1.Text = "google.com"
    WebBrowser1.Navigate(TextBox1.Text)
End Sub

Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
    WebBrowser1.Refresh()
End Sub

Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    WebBrowser1.ScriptErrorsSuppressed = True
End Sub

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
    If e.KeyCode = Keys.Enter Then
        WebBrowser1.Navigate(TextBox1.Text)
        TextBox1.Text = WebBrowser1.Url.ToString
    End If
End Sub
End Class

0 个答案:

没有答案