欢迎光临
我们一直在努力

利用ini文件给程序创建动态菜单_visualbasic教程

建站超值云服务器,限时71元/月

象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文件实现动态菜单的创建,若需要移植到你的程序中,应作相应的改动,使其更具合理性和实用性。有什么看法欢迎大家与我交流!->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 利用ini文件给程序创建动态菜单_visualbasic教程
分享到: 更多 (0)