<Window Background="cornsilk"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="ListBox_Index.Window1">
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition/>
<ColumnDefinition/>
</Grid.ColumnDefinitions>
<Grid.RowDefinitions>
<RowDefinition/>
<RowDefinition/>
<RowDefinition/>
<RowDefinition/>
<RowDefinition/>
<RowDefinition/>
<RowDefinition/>
</Grid.RowDefinitions>
<Grid.Resources>
<Style TargetType="Separator">
<Setter Property="Template">
<Setter.Value>
<ControlTemplate TargetType="{x:Type Separator}">
<Border Width="2" Height="12" Margin="4" Background="Gray"/>
</ControlTemplate>
</Setter.Value>
</Setter>
</Style>
<Style TargetType="ListBox">
<Setter Property="ItemsPanel">
<Setter.Value>
<ItemsPanelTemplate>
<StackPanel Orientation="Horizontal"
VerticalAlignment="Center"
HorizontalAlignment="Center"/>
</ItemsPanelTemplate>
</Setter.Value>
</Setter>
</Style>
</Grid.Resources>
<ListBox Name="lb" Margin="10" Height="50" Grid.Column="0" Grid.Row="2" Grid.RowSpan="2" SelectionChanged="PrintText">
<ListBoxItem>Item 1</ListBoxItem>
<Separator/>
<ListBoxItem>Item 2</ListBoxItem>
<Separator/>
<ListBoxItem>Item 3</ListBoxItem>
<Separator/>
<ListBoxItem>Item 4</ListBoxItem>
<Separator/>
<ListBoxItem>Item 5</ListBoxItem>
<Separator/>
<ListBoxItem>Item 6</ListBoxItem>
<Separator/>
<ListBoxItem>Item 7</ListBoxItem>
<Separator/>
<ListBoxItem>Item 8</ListBoxItem>
<Separator/>
<ListBoxItem>Item 9</ListBoxItem>
<Separator/>
<ListBoxItem>Item 10</ListBoxItem>
</ListBox>
<Label Margin="10, 10, 3, 3" Name="label1" Grid.Column="0" Grid.Row="5"/>
</Grid>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.ComponentModel
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports System.Windows.Data
Namespace ListBox_Index
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub PrintText(sender As Object, args As SelectionChangedEventArgs)
Dim lbi As ListBoxItem = TryCast(TryCast(sender, ListBox).SelectedItem, ListBoxItem)
If lbi Is Nothing Then
Return
End If
label1.Content = "You chose " & lbi.Content.ToString() & "."
End Sub
End Class
End Namespace
|