VB中实现最新文件列表

strFile <> "" ThenРstrKey = "RecentFile" & (I + 1)РSaveSetting ThisApp, ThisKey, strKey, strFileРEnd IfРNext IР' 将最新打开的文件写到最近使用文件列表的第一项РSaveSetting ThisApp, ThisKey, "RecentFile1", OpenFileNameРEnd SubР──────────────РSub OpenTFlexFile()РCMDialog1.Filter = "All Files (*.*)|*.*|T-Flex CAD Files (*.grb)|*.grb"РCMDialog1.FilterIndex = 2 ' 指定默认值(*.grb).РCMDialog1.ShowOpen ' 显示打开文件对话框РIf CMDialog1.FileName <> "" ThenР= CMDialog1.FileNameРUpdateFileMenu (TFlexCADFileName)РOpenTFlexCADFile (TFlexCADFileName) '打开T-FlexCAD文件РEnd IfРEnd SubР──────────────РPrivate Sub mnuRecentFile_Click(Index As Integer)РTFlexCADFileName = FileNameArray(Index - 1, 1)РOpenTFlexCADFile(TFlexCADFileName)РEnd SubР注:Р1. 在Form_Load中应调用GetRecentFiles(),以便得到上次运行应用程序时保存的注Р册表信息。Р2. 由于OpenTFlexCADFile函数是CAD/CAPP系统中的具体应用程序,故未列出。