Codejock Developer Community : Recent documents

Recent documents : You really should give all of...

Sat, 22 Jan 2011 11:33:49 +0000

Author: jpbro
Subject: 17777
Posted: 22 January 2011 at 11:33am

You really should give all of your items a unique ID, as it does make things easier - but assuming that you are keeping track of the recent file names, you can remove them by Caption. Here's an example based on my previous example:


Option Explicit

Private mo_SysBtn As XtremeCommandBars.CommandBarPopup

Private Sub Command1_Click()
   Dim lo_Control As CommandBarControl

   Set lo_Control = Me.CommandBars1.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
   With lo_Control
      .Caption = "Not a Recent File"
      .Id = 1003
   End With
   mo_SysBtn.CommandBar.Controls.AddControl lo_Control


   Set lo_Control = Me.CommandBars1.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
   With lo_Control
      .Caption = "Test 1"
      .Id = 1004
   End With
   mo_SysBtn.CommandBar.Controls.AddControl lo_Control
   
   Set lo_Control = Me.CommandBars1.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
   With lo_Control
      .Caption = "Test 2"
      .Id = 1004
   End With
   mo_SysBtn.CommandBar.Controls.AddControl lo_Control
   
   Set lo_Control = Me.CommandBars1.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
   With lo_Control
      .Caption = "Test 3"
      .Id = 1004
   End With
   mo_SysBtn.CommandBar.Controls.AddControl lo_Control
   
   Set lo_Control = Me.CommandBars1.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
   With lo_Control
      .Caption = "Test 4"
      .Id = 1004
   End With
   mo_SysBtn.CommandBar.Controls.AddControl lo_Control
   
   Set lo_Control = Me.CommandBars1.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
   With lo_Control
      .Caption = "Not a Recent File"
      .Id = 1005
   End With
   mo_SysBtn.CommandBar.Controls.AddControl lo_Control
End Sub

Private Sub Command2_Click()
   Dim i As Long
   
   Dim lo_Ctrl As CommandBarControl
   
   For i = mo_SysBtn.CommandBar.Controls.Count To 1 Step -1
      Set lo_Ctrl = mo_SysBtn.CommandBar.Controls.Item(i)
      If lo_Ctrl.Id = 1004 Then
         If lo_Ctrl.Caption = "Test 3" Then
            lo_Ctrl.Delete
         End If
      End If
   Next i
End Sub

Private Sub Form_Load()
   With Me.CommandBars1
      .EnableOffice2007Frame True
      
      With .AddRibbonBar("Main")
         Set mo_SysBtn = .AddSystemButton
         mo_SysBtn.Caption = "&File"
      End With
      
   End With
End Sub

Recent documents : Hey Mark, Thanks for your reply. All...

Sat, 22 Jan 2011 04:32:50 +0000

Author: JvdH
Subject: 17777
Posted: 22 January 2011 at 4:32am

Hey Mark,

Thanks for your reply.

All the items have the same ID on my list. This would not work for deleting just record.

Recent documents : Hi Not to sure if I am helping...

Tue, 18 Jan 2011 17:43:47 +0000

Author: markmark
Subject: 17777
Posted: 18 January 2011 at 5:43pm

Hi

Not to sure if I am helping here, but Command1_Click adds and Command2_Click deletes

all I had to add from my previous example was an id =23, then find it and delete it.

Private Sub Command1_Click()
    Dim Control As CommandBarControl
    Dim ControlFile As CommandBarPopup
    Dim RibbonBar As RibbonBar

    Set RibbonBar = CommandBars.ActiveMenuBar
    Set ControlFile = RibbonBar.FindControl(, 50)

    With ControlFile.CommandBar.Controls
        Set Control = CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
        Control.Caption = "frmMain3.frm"
        Control.Id = 23
        .AddControl Control
    End With
End Sub

Private Sub Command2_Click()
    Dim Control As CommandBarControl
    Dim ControlFile As CommandBarPopup
    Dim RibbonBar As RibbonBar

    Set RibbonBar = CommandBars.ActiveMenuBar
    Set ControlFile = RibbonBar.FindControl(, 50)
    With ControlFile.CommandBar.Controls
        Set Control = .Find(, 23)
        Control.Delete
    End With

End Sub

Recent documents : Hey Mark and JPBro, thank you...

Tue, 18 Jan 2011 14:22:12 +0000

Author: JvdH
Subject: 17777
Posted: 18 January 2011 at 2:22pm

Hey Mark and JPBro, thank you for your help. I'm really appreciating this!

Can't thank you guys enough :)

Is there another way to delete an item from the list?

