Uz Galaxy - Info Archive top BBS   RSS
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


Copyright © 2004 Uz. All rights reserved.
http://uzgalaxy.com/
このページはInfoArchiveで作成されています。