VB如何记忆文本框中的内容，下次运行时可以自动显示
答案:6 悬赏:20 手机版
解决时间 2021-11-23 15:54
- 提问者网友：
- 2021-11-22 22:06
VB如何记忆文本框中的内容，下次运行时可以自动显示
最佳答案
- 五星知识达人网友：爱难随人意
- 2021-11-22 22:24
假设你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\工程名字\下面存放！加载时自动加载的呵呵
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\工程名字\下面存放！加载时自动加载的呵呵
全部回答
- 1楼网友：低血压的长颈鹿
- 2021-11-23 04:41
在form_load事件加入
text1.text=...
...
就可以了。
text1.text=...
...
就可以了。
- 2楼网友：一秋
- 2021-11-23 03:07
应该要用到数据库
- 3楼网友：春色三分
- 2021-11-23 02:32
每次运行都要同样的数据，那要文本框有啥意义？还是你没说清楚？直接静态吧text属性设置了不就成了？还是要自动保存上次的？如果自动保存上次的，sunshinebean的就行，操作了注册表。
- 4楼网友：独钓一江月
- 2021-11-23 00:56
将数据保存到注册表或者文件中
- 5楼网友：深街酒徒
- 2021-11-22 23:52
unload里面存文件
load里面读文件
load里面读文件
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