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

发布网友 发布时间：2024-08-29 14:16

我来回答

共5个回答

热心网友 时间：2024-09-04 18:02

假设你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\工程名字\下面存放！加载时自动加载的呵呵

热心网友 时间：2024-09-04 17:54

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

热心网友 时间：2024-09-04 17:56

应该要用到数据库

热心网友 时间：2024-09-04 17:59

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

热心网友 时间：2024-09-04 17:57

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