Created this for now (reloading the whole menu):

Private Function Reload_SystemMenu()
frmMain.ControlFile.CommandBar.Controls.DeleteAll

Dim lo_Control As CommandBarControl

    With frmMain.ControlFile.CommandBar.Controls
        .Add xtpControlButton, ID_NEW, LANG_ID_NEW
        .Add xtpControlButton, ID_DELETE, LANG_ID_DELETE
    End With

    Set lo_Control = frmMain.CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListCaption")
    With lo_Control
        lo_Control.Caption = "Filelist"
        lo_Control.BeginGroup = True
        lo_Control.Id = ID_FILELIST
    End With
    frmMain.ControlFile.CommandBar.Controls.AddControl lo_Control

If tmpStrg <> "" Then
FileName = Left$(tmpStrg, Len(tmpStrg) - 4)

        Set lo_Control = frmMain.CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
        With lo_Control
            lo_Control.Caption = FileName
            lo_Control.Id = ID_FILENAME
        End With
        frmMain.ControlFile.CommandBar.Controls.AddControl lo_Control
        tmpStrg = Dir$
    End If

    Set lo_Control = frmMain.CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarButton")
    With lo_Control
        lo_Control.Caption = "Exit " & M_APP_NAME_LONG
        lo_Control.Id = ID_EXIT
    End With
    frmMain.ControlFile.CommandBar.Controls.AddControl lo_Control
End Function

Recent documents : Hi jpbro solution may be better,...

Tue, 18 Jan 2011 12:48:38 +0000

Author: markmark
Subject: 17777
Posted: 18 January 2011 at 12:48pm

Hi

jpbro solution may be better, but I have just spent the last 1/2 hour trying to find a way for you, so I will post what I found.

Working from the codejock Ribbon Sample vbp,

I had to add an Id to the ControlFile

Set ControlFile = RibbonBar.AddSystemButton()
ControlFile.Id = 50

Then from a button just place on the form I run

Hope that makes sence, what took me awhile to find was the CommandBars.ActiveMenuBar

which gives you the RibbonBar object

Mark

Recent documents : Something like this? Option...

Tue, 18 Jan 2011 12:08:38 +0000

Author: jpbro
Subject: 17777
Posted: 18 January 2011 at 12:08pm

Something like this?


Option Explicit

Private mo_Rbn As RibbonBar
Private mo_SysBtn As XtremeCommandBars.CommandBarPopup

Private Sub Command1_Click()
   Dim lo_Control As CommandBarControl

   Set lo_Control = Me.CommandBars1.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
   With lo_Control
      .Caption = "test"
      .Id = 1004
   End With
   
   mo_SysBtn.CommandBar.Controls.AddControl lo_Control
End Sub

Private Sub Form_Load()
   With Me.CommandBars1
      .EnableOffice2007Frame True
      
      Set mo_Rbn = .AddRibbonBar("Main")
      With mo_Rbn
         Set mo_SysBtn = .AddSystemButton
         mo_SysBtn.Caption = "&File"
      End With
      
   End With
End Sub

or maybe more concise if you don't specifically need a CXTPRibbonControlSystemPopupBarListItem:


Option Explicit

Private mo_Rbn As RibbonBar
Private mo_SysBtn As XtremeCommandBars.CommandBarPopup

Private Sub Command1_Click()
   mo_SysBtn.CommandBar.Controls.Add xtpControlButton, 1004, "Test"
End Sub

Private Sub Form_Load()
   With Me.CommandBars1
      .EnableOffice2007Frame True
      
      Set mo_Rbn = .AddRibbonBar("Main")
      With mo_Rbn
         Set mo_SysBtn = .AddSystemButton
         mo_SysBtn.Caption = "&File"
      End With
      
   End With
End Sub

Recent documents : So, nobody has a solution for...

Tue, 18 Jan 2011 11:57:16 +0000

Author: JvdH
Subject: 17777
Posted: 18 January 2011 at 11:57am

So, nobody has a solution for this?

Recent documents : Is it possible to add an item...

Wed, 12 Jan 2011 16:16:25 +0000

Author: JvdH
Subject: 17777
Posted: 12 January 2011 at 4:16pm

Is it possible to add an item to the recent documents list on runtime (after the Ribbonbar is created)?

Is it possible to open the systembutton control to execute the following:

Set control = frmMain.CommandBars.CreateCommandBarControl("CXTPRibbonControlSystemPopupBarListItem")
control.Caption = "test"
control.Id = 1004

.AddControl control

Or am I thinking in a total wrong direction?

Thank you in advance :).