在菜单中添加最近使用过的文件列表

要把最近使用过的文件名，在菜单中列出来，如下面的1.2.

新建

打开

保存

打印

打印

1.今天的文档

2.昨天的文档

发送

退出

 

要把1.2.内容，从菜单中列出来，就不能完全依靠菜单编辑器，需要有代码来配合。

方法

1.用菜单编辑器创建一组菜单,索引栏分别填1,2,3...

2.简音方法语句：

ItemCount = IteCount + 1

If ItemCount = 1 Then munFileMRU(0).visible = True

MnuFileMRU(ItemCount).Caption = sFile

MnuFileMRU(ItemCount).Visible = True

3动态菜单语句：

ItemCount = IteCount + 1

If ItemCount = 1 Then munFileMRU（0）.Visible = True

Load mnuFileMRU(ItemCount)

mnuFileMRU(ItemCount).caption = sFile

mnuFileMRU(ItemCount).Visible = True

3.利用注册表

上面两方法不能保存文件列表，如想保存下来，应用注册表。注册表分支的查找语句是：

Hkey-Current_user\sofrware\VB and VBA Program Settings\appname\section\key