Microsoft Visual Basic 2008 Express Edition Конец заявления Ожидаемый

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 

End Class