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 > コントロール > ToolStrip Tips メニュー

04.ドロップダウンボタンを追加する

UPDATE:2007/01/08 

<< 前のTips  次のTips >>

 

　ドロップダウンボタンを使用するとToolStrip上にメニューを表示することが可能となります。
　ToolStripにドロップダウンボタンを追加するには、デザイナ上でToolStripのToolStripDropDownButtonを選択します。


　また、コードでToolStripにボタンを追加するにはToolStripDropDownButtonクラスを使用します。
　手順としては、最初にToolStripDropDownButtonのインスタンスを作成し、表示するテキストやイメージの設定を行います。
　最後にToolStripのItems.Addメソッドで追加します。

下図はサンプルコード実行結果です。

　
サンプル
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '=== ToolStripDropDownButtonに追加する項目の作成　ここから ===
    Dim item As New ToolStripDropDownButton
    item.Text = "ファイル(&F)"

    Dim tsmItem1 As New ToolStripMenuItem
    tsmItem1.Text = "新規作成(&N)..."                           '表示するテキスト
    tsmItem1.Image = New Bitmap("C:\Work\NewDocument.bmp")      '表示するイメージ
    tsmItem1.ImageTransparentColor = Color.Magenta              'イメージの透過色

    Dim tsmItem2 As New ToolStripMenuItem
    tsmItem2.Text = "開く(&O)..."                               '表示するテキスト
    tsmItem2.Image = New Bitmap("C:\Work\XPfolder_Open.bmp")    '表示するイメージ
    tsmItem2.ImageTransparentColor = Color.Magenta              'イメージの透過色

    item.DropDownItems.Add(tsmItem1)
    item.DropDownItems.Add(tsmItem2)
    '=== ToolStripDropDownButtonに追加する項目の作成　ここまで ===

    'イベントの登録
    AddHandler tsmItem1.Click, AddressOf MenuFileNew_Click
    AddHandler tsmItem2.Click, AddressOf MenuFileOpen_Click

    'ToolSripへ追加
    ToolStrip1.Items.Add(item)
End Sub

Private Sub MenuFileNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MessageBox.Show("[新規作成]がクリックされました！！")
End Sub

Private Sub MenuFileOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MessageBox.Show("[開く]がクリックされました！！")
End Sub