Tools Links Login

MRU for Menus

The following is reprinted for archival purposes from Gary Beene's Information Center, with permission from Mr. Beene himself.


Sub UpdateApplicationMRUList(FileName As String )
'maintain a list of the last n files opened in the program
'recreate menu list each time program is opened

'---------------------------
'put this in the combolist itemclick event
combolist1.additem FileName

'if it already exists in the list, then remove it
Dim i As Long , Found As Boolean , n As Long
n = 5

For i = 2 To n
  'check to see if FileName is already in the list
    If Lcase $(FileName) = Lcase $(mnuFileName(i).Caption) Then Found = True
Next i

If Found = False Then
   mnuFileName(5).Caption = mnuFileName(4).Caption
   mnuFileName(4).Caption = mnuFileName(3).Caption
   mnuFileName(3).Caption = mnuFileName(2).Caption
   mnuFileName(2).Caption = mnuFileName(1).Caption
   mnuFileName(1).Caption = X
End If


mnuSeparator36.Visible = False
For i = 1 To 5
   mnuFileName(i).Visible = Cbool (Len(Trim$(mnuFileName(i).Caption)))
    If mnuFileName(i).Visible = True Then mnuSeparator36.Visible = True
Next i

End Sub

'--------------------------- and run this at form load

mnuSeparator36.Visible = False
For i = 1 To 5
   mnuFileName(i).Visible = Cbool (Len(Trim$(mnuFileName(i).Caption)))
    If mnuFileName(i).Visible = True Then mnuSeparator36.Visible = True
Next i

'----------------------------  and use this to save/get settings between sessions

       mnuFileName(1).Caption = GetSetting(App.Title, "Settings" , "File1" , "" )
       mnuFileName(2).Caption = GetSetting(App.Title, "Settings" , "File2" , "" )
       mnuFileName(3).Caption = GetSetting(App.Title, "Settings" , "File3" , "" )
       mnuFileName(4).Caption = GetSetting(App.Title, "Settings" , "File4" , "" )
       mnuFileName(5).Caption = GetSetting(App.Title, "Settings" , "File5" , "" )

       SaveSetting App.Title, "Settings" , "File1" , mnuFileName(1).Caption
       SaveSetting App.Title, "Settings" , "File2" , mnuFileName(2).Caption
       SaveSetting App.Title, "Settings" , "File3" , mnuFileName(3).Caption
       SaveSetting App.Title, "Settings" , "File4" , mnuFileName(4).Caption
       SaveSetting App.Title, "Settings" , "File5" , mnuFileName(5).Caption

About this post

Posted: 2021-02-11
By: ArchiveBot
Viewed: 185 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.