Vb.net 获取错误'；事件处理程序&x27'；在类'上找不到''；

我正在构建一个Windows Phone应用程序，并试图让我的应用程序连接到twitter。我已经设置了一个页面，要求用户授权应用程序使用他们的twitter帐户。但是，每当我尝试运行我的程序时，都会出现以下错误：

错误1在类“TheSocialHub.TwitterSetup”C:\Users\charlie stuart\Desktop\Windows Phone Project\TheSocialHub\TheSocialHub\TwitterSetup.xaml TheSocialHub上找不到事件处理程序“loginBrowserControl\u Navigated”

下面是我正在使用的代码

XAML：

---

VB.NET代码文件中缺少事件声明

只需在代码中添加这些声明并检查

Private Sub loginBrowserControl_Navigating(sender As Object, e As NavigatingEventArgs)

End Sub

Private Sub loginBrowserControl_Navigated(sender As Object, e As NavigationEventArgs)

End Sub

---

你需要在你的代码中有一个loginBrowserControl\u Navigated方法…但是我已经有了私有的子用户LoggeDin（）来处理loginBrowserControl。Navigated，loginBrowserControl。在我的代码中导航？检查是否用我给出的代码替换以前的代码。

Imports Hammock.Web
Imports System.IO
Imports Hammock
Imports System.Text
Imports Hammock.Authentication.OAuth

Partial Public Class TwitterSetup
Inherits PhoneApplicationPage

Dim OAuthTokenKey As String = String.Empty
Dim tokenSecret As String = String.Empty
Dim accessToken As String = String.Empty
Dim accessTokenSecret As String = String.Empty
Dim userID As String = String.Empty
Dim userScreenName As String = String.Empty


Public Sub New()
    InitializeComponent()
    If isAlreadyLoggedIn() Then
        userLoggedIn()
    End If
End Sub

Private Function isAlreadyLoggedIn() As [Boolean]
    accessToken = MainUtil.MainUtil.GetKeyValue(Of String)("AccessToken")
    accessTokenSecret = MainUtil.MainUtil.GetKeyValue(Of String)("AccessTokenSecret")
    userScreenName = MainUtil.MainUtil.GetKeyValue(Of String)("ScreenName")

    If String.IsNullOrEmpty(accessToken) OrElse String.IsNullOrEmpty(accessTokenSecret) Then
        Return False
    Else
        Return True
    End If
End Function

Private Sub userLoggedIn() Handles loginBrowserControl.Navigated, loginBrowserControl.Navigating
    Dispatcher.BeginInvoke(Function()
                               Dim SignInMenuItem = DirectCast(Me.ApplicationBar.MenuItems(0), Microsoft.Phone.Shell.ApplicationBarMenuItem)
                               SignInMenuItem.IsEnabled = False

                               Dim SignOutMenuItem = DirectCast(Me.ApplicationBar.MenuItems(1), Microsoft.Phone.Shell.ApplicationBarMenuItem)
                               SignOutMenuItem.IsEnabled = True

                               TweetPanel.Visibility = System.Windows.Visibility.Visible
                               txtUserName.Text = "Welcome " & userScreenName

                           End Function)
End Sub

End Class

Private Sub loginBrowserControl_Navigating(sender As Object, e As NavigatingEventArgs)

End Sub

Private Sub loginBrowserControl_Navigated(sender As Object, e As NavigationEventArgs)

End Sub