Vb.net 在VB2008中将多个文本框中的文本更改为数字

我希望将一组9个文本框（编号为A2、A3、A4至A9）中5个字母的文本更改为“-y、x、z”形式的坐标。这样就可以将它们写入Google Earth的KML文件中。一行有9个文本框，有16个5个字母的单词需要更改。我想知道是否有比在每个文本框的16个单词中使用“Select Case”语句更好的方法

这是我使用的“选择案例”的一部分：

Select Case A2.Text
        Case "RESNO"
            A2.Text = "-15,55,0"
        Case "DOGAL"
            A2.Text = "-15,54,0"
    End Select

任何文本框中16个单词的“Case…”语句

非常感谢，詹姆斯

---

如果我需要澄清什么，请告诉我。

简化代码的一种方法是将文本框放入一个数组中，并使用For循环遍历每个文本框，这样您就只有一个Select Case。例如：

Dim textBoxArr() As TextBox = {A2, A3, A4, A5, etc..}
For Each tb As TextBox In textBoxArr
    Select Case tb.Text
        Case "RESNO"
            tb.Text = "-15,55,0"
        Case "DOGAL"
            tb.Text = "-15,54,0"
    End Select
Next

您还可以使用一块事件代码处理多个文本框：

Private Sub TextBox_TextChanged(sender As Object, e As System.EventArgs) Handles A2.TextChanged, A3.TextChanged, A4.TextChanged, etc...

End Sub

---

你那里的东西有什么问题？除了字典之外，没有case语句也可以使用。我只是想知道是否有一种更简单的方法可以覆盖所有文本框，而不是每个文本框列出的每个case。请查看我添加的事件代码。一开始我忘了；）