Windows - Pannello Menu Files Recenti

windows # 'MENU' RECENT FILES
Private Sub UpdateFileMenu(strFile As String)
If Not IsActualFile(strFile) Then
SaveRecentFiles strFile
End If
ReadRecentFiles
End Sub

Private Function IsActualFile(strFile As String) As Boolean
Dim i As Integer
Dim bFound As Boolean
'Look for the file specified in strFile

For i = 1 To nRecentFiles
If strFile = Mid$(mnuRecentFile(i - 1).Caption, 4) Then
bFound = True
Exit For
End If
Next
IsActualFile = bFound
End Function

Private Sub SaveRecentFiles(strFile As String)
Dim i As Integer
Dim key, retval

' Move the recent files

For i = nRecentFiles - 1 To 1 Step -1
key = "RecentFile" & i
retval = GetSetting(Ini_File, "Recent Files", key, "")
If Len(retval) Then
key = "RecentFile" & (i + 1)
SaveSetting Ini_File, "Recent Files", key, retval
End If
Next i
' Save the last file

SaveSetting Ini_File, "Recent Files", "RecentFile1", strFile
End Sub

Private Sub ReadRecentFiles()
Dim retval, key
Dim i As Integer

' Get the last files from Ini_File

For i = 1 To nRecentFiles
key = "RecentFile" & i
retval = GetSetting(Ini_File, "Recent Files", key, "")
If Len(retval) Then
' Update the menus

MDIForm.mnuRecentFile(0).Visible = True
MDIForm.mnuRecentFile(i).Caption = "&" & Right$(Str$(i), 1)
& "-" & retval
MDIForm.mnuRecentFile(i).Visible = True
End If
Next i
End Sub