Visual Basic 2012 WPF Drehende Text-Animation programmieren SelMcKenzie Selzer-McKenzie

Visual Basic 2012 WPF Drehende Text-Animation programmieren SelMcKenzie Selzer-McKenzie

Author D.Selzer-McKenzie

Video: http://youtu.be/IL52E4lsd_Q

 

 

 

Heute zeige ich Ihnen, wie Sie mit Visual Basic und auch älteren Versionen eine Text-Animation mit drehendem auf- und abfüllendem Text programmierten können. Sehen Sie sich dazu das Video an, auch den Code habe ich abgefilmt. Den Code können Sie auch direkt aus dem Forum

http://www.blogspot.com/Outbackbrumby

herauskopieren.

Hier nun der komplette Source-Code:

  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

  xmlns:SampleControls="SampleControls"

  x:Class="Microsoft.Samples.Animation.AnimationGallery.AnimatedParagraphExample"

  WindowTitle="Text Animation von Selzer-McKenzie SelMcKenzie">

 

   

       

           

               

               

               

           

       

   

 

   

       

           

             

/>

       

 

         

Grid.Column="0" Grid.Row="0"

      BorderThickness="3"

      Margin="10" VerticalAlignment="Center">

           

               

                   

                       

                       

                   

               

           

 

 

           

              

        Name="EingangsTextBox"

        Width="300"

        Foreground="blue"

        TextWrapping="Wrap"

        VerticalAlignment="Center"

        Margin="05" >

               

                    Drehende Text-Box mit Text-Abfüllung und Text-Auffüllung von Selzer-McKenzie SelMcKenzie - Drehende Text-Box mit Text-Abfüllung und Text-Auffüllung von Selzer-McKenzie SelMcKenzie - Drehende Text-Box mit Text-Abfüllung und Text-Auffüllung von Selzer-McKenzie SelMcKenzie -

                

           

       

 

 

       

      BorderThickness="3"

      Margin="10" Background="{StaticResource MyGridBrushResource}">

 

           

               

                   

                       

                       

                   

               

           

 

           

           

        Name="SpecialEffectsTextBlock" 

        VerticalAlignment="Center"

        HorizontalAlignment="Center"

        FontFamily="Segoe UI"

        FontSize="24 pt"    

        TextWrapping="Wrap"

        TextAlignment="Justify"

        Foreground="red"

        Margin="05"

        SizeChanged="textBlockSizeChanged">

       

       

               

                   

               

 

               

                   

            PositionStart="0"

            PositionCount="0">

                       

                            

                x:Name="TextEffectRotateTransform"

                Angle="0" CenterX="200" CenterY="200" />

                       

                   

               

               

                   

                       

                           

 

                               

                                        

                  Storyboard.TargetName="TextEffectRotateTransform"

                  Storyboard.TargetProperty="Angle"

                  From="0" To="360"

                  Duration="0:0:05"

                  RepeatBehavior="Forever" />

 

                               

                               

                  Storyboard.TargetName="RotationTextEffect"

                  Storyboard.TargetProperty="PositionCount"

                  From="0" To="{Binding ElementName=EingangsTextBox, Path=Text.Length}"

                  Duration="0:0:35"

                  RepeatBehavior="Forever"

                  AutoReverse="True" />