Change the Appearance of a List Item When It's Selected : ListBox Item « Windows Presentation Foundation « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows Presentation Foundation
3. ListBox Item

<Window x:Class="WpfApplication1.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:WpfApplication1="clr-namespace:WpfApplication1;assembly="
    Title="WPF" Height="248" Width="128">
    <Window.Resources>

        <WpfApplication1:Countries x:Key="countries"/>

        <Style TargetType="{x:Type ListBoxItem}">
            <Setter Property="Content" Value="{Binding Path=Name}"/>
            <Setter Property="Margin" Value="20"/>
            <Style.Triggers>
                <Trigger Property="IsSelected" Value="True">
                    <Setter Property="FontWeight" Value="Bold" />
                    <Setter Property="FontSize" Value="14" />
                </Trigger>
            </Style.Triggers>
        </Style>
    </Window.Resources>

    <Grid>
        <ListBox ItemsSource="{Binding Source={StaticResource countries}}"/>
    </Grid>

</Window>
//File:Window.xaml.vb
Imports System.Collections.ObjectModel

Namespace WpfApplication1
  Public Class Country
    Private m_name As String
    Private m_continent As Continent

    Public Sub New(name As String, continent As Continent)
      Me.m_name = name
      Me.m_continent = continent
    End Sub

    Public Property Name() As String
      Get
        Return m_name
      End Get
      Set
        m_name = value
      End Set
    End Property

    Public Property Continent() As Continent
      Get
        Return m_continent
      End Get
      Set
        m_continent = value
      End Set
    End Property

  End Class

  Public Enum Continent
    Europe
    NorthAmerica
  End Enum

  Public Class Countries
    Inherits Collection(Of Country)
    Public Sub New()
      Me.Add(New Country("Great Britan", Continent.Europe))
      Me.Add(New Country("USA", Continent.NorthAmerica))
      Me.Add(New Country("Canada", Continent.NorthAmerica))
    End Sub
  End Class
End Namespace

16.31.ListBox Item
	16.31.1.	ListBox with Image item
	16.31.2.	Use Panel as a ListBoxItem
	16.31.3.	Get Item At Index Position [0]
	16.31.4.	Handles ListBoxItem Selected events for the ListBoxItems in the inner ListBox.
	16.31.5.	Different Font Family and Size for each ListBoxItem
	16.31.6.	List box with text and non-text content in the list box items.
	16.31.7.	List box that uses data binding to populate the list box items.
	16.31.8.	Load the Items in a ListBox Asynchronously
	16.31.9.	Change the Appearance of Alternate Items in a List
	16.31.10.	Change the Appearance of a List Item When It's Selected