中易网

vb中如何加入配置文件

答案:3  悬赏:10  
解决时间 2021-03-17 15:40
我要用vb写个软件,生成可执行文件,具体功能是实现简单的计数,即点一下按钮计数器增一。 如果软件关闭后重新打开时,计数器能从上次软件的计数器的基础上增加,我想用配置文件保存计数器的值,如何实现?
注: 是要生成可执行文件的,请尽量详细举例的说明一下!
最佳答案
你说的就是保存上次的记录,用什么文件都行,就是注册表保存也是可以的呀.

VB可以读写文件,程序运行时,建立你要的文件,写入就行了.再打开时,读这个文件出来,继续操作就行.

VB就是可以生成可执行文件的嘛
全部回答

呵呵,配置文件么。可以采用ini或者dll,或者access等。可以读写的数据方式来写。

下面的代码是我学vb时收集的ini

private declare function getprivateprofilestring lib "kernel32" alias "getprivateprofilestringa" (byval lpapplicationname as string, byval lpkeyname as string, byval lpdefault as string, byval lpreturnedstring as string, byval nsize as long, byval lpfilename as string) as long private declare function writeprivateprofilestring lib "kernel32" alias "writeprivateprofilestringa" (byval lpapplicationname as string, byval lpkeyname as any, byval lpstring as any, byval lpfilename as string) as long private sub command1_click() '读 ini 文件 dim f as string, nstr as string, nsize as long, s as long f = "d:\optionv5.ini" f = app.path & "\optionv5.ini" nsize = 255: nstr = string(nsize, 0) dl = getprivateprofilestring("option", "filterurl", "", nstr, nsize, f) s = instr(nstr, chr(0)) if s > 0 then nstr = left(nstr, s - 1) msgbox "读出为:" & nstr '字符串 nstr 就是读出的等号后的内容 end sub private sub command2_click() '写 ini 文件 dim f as string f = "c:my.ini" dl = writeprivateprofilestring("aaa", "bbb", "ccc", f) if dl <> 0 then msgbox "写 ini 文件成功" end sub

'------------------------------------

如果你不知道怎么用可以先试着别改代码按照上面的。粘贴下去。自己试试就明白了。

或者可以用open的方式

open "路径文件名" for output as #1 print #1,text1.text close #1

读: open "路径文件名" for output as #1 do while not eof(1) line input #1 , readtext text1.text=text1.text & readtext & vbcrlf loop

用这样的每次打开程序自动读取到text

每次关闭自动保存的txt

这些方法都是可用的。非常简单。

当然高手都采用些dat或者mdb存取咯

右键单击项目名称。选择属性。 在属性窗中选择设置,名称中输入一个名称,如MyValue,类型integer,范围选用户,值为初始值,可键入0. Private Sub Form_Math_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Num_DJC.Value = My.Settings.MyMalue ‘获取设置中的值,并进行应用。 My.Settings.MyMalue += 1 ’将设置中的值进行修改。 My.Settings.Save() ’保存设置中的修改。 My.Settings.Reload() ‘可以将设置中的值重新导入。 End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
什么跑车款式最好看,最贵?
08年伊兰特现在值 多少钱
2014年7月12日15点10分起名,男孩
为什么流氓软件卸载了又自动安装
活期宝未付收益如何取出?
创业板是丅十0交易吗
联讯证券罗阳证券营业部地址有知道的么?有点
甄子丹和吴京的功夫谁好
凌家堰在什么地方啊,我要过去处理事情
爆米花,黄油可以代替起酥油吗?
珠海华而美照明有限公司待遇怎么样啊
请问一下,现在哈尔滨西站最近的快捷连锁酒店
绍兴洪亮大厦停车场在哪里啊,我有事要去这个
我是右臀部混合型深二度烫伤
美甲彩绘笔怎么样保养没有那么容易坏
推荐资讯
中国邮政储蓄银行响水营业所怎么去啊,有知道
北京到高邑火车车次时间
成都五块石客运站 早上到彭州最早得一班客车
兴义民族师范学院安龙校区地址在哪,我要去那
b2轰炸机为什么贵
苍溪检察院杜仕福什么时间担任检察长
想玩网络手机捕鱼游戏,我应该在哪里下载
研究下列方程组的解的个数:(1)x-2y+1,2x-4y+3
谁给一些华丽优美的 稀少的汉语词语
人生菜,马生菜的名字的由来
有什么体育运动能够增高的
无锡学德语去哪学
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?