vb中如何加入配置文件
- 提问者网友:霸气大叔
- 2021-03-17 06:07
注: 是要生成可执行文件的,请尽量详细举例的说明一下!
- 二级知识专家网友:最后战士
- 2021-03-17 07:18
VB可以读写文件,程序运行时,建立你要的文件,写入就行了.再打开时,读这个文件出来,继续操作就行.
VB就是可以生成可执行文件的嘛
- 1楼网友:如果这是命
- 2021-03-17 10:13
呵呵,配置文件么。可以采用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存取咯
- 2楼网友:修女的自白
- 2021-03-17 08:43