将所有设置保存在一个步骤中

Question

是否可以将我的所有设置保存在一个命令中？

我必须保存许多不同的TextBox文本，目前我必须将它们分别保存如下：

Call SaveSetting("Vertrag1", "setting", "Deckblatt", VertragsNrBox.Text)
Call SaveSetting("Vertrag1.1", "setting", "Deckblatt", DatumBox.Text)
Call SaveSetting("Vertrag1.2", "setting", "Deckblatt", ThemaBox.Text)
Call SaveSetting("Präambel1", "setting", "Präambel", TextBox1.Text)
Call SaveSetting("Vertrag2.2", "setting", "Präambel", TextBox2.Text)
Call SaveSetting("Vertrag2.3", "setting", "Präambel", TextBox3.Text)
Call SaveSetting("Vertrag2.4", "setting", "Präambel", TextBox4.Text)

……

现在是否有可能在一步之内拯救所有这些人？

Answer 1

也许是这样的？

Dim c As Control

For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then
        SaveSetting "Vertrag", "Settings", c.Name, c.Text
    End If
Next

您还可以使用textbox的Tag属性添加一些额外的信息。