Hallo liebe Community,
ich hänge mal wieder an was fest, nämlich funktioniert eine ListBox nicht wie erwartet :S, sie zeigt nämlich gar nichts an außer den leeren Items.
So siehts momentan aus:
XAML:
MainWindow VB:
Link VB:
Seht ihr irgendeinen Fehler?
ich hänge mal wieder an was fest, nämlich funktioniert eine ListBox nicht wie erwartet :S, sie zeigt nämlich gar nichts an außer den leeren Items.
So siehts momentan aus:
XAML:
XML-Quellcode
- <ListBox Name="LinkListBox" ItemsSource="{Binding Path=.}">
- <ListBox.ItemTemplate>
- <DataTemplate>
- <Grid>
- <StackPanel Orientation="Horizontal" >
- <TextBlock Text="{Binding Name}" Foreground="Black"/>
- <TextBlock Text="{Binding Destination}" Foreground="Black"/>
- </StackPanel>
- </Grid>
- </DataTemplate>
- </ListBox.ItemTemplate>
- </ListBox>
MainWindow VB:
VB.NET-Quellcode
- Private _Links As New ObservableCollection(Of LinkViewModel)
- Public Property Links As ObservableCollection(Of LinkViewModel)
- Get
- Return _Links
- End Get
- Set(value As ObservableCollection(Of LinkViewModel))
- _Links = value
- End Set
- End Property
- Public Sub New()
- InitializeComponent()
- For X As Integer = 1 To 50 '20 Links zuweisen (Testweise)
- Me.Links.Add(New LinkViewModel(New Link("Testdestination", "www.testdest.de", "[url='www.testdest.de']Unsere Testdestination[/url]")))
- Next
- LinkListBox.ItemsSource = Me.Links
- End Sub
Link VB:
VB.NET-Quellcode
- Imports System.ComponentModel
- Imports System.Collections.ObjectModel
- Public Class LinkViewModel
- Implements INotifyPropertyChanged
- Private _Link As Link
- Public Property Link() As Link
- Get
- Return _Link
- End Get
- Set(value As Link)
- If value IsNot _Link Then
- _Link = value
- NotifyPropertyChanged("Link")
- End If
- End Set
- End Property
- Public Sub New(link As Link)
- Me.Link = link
- NotifyPropertyChanged("Link")
- End Sub
- Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
- Protected Sub NotifyPropertyChanged(info As String)
- RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
- End Sub
- End Class
- Public Class Link
- Public Property Name As String
- Public Property Destination As String
- Public Property BBCode As String
- Public Property Description As String
- Public Sub New(name As String, destination As String, bbcode As String)
- Me.New(name, destination, bbcode, "")
- End Sub
- Public Sub New(name As String, destination As String, bbcode As String, description As String)
- Me.Name = name
- Me.Destination = destination
- Me.BBCode = bbcode
- Me.Destination = description
- End Sub
- End Class
Seht ihr irgendeinen Fehler?