VB2008コントロール使用例：ポップアップメニュー（ContextMenuStrip, ToolStripMenuItem）の使用例

ポップアップメニュー コントロールの使用例サンプルです

コントロールの使用例へ


■ポップアップメニューにサブメニューを追加した時の実行画面
メニュー表示フォーム

メニュー1_2をクリックした時の画面
MsgBoxの表示

■実行コード

Public Class Form1
'ショートカットメニューの作成
Private cms As New ContextMenuStrip
Private menu1 As New ToolStripMenuItem("メニュー1")
Private menu2 As New ToolStripMenuItem("メニュー2")

Private submenu1_1 As New ToolStripMenuItem("メニュー1_1")
Private submenu1_2 As New ToolStripMenuItem("メニュー1_2")

Private Sub Menu2ItemClicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("メニュー2")
End Sub

Private Sub MenuSub1ItemClicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("サブメニュー1")
End Sub

Private Sub MenuSub2ItemClicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("サブメニュー2")
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'メニューに追加
cms.Items.Add(menu1)
cms.Items.Add(menu2)
'メニュークリックのハンドラを設定
AddHandler menu2.Click, New EventHandler(AddressOf Me.Menu2ItemClicked)
'サブメニューの追加
menu1.DropDownItems.Add(submenu1_1)
AddHandler submenu1_1.Click, New EventHandler(AddressOf Me.MenuSub1ItemClicked)
menu1.DropDownItems.Add(submenu1_2)
AddHandler submenu1_2.Click, New EventHandler(AddressOf Me.MenuSub2ItemClicked)

Me.ContextMenuStrip = cms
End Sub
End Class

Visual Basic 2008 Express Edition実践入門