wpf 无缝滚动

很早以前有项目就需要文字无缝滚动的效果但无奈当时技术不到位 人也比较懒惰（大概程序猿都是这个样子吧）

此方法并非只文字无缝其实任何内容都可以

    <ScrollViewer Name="scroll_div" Width="240" VerticalAlignment="Center" VerticalScrollBarVisibility="Disabled" HorizontalScrollBarVisibility="Hidden">
        <StackPanel Orientation="Horizontal">
            <TextBlock Name="scroll_begin">并非只可以滚动文字，此标签可以更改为任何控件内容。。</TextBlock>
            <ContentControl Name="scroll_end"/>
        </StackPanel>
    </ScrollViewer>

    WithEvents timer As New System.Windows.Threading.DispatcherTimer
    Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
        Dim xaml As String = System.Windows.Markup.XamlWriter.Save(scroll_begin)
        scroll_end.Content = System.Windows.Markup.XamlReader.Parse(xaml)
        timer.Interval = TimeSpan.FromMilliseconds(10)
        timer.Start()
    End Sub
    Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
        If (scroll_end.ActualWidth - scroll_div.HorizontalOffset <= 0) Then
            scroll_div.ScrollToHorizontalOffset(scroll_div.HorizontalOffset - scroll_begin.ActualWidth)
        Else
            scroll_div.ScrollToHorizontalOffset(scroll_div.HorizontalOffset + 1)
        End If
    End Sub