Mega Code Archive

 
Categories / VB.Net / WPF
 

Expanding Circles

<Page xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"       WindowTitle="Expanding Circles">     <Canvas Width="400" Height="400"           HorizontalAlignment="Center" VerticalAlignment="Center" >         <Path Name="pathInner" Stroke="Red" StrokeThickness="12.5">             <Path.Data>                 <EllipseGeometry x:Name="elips1" Center="200 200" RadiusX="0" RadiusY="0" />             </Path.Data>         </Path>         <Path Stroke="Red" StrokeThickness="12.5">             <Path.Data>                 <GeometryGroup>                     <EllipseGeometry x:Name="elips2" Center="200 200" RadiusX="25" RadiusY="25" />                 </GeometryGroup>             </Path.Data>         </Path>         <Canvas.Triggers>             <EventTrigger RoutedEvent="Canvas.Loaded">                 <BeginStoryboard>                     <Storyboard RepeatBehavior="Forever">                         <DoubleAnimation Storyboard.TargetName="pathInner"                              Storyboard.TargetProperty="StrokeThickness"                              From="0" Duration="0:0:5" />                         <DoubleAnimation Storyboard.TargetName="elips1"                               Storyboard.TargetProperty="RadiusX"                               From="0" To="25" IsAdditive="True"                                Duration="0:0:5" />                         <DoubleAnimation Storyboard.TargetName="elips1"                               Storyboard.TargetProperty="RadiusY"                               From="0" To="25" IsAdditive="True"                                Duration="0:0:5" />                         <DoubleAnimation Storyboard.TargetName="elips2"                               Storyboard.TargetProperty="RadiusX"                               From="0" To="25" IsAdditive="True"                                Duration="0:0:5" />                         <DoubleAnimation Storyboard.TargetName="elips2"                               Storyboard.TargetProperty="RadiusY"                               From="0" To="25" IsAdditive="True"                                Duration="0:0:5" />                     </Storyboard>                 </BeginStoryboard>             </EventTrigger>         </Canvas.Triggers>     </Canvas> </Page>