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
 
 
 
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
 
Eメール(任意)
送信内容
 
便




top of page