2013-05-30 5 views
0

этот код, показывающий, если google.com не открыт, то открыт yahoo.com означает, если первый сайт не работает, то 2-й сайт открыт автоматическипоказывает ошибки в коде Visual Studio

, но я не знаю, что это проблема в что визуальная студия показывает ошибку

Конец заявления ожидаемого

может кто-нибудь сказать мне, как я могу решить эту проблему пожалуйста, помогите мне решить эту проблему благодаря

это мой полный код

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     try webbrowser1.navigate("www.google.com") 
     catch ex As exception webbrowser1.navigate("www.yahoo.com") 
     End Try 


    End Sub 


    Private Sub Back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Back.Click 
     WebBrowser1.GoBack() 

    End Sub 

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


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
     WebBrowser1.Stop() 
    End Sub 


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
     WebBrowser1.GoHome() 
    End Sub 

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

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) 

    End Sub 

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click 

    End Sub 

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click 

    End Sub 

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click 
     Application.Exit() 

    End Sub 

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged 

    End Sub 

    Private Sub WebBrowser1_DocumentCompleted_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 

    End Sub 

End Class 

ответ

1

Вы должны поставить возврат каретки после Try:

Try 
     webbrowser1.navigate("www.google.com") 
    Catch ex As Exception 
     webbrowser1.navigate("www.yahoo.com") 
    End Try 
+0

не работает дорогой – user2398939

Смежные вопросы