Question

我已尝试通过关注YouTube视频测试我制作的网络浏览器。它不起作用。这有什么问题？

这是我的代码

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    WebBrowser1.Navigate("www.google.com")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    WebBrowser1.GoBack()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    WebBrowser1.GoForward()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    WebBrowser1.Navigate(TextBox1.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    WebBrowser1.Navigate("http://www.google.com/search?g=") & (TextBox2.Text)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    WebBrowser1.Stop()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    WebBrowser1.Refresh()
End Sub

End Class

Answer 1

您没有说出错误发生的位置，这使您很难帮助您。但看起来你的问题就在这一行：

WebBrowser1.Navigate("http://www.google.com/search?g=") & (TextBox2.Text)

这应该是

WebBrowser1.Navigate("http://www.google.com/search?g=" & TextBox2.Text)

实际上，你在一条线上有一个表达式;连接毫无意义。

将来，请确保包含Minimal, Complete, and Verifiable example.问题，寻求调试帮助（“为什么这段代码不起作用？”）必须包含所需的行为，特定问题或错误和必要的最短代码在问题本身中重现。没有明确的问题陈述的问题对其他读者没用。

Answer 2

我只是想通了。我收件箱YouTuber，他们回应了。这是正确的代码。

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    WebBrowser1.Navigate("www.google.com")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    WebBrowser1.GoBack()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    WebBrowser1.GoForward()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    WebBrowser1.Navigate(TextBox1.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    WebBrowser1.Navigate("http://www.google.com/search?g=" & TextBox2.Text)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    WebBrowser1.Stop()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    WebBrowser1.Refresh()
End Sub

结束班

预期Microsoft Visual Basic 2008 Express Edition语句结束

2 个答案: