VB//关于SaveSetting和GetSetting函数

最新推荐文章于 2024-07-04 13:59:22 发布

kelawood_

最新推荐文章于 2024-07-04 13:59:22 发布

阅读量3k

点赞数

本文链接：https://blog.csdn.net/kelawood_/article/details/7652717

版权

函数原型:

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目录下