JcmSoft - VB.NET   Usando a barra de status - StatusBar

A barra de status - StatusBar - é um controle usado para exibir o status de alguma funcionalidade de sua aplicação (hora, nome do usuário, etc..). Para usar o controle basta incluir o componente a partir da barra de ferramentas. A partir dai podemos incluir quantos painéis (panels) quisermos através da propriedade Panels clicando em Collection, conforme figura a seguir:

Para fazer o mesmo via código é só seguir o roteiro abaixo :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.StatusBar1 = New StatusBar()

StatusBar1.ShowPanels = True

Me.StatusBar1.Location = New System.Drawing.Point(0, 253)

Me.StatusBar1.Name = "statusbar1"

Me.StatusBar1.Size = New System.Drawing.Size(408, 22)

Me.StatusBar1.TabIndex = 0

Me.StatusBar1.Text = "statusbar1"

Dim painel1 As New StatusBarPanel()

Dim painel2 As New StatusBarPanel()

 

painel1.Text = "Painel 1"

painel1.Width = 34

painel1.AutoSize = StatusBarPanelAutoSize.Spring

Dim icon As New Icon("d:\icons\girl32.ico")

 

painel1.Icon = icon

painel2.Text = DateTime.Now.ToString

 

StatusBar1.Panels.AddRange(New StatusBarPanel() {painel1, painel2})

End Sub

Até a próxima dica VB .NET...

José Carlos Macoratti