Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Create a 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.LightBlue, Colors.SlateBlue, 90)       lbl.Content = "ProgressBar with one iteration."       sbar.Items.Add(lbl)       Dim progbar As New ProgressBar()       progbar.IsIndeterminate = False       progbar.Orientation = Orientation.Horizontal       progbar.Width = 150       progbar.Height = 15       Dim duration As New Duration(TimeSpan.FromSeconds(10))       Dim doubleanimation As New DoubleAnimation(100.0, duration)       progbar.BeginAnimation(ProgressBar.ValueProperty, doubleanimation)       sbar.Items.Add(progbar)     End Sub   End Class End Namespace