鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网站制作教程 > vbs > >

利用INI文件给程序创建动态菜单

来源:互联网 作者:佚名 时间:2015-10-15 13:29
象Word那样,在“ 文件 ” 菜单 中可以找到我们最近打开或编辑过的 文件 。这是 程序 在运行时 创建 了 动态 菜单 的缘故。VB 程序 实现此功能有很多文章探讨过,但大都着眼于Windows的注册表。我们的注册表早已发福了,有没有办法不让她再增加负担? 用INI
象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文件实现动态菜单创建,若需要移植到你的程序中,应作相应的改动,使其更具合理性和实用性。有什么看法欢迎大家与我交流!->

网友评论
<