Question

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

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

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

可以在任何文本框中的16个单词中的每个单词的“Case ...”语句。

非常感谢，詹姆斯

如果我需要澄清任何事情，请告诉我。

Answer 1

您可以简化代码的一种方法是将文本框放入一个数组中，并使用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

将多个文本框中的文本更改为VB2008中的数字

1 个答案: