Question

VB如何记忆文本框中的内容，下次运行时可以自动显示

如题，我在一个窗体里设置了10个文本框，并且给他们赋值进行后面的计算，其中有4个文本框在每次运行时都要输入同样的数据，怎样才能使其记忆第一次输的数据，下次运行时这4个自动显示，其他的保持空白呢？

Answer 1

假设你1~4个TEXT是要保存数据的TEXT
Option Explicit

Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Text1", "Text", "")
Text2.Text = GetSetting(App.Title, "Text2", "Text", "")
Text3.Text = GetSetting(App.Title, "Text3", "Text", "")
Text4.Text = GetSetting(App.Title, "Text4", "Text", "")
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Text1", "Text", Text1.Text
SaveSetting App.Title, "Text2", "Text", Text2.Text
SaveSetting App.Title, "Text3", "Text", Text3.Text
SaveSetting App.Title, "Text4", "Text", Text4.Text
End Sub
这样就行了程序关闭后自动在注册表HKEY_CURRENT_USER\Software\VB and VBA Program Settings\工程名字\下面存放！加载时自动加载的呵呵

Answer 2

每次运行都要同样的数据，那要文本框有啥意义？还是你没说清楚？直接静态吧text属性设置了不就成了？还是要自动保存上次的？如果自动保存上次的，sunshinebean的就行，操作了注册表。

Answer 3

在form_load事件加入
text1.text=...
...
就可以了。

Answer 4

将数据保存到注册表或者文件中

Answer 5

应该要用到数据库