vb如何保存和读取文本框里的内容

来源：百度知道 编辑：UC知道 时间：2024/05/11 18:43:02
我学做机器码注册程序,但是我的文本框里的内容无法保存也无法自动加载,关闭程序了就没有了,请问用什么办法可以自动保存,下次打开程序后保留上次的文本输入

代码如下,我改如何修改

Option Explicit
Private Regid, Localid As Long

Private Sub CmdLocalID_Click()
'根据C盘序列号得到原ID
Dim Driver, VolName, Fsys As String
Dim volNumber, MCM, FSF As Long
Driver = "d:\"
Dim res As Long
res = GetVolumeInformation(Driver, VolName, 127, volNumber, MCM, FSF, Fsys, 127)
'volNumber是C盘序列号
Localid = volNumber / 3 + 123456
Text1.Text = Localid
End Sub

Private Sub CmdRegID_Click()
'根据原ID算出注册ID
If IsNumeric(Text1.Text) Then
Regid = CLng(Text1.Text) / 2 * 2 + 123456
Else
'error
End If
Text2.Text = Regid
End Sub

Private Sub CmndCheckID_Click()
'验证注册ID
Dim Driver, VolName, Fsys As String
Dim volNumber, MCM, FSF As Long
Driver = "d:&

你可以用注册表操作的语句将内容保存到注册表，等下次加载窗体时再用语句从注册表中取出值．
使用方法如下：
SaveSetting(AppName As String, Section As String, Key As String, Setting As String)

GetSetting(AppName As String, Section As String, Key As String, [Default]) As String

savesetting 将一个值存储到注册表里
SaveSetting "工程主题","主键名","键名","键值"

GetSetting "工程主题","主键名","键名","默认键值" '默认键值,当获取为空,或不成功时返回默认值
这个函数的返回值就是获取的注册表的键值

你可以将以上语句运行一次就知道了
运行后到注册表的HKEY_CURRENT_USER\Software\VB and VBA Program Settings键值下

例如：

savesettings "MyApp","ID","Localid",text1.text
取出时用语句：
text1=getsettings ("MyApp","ID","Localid")

看着头疼。帮不了你。