Change the Appearance of Alternate Items in a List

    
<Window x:Class="WpfApplication1.Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="clr-namespace:WpfApplication1;assembly="
    Title="WPF" Height="248" Width="128">
    <Window.Resources>
        <local:Countries x:Key="countries"/>
        <Style x:Key="AlternateStyle">
            <Setter Property="ListBoxItem.Background" Value="LightGray"/>
        </Style>
    </Window.Resources>
    <Grid>
        <ListBox DisplayMemberPath="Name" ItemsSource="{Binding Source={StaticResource countries}}" >
            <ListBox.ItemContainerStyleSelector>
                <local:AlternatingRowStyleSelector AlternateStyle="{StaticResource AlternateStyle}" />
            </ListBox.ItemContainerStyleSelector>
        </ListBox>
    </Grid>
</Window>
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls
Imports System.Collections.ObjectModel
Namespace WpfApplication1
  Public Class AlternatingRowStyleSelector
    Inherits StyleSelector
    Public Property DefaultStyle() As Style
      Get
        Return m_DefaultStyle
      End Get
      Set
        m_DefaultStyle = Value
      End Set
    End Property
    Private m_DefaultStyle As Style

    Public Property AlternateStyle() As Style
      Get
        Return m_AlternateStyle
      End Get
      Set
        m_AlternateStyle = Value
      End Set
    End Property
    Private m_AlternateStyle As Style

    Private isAlternate As Boolean = False

    Public Overrides Function SelectStyle(item As Object, container As DependencyObject) As Style
      Dim style As Style = If(isAlternate, AlternateStyle, DefaultStyle)

      isAlternate = Not isAlternate

      Return style
    End Function
  End Class

  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

Related examples in the same category

1.	External ListBox style
2.	Define ListBox template
3.	Set selected index for ListBox
4.	Bind String Array Resource to ListBox
5.	ListBox Selected Index, Item, Value
6.	ListBox and SelectionMode
7.	ListView using GridView.HeaderTemplate and GridViewColumn.CellTemplate properties
8.	Load the Items in a ListBox Asynchronously
9.	Change the Appearance of a List Item When It's Selected
10.	Use Data Templates to Display Bound Data
11.	CheckBox List
12.	Convert the contents of a ListBoxItem to an instance of GridLength by using GridLengthConverter
13.	Use the FontSizeConverter class to convert the content of a ListBoxItem to a value that represents the size of a font.
14.	ListBox SelectionChanged Event
15.	ListBox SelectionMode=Single
16.	Get Selected Item from ListBox
17.	ListBox selection changed event
18.	Different Font Family and Size for each ListBoxItem
19.	Handles ListBoxItem Selected events for the ListBoxItems in the inner ListBox.
20.	Use Panel as a ListBoxItem
21.	Create a ListBoxItem, set font, content, add the ListBoxItem to the ListBox
22.	Select All ListBox Items
23.	Create a style that will produce a horizontal ListBox.
24.	Convert contents of a ListBoxItem to an instance of Thickness by using the ThicknessConverter
25.	DataTrigger, ListBox and user object
26.	Add selected file to ListBox
27.	ListBox with Image item
28.	Get selecte item from ListBox
29.	List box with text and non-text content in the list box items.
30.	This list box allows multiple user selections.
31.	List box that uses data binding to populate the list box items.
32.	This list box allows items to be selected in groups by using the SHIFT key and mouse or the CTRL key and space key.
33.	Get selected item count from Listbox
34.	Change Height
35.	Change MinHeight
36.	View and Select Items Using a List
37.	Set text to TextBlock for selected list item
38.	Iterate through the selected items and remove each one
39.	Ensure there is at least one item selected
40.	Select All and unselect all
41.	Get Item At Index Position [0]

Change the Appearance of Alternate Items in a List : ListBox « Windows Presentation Foundation « VB.Net

Related examples in the same category