Mega Code Archive

 

Categories / VB.Net / WPF

 

Animation ProgressBar

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     x:Class="ProgBar.Window1"     Title ="ProgressBar"     Width="500">   <StackPanel>     <Button Content="One" Click="MakeOne"/>     <StatusBar Name="sbar" Grid.Column="0" Grid.Row="5" VerticalAlignment="Bottom" Background="Beige" >       <StatusBarItem>         <TextBlock>StatusBar</TextBlock>       </StatusBarItem>     </StatusBar>   </StackPanel> </Window> //File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Controls.Primitives Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Media Imports System.Windows.Media.Animation Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace ProgBar   Public Partial Class Window1     Inherits Window     Private Sub MakeOne(sender As Object, e As RoutedEventArgs)       sbar.Items.Clear()       Dim lbl As New Label()       lbl.Background = New LinearGradientBrush(Colors.Pink, Colors.Red, 90)       lbl.Content = "ProgressBar with three iterations."       sbar.Items.Add(lbl)       Dim progbar As New ProgressBar()       progbar.Background = Brushes.Gray       progbar.Foreground = Brushes.Red       progbar.Width = 150       progbar.Height = 15       Dim duration As New Duration(TimeSpan.FromMilliseconds(2000))       Dim doubleanimation As New DoubleAnimation(100.0, duration)       doubleanimation.RepeatBehavior = New RepeatBehavior(3)       progbar.BeginAnimation(ProgressBar.ValueProperty, doubleanimation)       sbar.Items.Add(progbar)     End Sub   End Class End Namespace