Different Font Family and Size for each ListBoxItem : 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"
    Title="WPF" Height="300" Width="300">
    <StackPanel>
        <ListBox SelectionChanged="OuterListBox_SelectionChanged" Name="outerListBox">
            <ListBoxItem Content="Item 1" FontFamily="Tahoma" HorizontalContentAlignment="Left" />
            <ListBoxItem Content="Item 2" FontFamily="Algerian" FontSize="16" HorizontalContentAlignment="Center" />
            <ListBoxItem Content="Item 3" FontSize="20" HorizontalContentAlignment="Right" />
            <Button Content="Button directly in a list" Margin="5" />
            <ListBoxItem HorizontalContentAlignment="Center" Margin="5">
                <Button Content="Button wrapped in ListBoxItem" />
            </ListBoxItem>
            <ListBox Height="50" Margin="5">
                <ListBoxItem Content="Inner List Item 1" Selected="InnerListBoxItem_Selected" />
                <ListBoxItem Content="Inner List Item 2" Selected="InnerListBoxItem_Selected" />
                <ListBoxItem Content="Inner List Item 3" Selected="InnerListBoxItem_Selected" />
                <ListBoxItem Content="Inner List Item 4" Selected="InnerListBoxItem_Selected" />
            </ListBox>
            <StackPanel Margin="5" Orientation="Horizontal">
                <Label Content="Enter some text:" />
                <TextBox MinWidth="150" />
            </StackPanel>
        </ListBox>
        <TextBlock Text="No item currently selected." Margin="10" HorizontalAlignment="Center" Name="txtSelectedItem" />
    </StackPanel>
</Window>
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls

Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub

    Private Sub InnerListBoxItem_Selected(sender As Object, e As RoutedEventArgs)
      Dim item As ListBoxItem = TryCast(e.OriginalSource, ListBoxItem)

      If item IsNot Nothing Then
        MessageBox.Show(Convert.ToString(item.Content) & " was selected.", Title)
      End If
    End Sub

    Private Sub OuterListBox_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
      Dim item As Object = outerListBox.SelectedItem

      If item Is Nothing Then
        txtSelectedItem.Text = "No item currently selected."
      Else
        txtSelectedItem.Text = item.ToString()
      End If
    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