XP样式的菜单控件非常方便



Friend Sub Store(ByRef tMI() As tMenuItem, ByVal iMenuCount As Long)

Dim iItem As Long

m_iMenuCount = iMenuCount

If (m_iMenuCount > 0) Then

ReDim m_tMI(1 To m_iMenuCount) As tMenuItem

For iItem = 1 To m_iMenuCount

LSet m_tMI(iItem) = tMI(iItem)

Next iItem

Else

Erase m_tMI

End If

End Sub

Friend Sub Restore(ByRef tMI() As tMenuItem, ByRef iMenuCount As Long)

Dim iItem As Long

iMenuCount = m_iMenuCount

ReDim tMI(1 To m_iMenuCount) As tMenuItem

For iItem = 1 To m_iMenuCount

LSet tMI(iItem) = m_tMI(iItem)

Next iItem



End Sub-XP-style menu control is very convenient Friend Sub Store (ByRef tMI () As tMenuItem, ByVal iMenuCount As Long) Dim iItem As Long m_iMenuCount = iMenuCount If (m_iMenuCount