象Word那樣，在“文件”菜單中可以找到我們最近打開或編輯過的文件。這是程序在運行時創建了動態菜單的緣故。VB程序實現此功能有很多文章探討過，但大都著眼於Windows的注冊表。我們的注冊表早已發福了，有沒有辦法不讓她再增加負擔？
用INI文件！INI文件是系統、應用程序的配置文件。它可以使得我們的VB程序更具靈活性，充分地利用它自然也能夠實現動態菜單的創建。下面給個例子。
首先，我們得給程序添加一個模塊，在模塊中申明讀寫INI用的兩個WindowsAPI函數，並在其中封裝自定義的讀取、寫入INI的函數：
OptionExplicit
'讀寫INI的API函數
PublicDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong
PublicDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,
ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong
'自定義寫入INI函數
PublicFunctionWriteIni(ByValsectionAsString,ByValkeyAsString,ByValvalueAsString)AsBoolean
DimxAsLong,BuffAsString*128,IAsInteger
Buff=value Chr(0)
x=WritePrivateProfileString(section,key,Buff,App.Path "MenuSetting.ini")
WriteIni=x
EndFunction
'自定義讀取INI函數
PublicFunctionReadIni(ByValsectionAsString,ByValkeyAsString)AsString
DimxAsLong,BuffAsString*128,IAsInteger
x=GetPrivateProfileString(section,key,"",Buff,128,App.Path "MenuSetting.ini")
I=InStr(Buff,Chr(0))
ReadIni=Trim(Left(Buff,I-1))
EndFunction
接著，回到主窗體，給主窗體添加若干控件、編輯菜單(控件和菜單名稱詳見代碼)，其中，“文件”菜單的動態菜單要用數組，其Index號可以從1開始，注意將這些動態菜單設為不可見。本例可保存最近打開的三個文件，如需要多一些可自行添加。以下是主窗體代碼：
OptionExplicit
'聲明用於判斷寫入INI中的FileName(n)中的n變量
DimIAsString'為了能添在FileName串的後面，聲明為String
PrivateSubForm_Load()
I=0'初值
Text1.Left=0
Text1.Top=0
Text1=""
Text1.FontSize=12
Me.Caption="txtEditor"
Me.Width=8000
Me.Height=6000
AddMenu'添加動態菜單
EndSub
PrivateSubForm_Resize()'這個沒什麼可說，為了使例程完整而已
Text1.Width=Me.ScaleWidth
Text1.Height=Me.ScaleHeight
EndSub
PrivateSubmnuExit_Click()
End'退出
EndSub
'打開文件
PrivateSubmnuOpen_Click()
DimsFAsString
CommonDialog1.Filter="文檔文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
OpenCommonDialog1.FileNameForInputAs#1
Text1.Text=StrConv(InputB$(LOF(1),1),vbUnicode)
Close#1
IfI>=3ThenI=0'如大於等於3則返回原值
I=I 1
sF="FileName" I
'打開後寫進INI文件
CommonDialog1.FileName=WriteIni("Open",sF,CommonDialog1.FileName)
AddMenu'立即添加使動態菜單生效
EndSub
'添加菜單
PrivateSubAddMenu()
DimfN1AsString,fN2AsString,fN3AsString
'從INI文件中讀取數據
fN1=ReadIni("Open","FileName1")
fN2=ReadIni("Open","FilEName2")
fN3=ReadIni("Open","FileName3")
'如數據存在則令動態菜單可見並給其Caption屬性賦值
IffN3<>""ThenmnuSep02.Visible=True:mnuAdd(1).Visible=True:mnuAdd(1).Caption=fN1
IffN2<>""ThenmnuSep02.Visible=True:mnuAdd(2).Visible=True:mnuAdd(2).Caption=fN2
IffN1<>""ThenmnuSep02.Visible=True:mnuAdd(3).Visible=True:mnuAdd(3).Caption=fN3
EndSub
本例子演示了利用INI文件實現動態菜單的創建，若需要移植到你的程序中，應作相應的改動，使其更具合理性和實用性。有什麼看法歡迎大家與我交流！->
