Question

vb中用getsetting和savesetting保存数据的路径可以改吗

在vb中编写了记忆功能如下：
Private Sub Form_Load()
For e = 0 To 40

Text1(e).Text = GetSetting(App.Title, "Text1", "Text" & e, "")

doevents
Next
End Sub
Private Sub Command1_Click()'保存
For e = 0 To 40

SaveSetting App.Title, "Text1", "Text" & e, Text1(e).Text

DoEvents
Next
End Sub
存在的问题：我有11个这样类似的窗口，text1(i)都从1开始编的，所以当在第一个窗口保存的数据，在打开第二个窗口时，第二个窗口中的text1(i)会读取第一个窗口text1(i)保存的值，想着改路径，但不知道怎么改，菜鸟求大神指点

Answer 1

同一个程序运行11个，你的要求确实不好处理
如果程序放在11个不同的文件夹下，可以把文件夹路径加上，但这样做感觉不好。
也可以将程序加上命令行参数，比如1、2、3、。。。
将该参数加到路径上，这样以参数1打开程序时，就调用了1对应的注册表项。在打开每个的快捷方式上，加上命令行参数。这样应该就能对应上了。提供思路，仅供参考。
Private Sub Form_Load()
if command="" then unload me
For e = 0 To 40

Text1(e).Text = GetSetting(App.Title, "Text1" & command, "Text" & e, "")

doevents
Next
End Sub
Private Sub Command1_Click()'保存
For e = 0 To 40

SaveSetting App.Title, "Text1" & command, "Text" & e, Text1(e).Text

DoEvents
Next
End Sub

追问

也不是同时运行11个，有一个主窗口，选择一个窗口，这个窗口才弹出来，然后再在弹出窗口里设置保存按钮，进行数据保存，退出后再在主窗口选择另一个窗口时，在相应弹出窗口又有保存按钮，所以每个窗口实际是单独运行的，不是11个窗口共用一个程序，而是每个窗口都有自己的程序代码，你说的我不太懂，我是菜鸟级别的，能不能写下完整的程序，就写一个窗口就行。

追答

GetSetting(appname, section, key[, default])
按你刚才说的，你可以让每个窗口的section不同，比如第一个窗口：
GetSetting App.Title,"Form1",。。。。。

第二个窗口：
GetSetting App.Title,"Form2",。。。。。

追问

我试了下，程序没出错，但保存数据后打开显示数据如图，我不太理解section与key与setting之间的关系，百度上的解释看不懂。如果改App。Title行不行呢

追答

GetSetting(appname, section, key[, default])
SaveSetting appname, section, key,
setting
appname---应用程序名
section---注册表项
key---section项下的关键字名
setting----关键字名key的值

追问

那按理说你这样改可以啊，为什么出现上述问题啊，下面是我的代码

End Sub

追答

你在关键语句处设置断点，监视变量值看看问题在哪

追问

试了一下，是text1数组与text2数组干涉了，text1(i)读取的是text2(i)的值，调试后
Text1(i).Text = GetSetting(App.Title, "Form2", "Text1" & i, "")
Text2(j).Text = GetSetting(App.Title, "Form2", "Text2" & j, "")
可行！！thanks