历史记录功能的菜单怎么做，详细点！

Question

将每次打开的文件循环写入注册表（函数使用方法可以查帮助，很简单），启动程序是从注册表中读出就行了

Answer 1

---- 1.打开vb,选择标准窗口，在工具菜单里选择编辑菜单器，各项设置如下： ————————————————————————
caption          name       index
  visible   indentation
———————————————————————
file         mnufile        空       true    0
 Open            mnuopen       空       true    1
 -         mnudesh        空       true       1
 空       mnufilename       1       false      1
 空       mnufilename 2 false    1
 空       mnufilename 3 false    1
 空       mnufilename 4 false    1
 空       mnufilename 5 false    1
 abc       mnufilename 6 false    1
---- （注：一定要在最后一项的caption设一虚值,这样做的原因是为了后面在菜单项未满时添加文件名做判断,并没有实际意义) 
---- 2.在窗体中加载一对话框,对话框的name为commongdialog1 ---- 3.源程序如下: ---- 在通用里声明: Const k1 = "记忆菜单"
Const k2 = "文件名"
Function addfilename(filename)'添加文件名
DIM I,G AS INTEGER
For I = 5 To 1 Step -1'从第五项开始向第一项
 If mnufilename(1).Caption <  > filename And
 mnufilename(2).Caption <  > filename
And mnufilename(3).Caption <  > filename And
mnufilename(4).Caption <  > filename
 And mnufilename(5).Caption <  > filename
Then '判断所选的文件是否已存在
     If mnufilename(I).Caption = "" And
 mnufilename(I + 1).Caption <  > ""
Then '此处初使化菜单，利用了虚设菜单项
 SaveSetting k1, k2, I, filename'在注册表里保存
     Else
       If mnufilename(1).Caption <  > ""
 Then '表明菜单已满
         DeleteSetting k1, k2, 5
'按先入先出规则,删除最后一项
         For G = 4 To 1 Step -1 '一至四项依次后移
         n = GetSetting(k1, k2, G)'从注册表里取其值
         SaveSetting k1, k2, (G + 1), n'顺延到下一项
         Next
         SaveSetting k1, k2, 1, filename
        Exit Function
       End If
     End If
 End If
Next
End Function
Function display()'显现各项文件名
DIM I AS INTEGER
For I = 5 To 1 Step -1
l = GetSetting(k1, k2, I)If l <  > "" Then
mnufilename(I).Visible = True
mnufilename(I).Caption = l
Else
mnufilename(I).Visible = False
mnufilename(I).Caption = ""
End If
Next
End Function
Private Sub Form_Load()Call displayEnd SubPrivate Sub mnuopen_Click()
DIM FILENAME
Commondialog1.ShowOpen
filename = Commondialog1.filenameCall addfilename(filename)Call displayEnd Sub

Answer 2

一動態菜單數組﹐紀錄存在注冊表﹑文件都行