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 メニュー

04.パネルサイズを設定する

UPDATE:2006/06/24 

<< 前のTips  次のTips >>

 

　パネルサイズを設定するには、WidthプロパティまたはAutoSizeプロパティを使用します。

　
サンプル1
'Widthプロパティでの例
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

    'Widthプロパティで幅を設定
    stbPnl1.Width = 100
    stbPnl2.Width = 200
    stbPnl3.Width = 300

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

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


　
サンプル2
'AutoSizeプロパティの例
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

    '=== AutoSizeプロパティで幅を設定 ===
    'ステータスバーのサイズが変更されてもパネルサイズを変更しない(None)
    stbPnl1.AutoSize = StatusBarPanelAutoSize.None
    'パネルの内容に合わせてサイズを設定する
    stbPnl2.AutoSize = StatusBarPanelAutoSize.Contents
    'NoneとContentsで指定された以外の領域幅に自動調整する
    stbPnl3.AutoSize = StatusBarPanelAutoSize.Spring

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

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