將多個文本框中的文本更改爲VB2008中的數字

Question

我期待將一組9個文本框中編號爲A2，A3，A4的5個字母的文本更改爲A9，以「-y」形式進行協調， X，Z」。這樣就可以將它們寫入Google地球的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個字，可能是在任何文本框。

非常感謝，詹姆斯

請讓我知道，如果我需要澄清任何事情。

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