mytoolstripmenuitem.vb

来自「通版开发平台」· VB 代码 · 共 30 行

Public Class MyToolStripMenuItem
    Inherits ToolStripMenuItem

    Private _menuItem As MyErp.S_MenuItem
    Private _toolItem As MyErp.S_ToolItem



    Public Property ToolItem() As S_ToolItem
        Get
            Return _toolItem
        End Get
        Set(ByVal value As S_ToolItem)
            _toolItem = value
        End Set
    End Property



    Public Property MenuItem() As MyErp.S_MenuItem
        Get
            Return _menuItem
        End Get

        Set(ByVal value As MyErp.S_MenuItem)
            _menuItem = value
        End Set
    End Property
End Class