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

我期待將一組9個文本框中編號爲A2，A3，A4的5個字母的文本更改爲A9，以「-y」形式進行協調， X，Z」。這樣就可以將它們寫入Google地球的KML文件。連續有9個文本框，並且有16個需要更改的5個字母單詞。我想知道是否有一種更好的方法，而不是使用每個文本框16個單詞的「Select Case」語句。將多個文本框中的文本更改爲VB2008中的數字

這是「選擇案例」的一部分，我用的是：

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

「情況...」語句爲每個16個字，可能是在任何文本框。

非常感謝，詹姆斯

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

來源

2014-06-28 Jambinator

什麼是錯的，你有什麼存在？除了字典以外，沒有案例陳述 – Plutonix

我只是想知道是否有一種簡單的方法來完成它，一次覆蓋所有文本框，而不是爲每個文本框列出每個案例。 – Jambinator

您可以簡化代碼的一種方法是將文本框放入數組中，並使用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

來源

2014-06-28 23:56:27 Whitey

啊！是的，謝謝！ – Jambinator

查看我添加的事件代碼。我一開始就忘了;） – Whitey

應該這樣做，謝謝你的幫助:) – Jambinator

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

回答

相關問題