TranslateTransform
でテキストをスクロールできますが、アニメーションが終了に近づいたら、もう一度開始したいと思います。ヘビのように:)
これは私が持っているものです:
<StackPanel Orientation="Horizontal" Margin="0,0,0,0">
<StackPanel.RenderTransform>
<TranslateTransform x:Name="transferCurreny" X="-40"/>
</StackPanel.RenderTransform>
<StackPanel.Triggers>
<EventTrigger RoutedEvent="StackPanel.Loaded">
<BeginStoryboard>
<Storyboard>
<DoubleAnimation From="0" To="-900" Duration="00:00:10"
Storyboard.TargetProperty="X"
Storyboard.TargetName="transferCurreny"
RepeatBehavior="Forever"/>
</Storyboard>
</BeginStoryboard>
</EventTrigger>
</StackPanel.Triggers>
<TextBlock FontSize="25" x:Name="txtKron" Margin="10,0,7,0"/>
</StackPanel>
これが私が欲しいものです:
このような何かがトリックを行う必要があります。
Canvas
をStackPanel
に追加するには、2つのTextBlocks
を0の位置に設定し、もう1つをActualWidth
のStackPanel
に設定します。 、テキストの最初のブロックが画面外に出ると、他のブロックが表示されます。
Canvas
を使用した理由は、Canvas
が実際にClipToBounds="false"
をサポートする唯一の要素であるためです。これにより、2番目のTextBlock
が境界外に配置されていても表示されます。 Canvas
自体の
右から左にスクロールする場合は、正しい負の値を取得するためにIValueConverter
も必要です。
また、SizeChanged
にイベントトリガーを追加したので、ウィンドウのサイズが変更された場合、アニメーション値が正しく更新されます。
コード:
namespace WpfApplication9
{
/// <summary>
/// Interaction logic for MainWindow.xaml
/// </summary>
public partial class MainWindow : Window
{
public MainWindow()
{
InitializeComponent();
}
}
public class NegatingConverter : IValueConverter
{
public object Convert(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
{
if (value is double)
{
return -((double)value);
}
return value;
}
public object ConvertBack(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
{
if (value is double)
{
return +(double)value;
}
return value;
}
}
}
Xaml:
<Window x:Class="WpfApplication9.MainWindow"
xmlns="http://schemas.Microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.Microsoft.com/winfx/2006/xaml"
xmlns:local="clr-namespace:WpfApplication9"
Title="MainWindow" Height="83" Width="222" Name="UI" Tag="Tol Level">
<StackPanel Orientation="Horizontal" x:Name="stack">
<StackPanel.Resources>
<local:NegatingConverter x:Key="NegatingConverter" />
<Storyboard x:Key="slide">
<DoubleAnimation From="0" To="{Binding Width, ElementName=canvas, Converter={StaticResource NegatingConverter}}" Duration="00:00:10"
Storyboard.TargetProperty="X"
Storyboard.TargetName="transferCurreny"
RepeatBehavior="Forever"/>
</Storyboard>
</StackPanel.Resources>
<StackPanel.RenderTransform>
<TranslateTransform x:Name="transferCurreny" X="0"/>
</StackPanel.RenderTransform>
<StackPanel.Triggers>
<EventTrigger RoutedEvent="StackPanel.Loaded">
<BeginStoryboard Storyboard="{StaticResource slide}" />
</EventTrigger>
<EventTrigger RoutedEvent="StackPanel.SizeChanged">
<BeginStoryboard Storyboard="{StaticResource slide}" />
</EventTrigger>
</StackPanel.Triggers>
<Canvas x:Name="canvas" Width="{Binding ActualWidth, ElementName=stack}">
<TextBlock Text="StackOverflow" FontSize="25" x:Name="txtKron" Canvas.Left="0"/>
<TextBlock Text="{Binding Text, ElementName=txtKron}" FontSize="25" Canvas.Left="{Binding Width, ElementName=canvas}"/>
</Canvas>
</StackPanel>
</Window>
結果:
編集:左から右
<StackPanel Orientation="Horizontal" x:Name="stack">
<StackPanel.Resources>
<local:NegatingConverter x:Key="NegatingConverter" />
<Storyboard x:Key="slide">
<DoubleAnimation From="0" To="{Binding Width, ElementName=canvas}" Duration="00:00:10"
Storyboard.TargetProperty="X"
Storyboard.TargetName="transferCurreny"
RepeatBehavior="Forever"/>
</Storyboard>
</StackPanel.Resources>
<StackPanel.RenderTransform>
<TranslateTransform x:Name="transferCurreny" X="0"/>
</StackPanel.RenderTransform>
<StackPanel.Triggers>
<EventTrigger RoutedEvent="StackPanel.Loaded">
<BeginStoryboard Storyboard="{StaticResource slide}" />
</EventTrigger>
<EventTrigger RoutedEvent="StackPanel.SizeChanged">
<BeginStoryboard Storyboard="{StaticResource slide}" />
</EventTrigger>
</StackPanel.Triggers>
<Canvas x:Name="canvas" Width="{Binding ActualWidth, ElementName=stack}">
<TextBlock Text="StackOverflow" FontSize="25" x:Name="txtKron" Canvas.Left="0"/>
<TextBlock Text="{Binding Text, ElementName=txtKron}" FontSize="25" Canvas.Left="{Binding Width, ElementName=canvas, Converter={StaticResource NegatingConverter}}"/>
</Canvas>
</StackPanel>
上記の回答のコードは、連続スクロールを生成しません。これが連続スムーズスクロールのコードです。
XAML:
<Window x:Class="Window1"
xmlns="http://schemas.Microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.Microsoft.com/winfx/2006/xaml"
Title="Window1" Height="300" Width="300">
<Grid>
<Canvas Margin="6,83,9,0" Name="ViewingBox" Background="YellowGreen" Height="35" VerticalAlignment="Top">
<Label Canvas.Left="263" Canvas.Top="-2" Height="49" Name="BoxOne" FontSize="20">I need breakfast.</Label>
<Label Canvas.Left="263" Canvas.Top="-2" Height="49" HorizontalAlignment="Stretch" Name="BoxTwo" VerticalAlignment="Top" FontSize="20">You can have oranges and Egg.</Label>
</Canvas>
</Grid>
</Window>
背後にあるVBコード:
Imports System.Windows.Media.Animation
Public Enum Texts
BoxOne
BoxTwo
End Enum
Class Window1
Private dubAnim As New DoubleAnimation()
Private dubAnim2 As New DoubleAnimation()
Private NewsTimer As New Windows.Threading.DispatcherTimer()
Dim leadText As Texts = Texts.BoxOne
Private Sub Window1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
dubAnim.From = ViewingBox.ActualWidth
dubAnim.To = -BoxOne.ActualWidth
dubAnim.SpeedRatio = 0.05
AddHandler dubAnim.Completed, AddressOf dubAnim_Completed
Timeline.SetDesiredFrameRate(dubAnim, 320)
BoxOne.BeginAnimation(Canvas.LeftProperty, dubAnim)
dubAnim2.From = ViewingBox.ActualWidth
dubAnim2.To = -BoxTwo.ActualWidth
dubAnim2.SpeedRatio = 0.05
Timeline.SetDesiredFrameRate(dubAnim2, 320)
AddHandler dubAnim2.Completed, AddressOf dubAnim2_Completed
AddHandler NewsTimer.Tick, AddressOf NewsTimer_Tick
NewsTimer.Interval = New TimeSpan(0, 0, 0.9)
NewsTimer.Start()
End Sub
Private Sub NewsTimer_Tick(ByVal sender As Object, ByVal e As EventArgs)
Dim BoxOneLocation As Point = BoxOne.TranslatePoint(New Point(0, 0), ViewingBox)
Dim BoxTwoLocation As Point = BoxTwo.TranslatePoint(New Point(0, 0), ViewingBox)
If leadText = Texts.BoxOne Then
Dim loc As Double = BoxOneLocation.X + BoxOne.ActualWidth
If loc < ViewingBox.ActualWidth / 1.5 Then
BoxTwo.BeginAnimation(Canvas.LeftProperty, dubAnim2)
NewsTimer.Stop()
End If
Else
Dim loc As Double = BoxTwoLocation.X + BoxTwo.ActualWidth
If loc < ViewingBox.ActualWidth / 1.5 Then
BoxOne.BeginAnimation(Canvas.LeftProperty, dubAnim)
NewsTimer.Stop()
End If
End If
End Sub
Private Sub dubAnim_Completed(ByVal sender As Object, ByVal e As EventArgs)
leadText = Texts.BoxTwo
NewsTimer.Start()
End Sub
Private Sub dubAnim2_Completed(ByVal sender As Object, ByVal e As EventArgs)
leadText = Texts.BoxOne
NewsTimer.Start()
End Sub
End Class
サダム213の答え を拡張すると、これは最初のアニメーションの詩です(右から左)。これは長い文字列で機能します。 :)
<StackPanel Orientation="Horizontal"
x:Name="stack"
Grid.Column="0"
Margin="0" >
<StackPanel.Resources>
<local1:NegatingConverter x:Key="NegatingConverter" />
<Storyboard x:Key="slide">
<DoubleAnimation From="{Binding ActualWidth, ElementName=stack}"
To="{Binding ActualWidth, ElementName=txtKron, Converter={StaticResource NegatingConverter}}"
Duration="00:00:30"
Storyboard.TargetProperty="X"
Storyboard.TargetName="transferCurreny2"
RepeatBehavior="Forever"/>
</Storyboard>
</StackPanel.Resources>
<Label Content="{Binding Path=RSSFeed}"
x:Name="txtKron"
Canvas.Left="0"
Foreground="#E9D460"
Padding="0"
Margin="0"
VerticalAlignment="Center">
<Label.Triggers>
<EventTrigger RoutedEvent="Label.Loaded">
<BeginStoryboard Storyboard="{StaticResource slide}"/>
</EventTrigger>
<EventTrigger RoutedEvent="Label.SizeChanged">
<BeginStoryboard Storyboard="{StaticResource slide}"/>
</EventTrigger>
</Label.Triggers>
<Label.RenderTransform>
<TranslateTransform x:Name="transferCurreny2" X="0"/>
</Label.RenderTransform>
</Label>
</StackPanel>