8,706
社区成员




Dim pager As New PageNavigator()
Me.RootVisual = pager
Navigator.pager = pager
Navigator.Switch(New Login())
Partial Public Class PageNavigator
Inherits UserControl
Public Sub New
InitializeComponent()
End Sub
Public Sub Navigate(ByVal nextPage As UserControl)
Me.Content = nextPage
End Sub
Public Sub Navigate(ByVal nextPage As UserControl, ByVal state As Object)
Me.Content = nextPage
Dim nav As INavigator = TryCast(nextPage, INavigator)
If nav IsNot Nothing Then
nav.UtilizeState(state)
Else
Throw New ArgumentException("nextPage cannot be found! " & nextPage.Name.ToString())
End If
End Sub
End Class
Public NotInheritable Class Navigator
Public Shared pager As PageNavigator
Private Sub New()
End Sub
Public Shared Sub Switch(ByVal newPage As UserControl)
pager.Navigate(newPage)
End Sub
Public Shared Sub Switch(ByVal newPage As UserControl, ByVal state As Object)
pager.Navigate(newPage, state)
End Sub
End Class
Public Interface INavigator
Sub UtilizeState(ByVal state As Object)
End Interface