储存程式的设定

: 我的程式中有一个设定画面,
: 其中有了slider及textbox让使用者调整叁数
: 如果希望调整完的结果,可以存起来,
: 不会每次重run就回到原始值,
: 该怎麽作?
: 是不是用property?
: --------------------------------

我想没有property可以这样做，不过您可以使用
SaveSetting, GetSetting DeleteSetting的方式来做

说穿了，也不过是将您执行的结果放到registry中，下次
执行时，再将之读出来而这些设定是放在:
     HKEY_CURRENT_USER  Software/VB and VBA Program Settings
但这Registry的运作只限於此，不能读写其他地方的值。


'以下程式存text1的资料，下回执行时会再从Registry中读回来
Private Sub Command1_Click()
' 移除所有的设定。
DeleteSetting "MyApp"
End Sub

Private Sub Command2_Click()
'存设定
SaveSetting "MyApp", "Text1", "value", Text1.Text
End Sub

Private Sub Form_Load()
Dim str5 As String
str5 = GetSetting(appname:="MyApp", section:="Text1", _
                       Key:="Value", Default:="25")
Text1.Text = str5
End Sub