For Each i In web
web(i) = My.Settings.sweb(i)
name(i) = My.Settings.sname(i)
Next
此代码不起作用,这是我想要做的。如何制作它以便我可以更改my.settings
中的名称而无需硬编码?
基本上我希望能够将输入的名称更改为my.settings
如何制作My.Setting变量的“sweb”部分,以便我可以更改它。
答案 0 :(得分:2)
使用
For Each i In web
web(i) = My.Settings("sweb" & i)
name(i) = My.Settings("sname" & i)
Next
答案 1 :(得分:1)
看起来您想要像数组一样访问系统设置。如果您想要遍历它,我会建议像;
Dim myArray() As String = {My.Settings.sweb1, My.Settings.sweb2, My.Settings.sweb3}
然后你可以这样做:
For Each i in web
web(i) = myArray(i)
...
Next
答案 2 :(得分:1)
您无法将所有设置都设置为字符串数组My.Settings.swed(10)
,因此您可以像提议的那样逐步完成它们。
我不确定For Each
循环是否正确。
Dim My.Settings.swed(10) As String
For i = My.Settings.swed.LBound To My.Settings.swed.UBound
web(i) = My.Settings.swed(i)
Next
当你有一个For Each
时,它通常会超过集合的每个成员