带有历史记录功能的菜单

1、1.打开vb,选择标准窗口，在工具菜单里选择编辑菜单器，各项设置如下：caption name indexvisible indentationfile mnufile 空 true 0Open 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 1abc mnufilename 6 false 1

3、For I = 5 To 1 Step -1&拭貉强跳#39;从第五项开始向第一项If mnufilename(1).Caption < > filename An颊俄岿髭dmnufilename(2).Caption < > filenameAnd mnufilename(3).Caption < > filename Andmnufilename(4).Caption < > filenameAnd mnufilename(5).Caption < > filenameThen '判断所选的文件是否已存在If mnufilename(I).Caption = "" Andmnufilename(I + 1).Caption < > ""Then '此处初使化菜单，利用了虚设菜单项SaveSetting k1, k2, I, filename'在注册表里保存Else

5、NextEnd FunctionFunction display()'显现各项文件名DIM I AS INTEGERFor I = 5 To 1 Step -1l = GetSetting(k1, k2, I)If l < > "" Thenmnufilename(I).Visible = Truemnufilename(I).Caption = lElsemnufilename(I).Visible = Falsemnufilename(I).Caption = ""End IfNext

7、DIM FILENAMECommondialog1.ShowOpenfilename = Commondialog1.filenameCall addfilename(filename)Call displayEnd Sub