带有历史记录功能的菜单

ReadyGo!技术成就梦想 网络搜索 efish 2008-2-24 2:47:52

我们经常见到一些软件，如office系列，visual家族等等，他们的打开菜单里常常记载了上次所进行的任务，这样就方便了我们的操作，实际我们也能用vb实现这一功能，现在以常见的含有最多五个添加值为例给大家演示这一功能，并且此程序不需要具api函数调用，直接使用vb自身携带的函数即可，主要使用getsetting,savesetting和deletesetting函数，具体步骤如下：

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

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

----（注：一定要在最后一项的caption设一虚值,这样做的原因是为了后面在菜单项未满时添加文件名做判断,并没有实际意义)

----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函数，还可为你的程序加密等

->

责任编辑: efish 参与评论 查找更多：

2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

分类导航