I have gen'ed up a sample (in VB) that shows how (with lots of implementation to be done).
UserControl XAML
<UserControl x:Class="StoryBarUC"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
mc:Ignorable="d"
d:DesignHeight="50" d:DesignWidth="400">
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition Width="50"></ColumnDefinition>
<ColumnDefinition></ColumnDefinition>
<ColumnDefinition Width="50"></ColumnDefinition>
</Grid.ColumnDefinitions>
<Button x:Name="LeftButton" Click="LeftButton_Click">Left</Button>
<Button x:Name="RightButton" Grid.Column="2" Click="RightButton_Click">Right</Button>
<ListBox x:Name="theItems" ItemsSource="{Binding theItemsList}" Grid.Column="1">
<ListBox.ItemTemplate>
<DataTemplate>
<Button Content="{Binding Title}" Click="Button_Click" Width="50"></Button>
</DataTemplate>
</ListBox.ItemTemplate>
<ListBox.ItemsPanel>
<ItemsPanelTemplate>
<StackPanel Orientation="Horizontal" ></StackPanel>
</ItemsPanelTemplate>
</ListBox.ItemsPanel>
</ListBox>
</Grid>
</UserControl>
UserControl Code Behind:
Imports System.ComponentModel
Public Class StoryBarUC
Implements INotifyPropertyChanged
Private pageSize As Integer = 4
Private currentPage As Integer
Private maxPages As Integer
Private _tempItemsList As List(Of NewsStory)
Public Property tempItemsList() As List(Of NewsStory)
Get
Return _tempItemsList
End Get
Set(ByVal value As List(Of NewsStory))
DataContext = Me
_tempItemsList = value
currentPage = 0
maxPages = tempItemsList.Count / pageSize
moveToDisplay()
RaiseChanged("theItemsList")
End Set
End Property
Private _theItemsList As List(Of NewsStory)
Public Property theItemsList() As List(Of NewsStory)
Get
Return _theItemsList
End Get
Set(ByVal value As List(Of NewsStory))
_theItemsList = value
RaiseChanged("theItemsList")
End Set
End Property
Private Sub moveToDisplay()
Dim skipcount As Integer = pageSize * currentPage
theItemsList = (From story In tempItemsList Select story Skip skipcount Take pageSize).ToList
End Sub
Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
Dim newstor As NewsStory = sender.datacontext
MsgBox(newstor.Link)
End Sub
Private Sub LeftButton_Click(sender As Object, e As RoutedEventArgs)
currentPage -= 1
If currentPage < 0 Then
currentPage = 0
End If
moveToDisplay()
End Sub
Private Sub RightButton_Click(sender As Object, e As RoutedEventArgs)
currentPage += 1
If currentPage > maxPages Then
currentPage = maxPages
End If
moveToDisplay()
End Sub
Private Sub RaiseChanged(p1 As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(p1))
End Sub
Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
End Class
MainWindow(test window) XAML:
<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:local="clr-namespace:StoryBar"
Title="MainWindow" Height="350" Width="525" Loaded="Window_Loaded">
<Grid>
<local:StoryBarUC x:Name="theStoryBar" HorizontalAlignment="Left" Margin="40,98,0,0" VerticalAlignment="Top" Width="400"/>
</Grid>
</Window>
MainWindow Code Behind:
Imports System.ComponentModel
Class MainWindow
Implements INotifyPropertyChanged
Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
Dim temp As New List(Of NewsStory)
For i As Integer = 0 To 25
Dim t As New NewsStory
t.Title = i.ToString
t.Link = "Link to story " + i.ToString
temp.Add(t)
Next
theStoryBar.tempItemsList = temp
DataContext = Me
End Sub
Private Sub RaiseChanged(p1 As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(p1))
End Sub
Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
End Class
Test Class:
Public Class NewsStory
Implements INotifyPropertyChanged
Private _Title As String
Public Property Title() As String
Get
Return _Title
End Get
Set(ByVal value As String)
_Title = value
RaiseChanged("Title")
End Set
End Property
Private _Link As String
Public Property Link() As String
Get
Return _Link
End Get
Set(ByVal value As String)
_Link = value
RaiseChanged("Link")
End Set
End Property
Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
Private Sub RaiseChanged(p1 As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(p1))
End Sub
End Class
Lloyd Sheen
How to adjust C# scrollbar
