VB//关于SaveSetting和GetSetting函数

函数原型:

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)

 

'卸载窗体 ===============================================

Private Sub Form_Unload(Cancel As Integer)

SaveSetting "VB串口", "预存值", "TxtPreSave1", TxtPreSave1.Text
SaveSetting "VB串口", "预存值", "TxtPreSave2", TxtPreSave2.Text
SaveSetting "VB串口", "预存值", "TxtPreSave3", TxtPreSave3.Text
SaveSetting "VB串口", "预存值", "TxtPreSave4", TxtPreSave4.Text
SaveSetting "VB串口", "预存值", "TxtPreSave5", TxtPreSave5.Text

End Sub

'装载窗体 ===============================================

Private Sub Form_Load()

TxtPreSave1.Text = GetSetting("VB串口", "预存值", "TxtPreSave1", TxtPreSave1.Text)
TxtPreSave2.Text = GetSetting("VB串口", "预存值", "TxtPreSave2", TxtPreSave2.Text)
TxtPreSave3.Text = GetSetting("VB串口", "预存值", "TxtPreSave3", TxtPreSave3.Text)
TxtPreSave4.Text = GetSetting("VB串口", "预存值", "TxtPreSave4", TxtPreSave4.Text)
TxtPreSave5.Text = GetSetting("VB串口", "预存值", "TxtPreSave5", TxtPreSave5.Text)

End Sub

 

对5个文本内容进行退出保存和打开重载

可见图片, 在注册表中具体的存储位置和内容, 在HKEY_CURRENT_USERS/Software/VB and VBA Program Settings目录下