Question

我在覆盆子pi 3上为windows iot核心构建应用程序。这是一个玩台球的记分牌。该应用程序只能与小键盘一起使用。

问题是，当用户按下回车键时我想在页面之间导航，但是几次输入密钥后就不再工作了。

我制作了一个简单的代码，让你看看我的意思。

主页和另外两页。这是测试代码。

主页

Imports Windows.UI.Core

Public NotInheritable Class MainPage
Inherits Page

Public Sub New()
    Me.InitializeComponent()

    AddHandler Window.Current.CoreWindow.KeyUp, AddressOf CoreWindow_KeyUp
End Sub

Protected Overrides Sub OnNavigatedTo(e As NavigationEventArgs)

End Sub


Private Sub CoreWindow_KeyUp(sender As CoreWindow, e As KeyEventArgs)

    Dim Value As String = e.VirtualKey

    'Enter
    If Value = "13" Then
        GotoNext()
    End If

End Sub

Private Sub GotoNext()
    Frame.Navigate(GetType(BlankPage1))
End Sub

End Class

第1页

Imports Windows.UI.Core

Public NotInheritable Class BlankPage1
Inherits Page

Public Sub New()
    Me.InitializeComponent()

    AddHandler Window.Current.CoreWindow.KeyUp, AddressOf CoreWindow_KeyUp
End Sub

Protected Overrides Sub OnNavigatedTo(e As NavigationEventArgs)

End Sub


Private Sub CoreWindow_KeyUp(sender As CoreWindow, e As KeyEventArgs)
    Dim Value As String = e.VirtualKey

    'Enter button
    If Value = "13" Then
        GotoNext()
    End If

End Sub

Private Sub GotoNext()
    Frame.Navigate(GetType(Blankpage2))
End Sub

End Class

第2页

Imports Windows.UI.Core

Public NotInheritable Class BlankPage2
Inherits Page

Public Sub New()
    Me.InitializeComponent()

    AddHandler Window.Current.CoreWindow.KeyUp, AddressOf CoreWindow_KeyUp
End Sub

Protected Overrides Sub OnNavigatedTo(e As NavigationEventArgs)

End Sub


Private Sub CoreWindow_KeyUp(sender As CoreWindow, e As KeyEventArgs)
    'we halen de virtuele waarde van de ingedrukte knop op
    Dim Value As String = e.VirtualKey

    'Enter knop
    If Value = "13" Then
        GotoNext()
    End If

End Sub

Private Sub GotoNext()
    Frame.Navigate(GetType(MainPage))
End Sub

End Class

奇怪的是，如果你输入9次就停止了，我不知道为什么。

页面之间的导航停止工作

0 个答案: