Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Indeterminate ProgressBar 2

<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 = "Indeterminate ProgressBar."       sbar.Items.Add(lbl)       '<Snippet3>       Dim progbar As New ProgressBar()       progbar.Background = Brushes.Gray       progbar.Foreground = Brushes.Red       progbar.Width = 150       progbar.Height = 15       progbar.IsIndeterminate = True       '</Snippet3>       sbar.Items.Add(progbar)     End Sub   End Class End Namespace