把信息写到注册表里,例子:Public Const THIS_APPNAME = "Your Application"
Public Const THIS_SECTION = "Settings"
Public Const KEY_OPTION1 = "Option1"
Public Const KEY_OPTION2 = "Option1"Private Sub Form_Unload(Cancel As Integer)
SaveSetting THIS_APPNAME, THIS_SECTION, KEY_OPTION1, Option1.Value
SaveSetting THIS_APPNAME, THIS_SECTION, KEY_OPTION2, Option2.Value
End SubPrivate Sub Form_Load()
' If there no key exists, error may occur
' or the key values are invalid, just ignore them
On Error Resume Next
Option1.Value = GetSetting(THIS_APPNAME, THIS_SECTION, KEY_OPTION1, True)
Option2.Value = GetSetting(THIS_APPNAME, THIS_SECTION, KEY_OPTION2, False)
End Sub
Public Const THIS_SECTION = "Settings"
Public Const KEY_OPTION1 = "Option1"
Public Const KEY_OPTION2 = "Option1"Private Sub Form_Unload(Cancel As Integer)
SaveSetting THIS_APPNAME, THIS_SECTION, KEY_OPTION1, Option1.Value
SaveSetting THIS_APPNAME, THIS_SECTION, KEY_OPTION2, Option2.Value
End SubPrivate Sub Form_Load()
' If there no key exists, error may occur
' or the key values are invalid, just ignore them
On Error Resume Next
Option1.Value = GetSetting(THIS_APPNAME, THIS_SECTION, KEY_OPTION1, True)
Option2.Value = GetSetting(THIS_APPNAME, THIS_SECTION, KEY_OPTION2, False)
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货