xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" x:Class="StatusBarSimple.Window1" Title ="StatusBar">
VerticalAlignment="Bottom" Background="Beige" >
//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 dpanel As New DockPanel() Dim txtb As New TextBlock() txtb.Text = "Printing " dpanel.Children.Add(txtb) Dim printImage As New Image() printImage.Width = 16 printImage.Height = 16 Dim bi As New BitmapImage() bi.BeginInit() bi.UriSource = New Uri("pack://application:,,,/images/print.bmp") bi.EndInit() printImage.Source = bi dpanel.Children.Add(printImage) Dim txtb2 As New TextBlock() txtb2.Text = " 5pgs" dpanel.Children.Add(txtb2) Dim sbi As New StatusBarItem() sbi.Content = dpanel sbi.HorizontalAlignment = HorizontalAlignment.Right Dim ttp As New ToolTip() ttp.Content = "Sent to printer." sbi.ToolTip = (ttp) sbar.Items.Add(sbi) End Sub End Class End Namespace