带有历史记录功能的菜单

----1.打开vb,选择标准窗口，在工具菜单里选择编辑菜单器，各项设置如下：

――――――――――――――――――――――――
　　captionnameindex
　　visibleindentation
　　―――――――――――――――――――――――
　　filemnufile空true0
　　Openmnuopen空true1
　　-mnudesh空true1
　　空mnufilename1false1
　　空mnufilename2false1
　　空mnufilename3false1
　　空mnufilename4false1
　　空mnufilename5false1
　　abcmnufilename6false1
　　

----2.在窗体中加载一对话框,对话框的name为commongdialog1

----3.源程序如下:

----在通用里声明:

Constk1="记忆菜单"
　　Constk2="文件名"
　　Functionaddfilename(filename)'添加文件名
　　DIMI,GASINTEGER
　　ForI=5To1Step-1'从第五项开始向第一项
　　Ifmnufilename(1).Caption<>filenameAnd
　　mnufilename(2).Caption<>filename
　　Andmnufilename(3).Caption<>filenameAnd
　　mnufilename(4).Caption<>filename
　　Andmnufilename(5).Caption<>filename
　　Then'判断所选的文件是否已存在
　　Ifmnufilename(I).Caption=""And
　　mnufilename(I 1).Caption<>""
　　Then'此处初使化菜单，利用了虚设菜单项
　　SaveSettingk1,k2,I,filename'在注册表里保存
　　Else
　　Ifmnufilename(1).Caption<>""
　　Then'表明菜单已满
　　DeleteSettingk1,k2,5
　　'按先入先出规则,删除最后一项
　　ForG=4To1Step-1'一至四项依次后移
　　n=GetSetting(k1,k2,G)'从注册表里取其值
　　SaveSettingk1,k2,(G 1),n'顺延到下一项
　　Next
　　SaveSettingk1,k2,1,filename
　　ExitFunction
　　EndIf
　　EndIf
　　EndIf
　　Next
　　EndFunction
　　Functiondisplay()'显现各项文件名
　　DIMIASINTEGER
　　ForI=5To1Step-1
　　l=GetSetting(k1,k2,I)
　　
　　Ifl<>""Then
　　mnufilename(I).Visible=True
　　mnufilename(I).Caption=l
　　Else
　　mnufilename(I).Visible=False
　　mnufilename(I).Caption=""
　　EndIf
　　Next
　　EndFunction
　　
　　
　　PrivateSubForm_Load()
　　
　　Calldisplay
　　
　　EndSub
　　
　　PrivateSubmnuopen_Click()
　　DIMFILENAME
　　Commondialog1.ShowOpen
　　filename=Commondialog1.filename
　　
　　Calladdfilename(filename)
　　
　　Calldisplay
　　
　　EndSub

----有兴趣的读者还可以把此程序稍加修改加入你的工程，增添你的工程的实用性。利用getsetting,savesetting和deletesetting函数，还可为你的程序加密等