Кто-нибудь знает, как я могу открыть пользовательский элемент управления Coding4Fun, когда я нажимаю на определенный элемент в своем LongListSelector. Я хочу, чтобы некоторые элементы отображали меня на разные страницы, а также некоторые элементы для открытия пользовательского элемента управления.Open Coding4Fun User Control от LongListSelector
Partial Public Class Station_Chooser
Inherits PhoneApplicationPage
Public Sub New()
InitializeComponent()
Dim source As New List(Of AStations)()
source.Add(New AStations("Aldgate", "Fare zone 1"))
source.Add(New AStations("Aldgate East", "Fare zone 1"))
source.Add(New AStations("Angel", "Fare zone 1"))
source.Add(New AStations("Baker Street", "Fare zone 1"))
source.Add(New AStations("Bank", "Fare zone 1"))
source.Add(New AStations("Barbican", "Fare zone 1"))
source.Add(New AStations("Bayswater", "Fare zone 1"))
source.Add(New AStations("Blackfriars", "Fare zone 1"))
source.Add(New AStations("Bond Street", "Fare zone 1"))
source.Add(New AStations("Borough", "Fare zone 1"))
Dim DataSource As List(Of AlphaKeyGroup(Of AStations)) = AlphaKeyGroup(Of AStations).CreateGroups(source, System.Threading.Thread.CurrentThread.CurrentUICulture, Function(s As AStations)
Return s.Station
End Function, True)
AllStations.ItemsSource = DataSource
End Sub
Public Class AStations
Public Property Station() As String
Get
Return m_Station
End Get
Set(value As String)
m_Station = value
End Set
End Property
Private m_Station As String
Public Property FareZone() As String
Get
Return m_FareZone
End Get
Set(value As String)
m_FareZone = value
End Set
End Property
Private m_FareZone As String
Public Property Link() As String
Get
Return m_Link
End Get
Set(value As String)
m_Link = value
End Set
End Property
Private m_Link As String
Public Sub New(station As String, farezone As String, link As String)
Me.Station = station
Me.FareZone = farezone
Me.Link = link
End Sub
End Class
End Class
ОК. Однако я должен указать, что у меня уже был следующий код на странице: –
Private Sub BakerlooItem_Tap (отправитель как объект, e As Input.GestureEventArgs) Dim element As FrameworkElement = TryCast (отправитель, FrameworkElement) Dim item As Bakerloo = TryCast (element.DataContext, Bakerloo) Dim addressString As String = item.Link Dim pageUri Как Uri = Новый Uri (addressString, UriKind.Relative) NavigationService.Navigate (pageUri) End Sub –
Что я могу сделать для этого кода также включить отображение элементов управления Coding4Fun? –