HIRO's.NET

VB.NET, C#, PowerShell Tipsサイト

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS

VB.NET 2003の開発でお困りのことはありませんか？
そんな悩みは当サイトで解決！！

HOME > VB.NET 2003 Tips > コントロール > StatusBar Tips メニュー

02.パネルを追加し、それぞれのパネルにテキストを表示する

UPDATE:2006/06/24 

<< 前のTips  次のTips >>

 

　ステータスバーにパネルを追加するには、Panels.Addメソッドを使用します。追加したパネルを表示するにはShowPanelsプロパティをTrueにします。

　
サンプル1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'ステータスバーにパネルを追加
    StatusBar1.Panels.Add("ここにメッセージを表示")
    StatusBar1.Panels.Add("ホスト名:" & System.Net.Dns.GetHostName)
    StatusBar1.Panels.Add(DateTime.Now.ToShortDateString)

    'パネルを表示する
    StatusBar1.ShowPanels = True
End Sub


　
サンプル2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim stbPnl1 As New StatusBarPanel
    Dim stbPnl2 As New StatusBarPanel
    Dim stbPnl3 As New StatusBarPanel

    '各パネルに表示するテキストを指定
    stbPnl1.Text = "ここにメッセージを表示"
    stbPnl2.Text = "ホスト名:" & System.Net.Dns.GetHostName
    stbPnl3.Text = DateTime.Now.ToShortDateString

    'ステータスバーにパネルを追加
    StatusBar1.Panels.Add(stbPnl1)
    StatusBar1.Panels.Add(stbPnl2)
    StatusBar1.Panels.Add(stbPnl3)

    'パネルを表示する
    StatusBar1.ShowPanels = True
End Sub