Dunkel bredd som dubbelt = (ListBox1.ActualWidth/3) - 2
För varje es som Employees_Structure i myEmp
'Skapa ett nytt ListBox objekt för es
Dunkel li som nya ListBoxItem
'Skapa en buntpanel
Dunkel sp som nya StackPanel
sp. Riktning = Orientation.Horizontal
sp.HorizontalAlignment = HorizontalAlignment.Stretch
'Skapa en TextBlock för att förlägga info för en kolonn i ListBox
'en för varje kolonn
Dunkel tb1 som nya TextBlock
tb1.Text = es.LastName
tb1.Width = bredd
Dunkel tb2 som nya TextBlock
tb2.Text = es.FirstName
tb2.Width = bredd
Dunkel tb3 som nya TextBlock
tb3.Text = es. Statligt
tb3.Width = bredd
'Tillfoga textBoxen till buntpanelen
sp. Children.Add (tb1)
sp. Children.Add (tb2)
sp. Children.Add (tb3)
'Tillfoga buntpanelen till lista boxas objektet
li. Tillfredsställa = sp
'Tillfoga lista boxas objektet till lista boxas
ListBox1.Items.Add (li)
Därefter
|