Info Archive - Menu - MenuItem に Tag プロパティを作る

Uz Galaxy - Info Archive top

Info Archive Menu - MenuItem に Tag プロパティを作る

なぜか、MenuItem に Tag プロパティがないので、MenuItem を継承したクラスを作成し、そこに Tag プロパティを実行する。

 
    Public Class MyMenuItem
        Inherits MenuItem
        Public Tag As Object
    End Class

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim oMenuItem As MyMenuItem
        oMenuItem = New MyMenuItem
        oMenuItem.Text = "<a href=""""></a>"
        oMenuItem.Tag = "<a href=""""></a>"
        mnuInsertTag.MenuItems.Add(oMenuItem)
        AddHandler oMenuItem.Click, AddressOf mnuInsertTagItem
    End Sub

    Private Sub mnuInsertTagItem(ByVal sender As Object, ByVal e As System.EventArgs)
        txtBody.SelectedText = CType(sender, MyMenuItem).Tag
    End Sub

このページはInfoArchiveで作成されています。