求教：VB text替换问题

显示全部楼层 · 2011-7-18 12:59:46

程序运行时，比如现在的TEXT值为1，现将TEXT的值改为2，在关闭再开启后，要TEXT的值为2.
或者说设一个按钮，直接将TEXT的值改为2并保存，这样也行，程序要怎么写？

千问 · 2011-7-18 12:59:46

100%你的要求程序本身是不能保存变量的所以得把数据保存在其他文档里创建一个TEXT1 复制代码Dim b As BooleanPrivate Sub Form_Load() '运行的时候读取Dim t2 As StringText1.text = ""If Dir("text1.txt") = "" Then Open "text1.txt" For Output As #1: Close 1 '没有文件则创建Open "text1.txt" For Input As #2 '读取Do While Not EOF(2)Line Input #2, t2If t2"" Then Tex...

千问 · 2011-7-18 12:59:46

'注册表比较方便Private Sub Form_Load()Text1.Text = GetSetting(App.Title, "Settings", "Text1", 0)'从注册表获取End SubPrivate Sub Form_Unload(Cancel As Integer)SaveSetting App.Title, ...

千问 · 2011-7-18 12:59:46

用GetSetting和SaveSetting。方法如下：在Form的Unload行为下加入：Private Sub Form_Unload(Cancel As Integer)SaveSetting "高考题组2010"（初始键值）, "Begin"（次级键值）, "Key"（变量名称）, Val(th.Text)（变量值）End Su...