Stdクラス AddInMenuAddRemoveメソッド
ToolStripMenuに追加したユーザー作成のコントロールを削除します。
使用法
Dim instance As Std = New Std()
instance.AddInMenuRemove()
使用例
'Stdクラス AddInMenuRemoveプロパティ
Imports System.Windows.Forms
Public Class AddIn
Private std As Std
Private tsbAdd As ToolStripButton
Private tsbRem As ToolStripButton
Private tsl As ToolStripLabel
Public Sub New()
std = New Std()
End Sub
Public Sub AddIn_Start()
tsbuttonAdd()
tsbuttonRem()
tss()
AddHandler tsbAdd.Click, AddressOf tsbAdd_Click
AddHandler tsbRem.Click, AddressOf tsbRem_Click
End Sub
'''
''' Addと言う名前のボタンを追加します。
'''
Private Sub tsbuttonAdd()
tsbAdd = New ToolStripButton("Add")
std.AddInMenuAddOnce(tsbAdd)
End Sub
'''
''' Remと言う名前のボタンを追加します。
'''
Private Sub tsbuttonRem()
tsbRem = New ToolStripButton("Rem")
std.AddInMenuAddOnce(tsbRem)
End Sub
'''
''' セパレーターを追加します。
'''
Private Sub tss()
Dim tss As ToolStripSeparator = New ToolStripSeparator()
tss.AutoSize = True
std.AddInMenuAddOnce(tss)
End Sub
'''
''' メニューにラベルを追加します。
'''
Private Sub tsbAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
tsl = New ToolStripLabel
tsl.Text = "ラベル"
std.AddInMenuAdd(tsl)
End Sub
'''
''' ユーザーメニューを全て削除します。
'''
Private Sub tsbRem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
RemoveHandler tsbAdd.Click, AddressOf tsbAdd_Click
RemoveHandler tsbRem.Click, AddressOf tsbRem_Click
std.AddInMenuRemove()
End Sub
End Class