VB System.NullReferenceException был необработанным кодом пользователя

Question

Вот код:

Private Sub GeckoWebBrowser1_Navigated(sender As Object, e As Gecko.GeckoNavigatedEventArgs) Handles GeckoWebBrowser1.Navigated 
    ToolStripTextBox1.Text = GeckoWebBrowser1.Url.OriginalString 
    **Parent.Text = GeckoWebBrowser1.Site.Name.ToString** 
    ''GeckoWebBrowser1.DocumentTitle.ToString 
    ''GeckoWebBrowser1.Site.Name.ToString() 
End Sub 

Если я запустить программу VB сказать мне System.NullReferenceException было необработанным кодом пользователя на жирной линии.

Answer 1

Хорошо я есть. Я поставил таймер на

Parent.Text = GeckoWebBrowser1.Site.Name.ToString

, потому что приложение не получит название сайта, прежде чем сайт загружен

Answer 2

Попробуйте изменить вам код:

Private Sub GeckoWebBrowser1_Navigated(sender As Object, e As Gecko.GeckoNavigatedEventArgs) Handles GeckoWebBrowser1.Navigated 
    ToolStripTextBox1.Text = GeckoWebBrowser1.Url.OriginalString 
    if GeckoWebBrowser1 isnot nothing AndAlso GeckoWebBrowser1.Site isnot nothing then 
    Parent.Text = GeckoWebBrowser1.Site.Name.ToString 
    ''GeckoWebBrowser1.DocumentTitle.ToString 
    ''GeckoWebBrowser1.Site.Name.ToString() 
    end if 
End Sub