Question

VB中在text1中输入：123,并保存。关闭程序后，第二次打开text1中还是123。直到有新的内容。

代码怎么写？各位大哥大姐拜托了。急用啊！

Answer 1

1.下面是关于文件读写的:

private sub 窗体_Load()
on error resume next
dim temptxt as string
open c:\save.txt for input as #1
do while not eof(1)
input #1,temptxt
text1.text=text1.text & temptxt &vbctrl
loop
close #1
end sub

private sub 保存按钮_click() '或关闭窗口
dim l as integer
l = text1.text
dim i as integer, j as integer
open "c:\save.txt" for output as 1
print #1, l
next i
close
end sub

2.下面是关于注册表读写的:

private sub 窗体_Load()
on error resume next
Set WSH = CreateObject("WScript.Shell")
text1.text=wsh.RegRead("注册表完整路径键值名")
set wsh = noting
end sub

private sub 保存按钮_click() '或关闭窗口
Set WSH = CreateObject("WScript.Shell")
WSH.regWrite "注册表完整路径键值名"，text1.text，"REG_SZ"
set wsh = noting
end sub

个人认为注册表的方法比较好,方便快捷 还比较安全

Answer 2

数据写入文件 或 上传服务器

Answer 3

读写文件或注册表

Answer 4

想保存数据有3种方法

第一种，写文件，读文件，把数据保存在文件里。

第二种，把要保存的数据写在注册表里。

第三种，写静态程序，静态过程，这种方法比较好实现。

写小游戏什么的，要保存数据可以写静态过程。

public/pravite static ...sub(...)

end sub