0

Кто-нибудь знает, как я могу открыть пользовательский элемент управления 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 

ответ

0

Уверен, это «быстрое исправление». Я предполагаю, что AllStations является вашим LongListSelector. Поэтому найдите код для него в XAML.
ИЛИ

Перейти к proprities окна и нажмите на обработчики событий (он имеет значок молнии). Прокрутите вниз до пункта SelectionChanged и дважды щелкните текстовое поле. Он создаст обработчик событий в коде. он будет выглядеть примерно так.

private void AllStations_SelectionChanged(object sender, SelectionChangedEventArgs e) 
    { 
     //your logic 

     } 
    } 

Теперь вы можете справиться с этим событием. Итак, все, что вам нужно сделать, когда вы тестируете на эмуляторе или устройстве, - это просто нажать на элемент.

+0

ОК. Однако я должен указать, что у меня уже был следующий код на странице: –

+0

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 –

+0

Что я могу сделать для этого кода также включить отображение элементов управления Coding4Fun? –