HIRO's.NET

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

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

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

HIRO's.NET RSSHIRO's.NET RSS

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

HOME > VB.NET 2005 Tips > コントロール > StatusStrip Tips メニュー

04.テキスト表示領域のボーダースタイルを変更する

UPDATE:2006/12/21 

<< 前のTips  次のTips >>

 

　テキスト表示領域のボーダースタイルを変更するにはToolStripStatusLabelコントロールのBorderStyleプロパティを使用します。
　通常はボーダーが表示されないようになっていますので、BorderSideプロパティをAllにします。Allは4辺のボーダーを表示します。　

Adjust Bump
Etched Flat
Raised RaisedInner
RaisedOuter Sunken
SunkenInner SunkenOuter

　
サンプル
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'すべての側に境界線が表示されるようにする
    ToolStripStatusLabel1.BorderSides = ToolStripStatusLabelBorderSides.All
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '境界線が指定した四角形の外側に描画され、四角形の大きさは保持されます。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.Adjust
    ToolStripStatusLabel1.Text = "Border3DStyle.Adjust"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    '境界線の内縁と外縁が、浮き出した状態で表示されます。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.Bump
    ToolStripStatusLabel1.Text = "Border3DStyle.Bump"
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    '境界線の内縁と外縁が、くぼんだ状態で表示されます。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.Etched
    ToolStripStatusLabel1.Text = "Border3DStyle.Etched"
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    '境界線に 3D スタイルは適用されません。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.Flat
    ToolStripStatusLabel1.Text = "Border3DStyle.Flat"
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    '境界線の内縁と外縁が、浮き出して表示されます。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.Raised
    ToolStripStatusLabel1.Text = "Border3DStyle.Raised"
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    '境界線の内縁だけが浮き出して表示され、外縁は表示されません。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.RaisedInner
    ToolStripStatusLabel1.Text = "Border3DStyle.RaisedInner"
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    '境界線の外縁だけが浮き出して表示され、内縁は表示されません。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.RaisedOuter
    ToolStripStatusLabel1.Text = "Border3DStyle.RaisedOuter"
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    '境界線の内縁と外縁が、くぼんで表示されます。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.Sunken
    ToolStripStatusLabel1.Text = "Border3DStyle.Sunken"
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    '境界線の内縁だけがくぼんで表示され、外縁は表示されません。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.SunkenInner
    ToolStripStatusLabel1.Text = "Border3DStyle.SunkenInner"
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    '境界線の外縁だけがくぼんで表示され、内縁は表示されません。 
    ToolStripStatusLabel1.BorderStyle = Border3DStyle.SunkenOuter
    ToolStripStatusLabel1.Text = "Border3DStyle.SunkenOuter"
End Sub
 

<< 前のTips  次のTips >>