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
---- （注：一定要在最后一项的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 Andmnufilename(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
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'顺延到下一项NextSaveSetting k1, k2, 1, filenameExit FunctionEnd IfEnd IfEnd If
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
End FunctionPrivate Sub Form_Load()Call displayEnd SubPrivate Sub mnuopen_Click()
DIM FILENAMECommondialog1.ShowOpenfilename = Commondialog1.filenameCall addfilename(filename)Call displayEnd Sub