MRU list

Option Explicit

Const ID_FILE_EXIT = 1051

Const ID_FILE_MRU_1 = 40001
Const ID_FILE_MRU_2 = 40002
Const ID_FILE_MRU_3 = 40003
Const ID_FILE_MRU_4 = 40004

Public m_cMRU As New cMRUFileList

Private Sub Form_Load()
Dim Item As CommandBarAction
    
    CommandBars1.EnableActions
    
    With CommandBars1.Actions
        ' MRU
        Set Item = .Add(ID_FILE_MRU_1, "&1)", "1)", "", "File")
        Set Item = .Add(ID_FILE_MRU_2, "&2)", "2)", "", "File")
        Set Item = .Add(ID_FILE_MRU_3, "&3)", "3)", "", "File")
        Set Item = .Add(ID_FILE_MRU_4, "&4)", "4)", "", "File")
        ' EXIT
        .Add ID_FILE_EXIT, "Exit", "", "", "File"
    End With

    Dim ControlFile As CommandBarPopup
    
    Set ControlFile = CommandBars1.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&File", -1, False)
    With ControlFile.CommandBar
        ' MRU Group
        .Controls.Add xtpControlButton, ID_FILE_MRU_1, ""
        .Controls(.Controls.Count).BeginGroup = True
        .Controls.Add xtpControlButton, ID_FILE_MRU_2, ""
        .Controls.Add xtpControlButton, ID_FILE_MRU_3, ""
        .Controls.Add xtpControlButton, ID_FILE_MRU_4, ""
        '
        .Controls.Add xtpControlButton, ID_FILE_EXIT, ""
        .Controls(.Controls.Count).BeginGroup = True
    End With

    ' Most Recently Used
    m_cMRU.MaxFileCount = 4
    m_cMRU.Load "MyApp", "MySection"
    Call pDisplayMRU


End Sub

Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
Dim i As Integer
Dim strS As String
    
    Select Case Control.Id
        ' ...
        Case ID_FILE_MRU_1 To ID_FILE_MRU_4
            Call LoadDocument(m_cMRU.file(CLng(Control.Id - ID_FILE_MRU_1 + 1)))
        
        Case ID_FILE_EXIT:
            Unload Me
        ' ...
    End Select

End Sub

Private Sub Command1_Click()
    LoadDocument ("File1")
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        
    m_cMRU.Save "MyApp", "MySection"

End Sub

Public Sub pDisplayMRU()
Dim iFile As Integer
Dim Item As CommandBarControl
    
    For iFile = 1 To m_cMRU.MaxFileCount
        Set Item = CommandBars1.FindControl(, ID_FILE_MRU_1 + (iFile - 1), , True)
        If Not (Item Is Nothing) Then
            If (iFile <= m_cMRU.FileCount) And (m_cMRU.FileExists(iFile)) Then
                Item.Visible = True
                Item.Caption = m_cMRU.MenuCaption(iFile)
                Item.DescriptionText = m_cMRU.file(iFile)
                If iFile = 1 Then
                    Item.Checked = True
                End If
            Else
                Item.Visible = False
            End If
        End If
    Next iFile
    
End Sub


Private Sub LoadDocument(fname As String)

    m_cMRU.AddFile fname
    
'    If FileExists Then
'        m_cMRU.AddFile fname
'    Else
'        m_cMRU.RemoveFile fname
'    End If
    
    pDisplayMRU
    
End Sub

Private Sub SaveDocument(fname As String)
    
    m_cMRU.AddFile fname
    pDisplayMRU

End Sub