Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Add TextBlock to Statusbar

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     x:Class="StatusBarSimple.Window1"     Title ="StatusBar">   <Window.Resources>     <Style x:Key="StatusBarSeparatorStyle" TargetType="Separator">       <Setter Property="Background" Value="LightBlue" />       <Setter Property="Control.Width" Value="1"/>       <Setter Property="Control.Height" Value="20"/>     </Style>       </Window.Resources>         <StatusBar Name="sbar" Grid.Column="0" Grid.Row="2" Grid.ColumnSpan="2"                     VerticalAlignment="Bottom" Background="Beige" >               <StatusBarItem>                <TextBlock>Ready</TextBlock>              </StatusBarItem>              <StatusBarItem>                <Separator Style="{StaticResource StatusBarSeparatorStyle}"/>              </StatusBarItem>         </StatusBar> </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 StatusBarSimple   Public Partial Class Window1     Inherits Window     Private Sub MakeProgressBar(sender As Object, e As RoutedEventArgs)       sbar.Items.Clear()       Dim txtb As New TextBlock()       txtb.Text = "Code compiled successfully."       sbar.Items.Add(txtb)       Dim rect As New Rectangle()       rect.Height = 20       rect.Width = 1       rect.Fill = Brushes.LightGray       sbar.Items.Add(rect)     End Sub   End Class End Namespace