Addition de strings dans des tableaux

Code:

---

1 2 3 4

Public Chose() As String = {"Mot1", "Mot2"} Public Chose2() As String = {"Mot3", "Mot4"} Public Chose3() As String = {""}

---

Je voudrais additionner ces deux strings et les réunir dans une seule. Est que quelqu'un connait une manière simple? J'ai essayé mais je n'ai pas réussi. Ça deviendrait alors comme ca :

Code:

---

1 2 3 4

Public Chose() As String = {"Mot1", "Mot2"} Public Chose2() As String = {"Mot3", "Mot4"} Public Chose3() As String = {"Mot1", "Mot2", "Mot3", "Mot4"}

---

En réalité il s'agit plutôt de concaténer deux tableaux de string.
Voici une solution, mais il existe probablement une méthode plus directe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Chose() As String = {"Mot1", "Mot2"} Dim Chose2() As String = {"Mot3", "Mot4"} Dim Chose3(Chose.Length + Chose2.Length - 1) As String Dim i As Integer = 0 For Each element As String In Chose Chose3(i) = element i += 1 Next For Each element As String In Chose2 Chose3(i) = element i += 1 Next

---

Une variante :

Code:

---

1 2 3 4 5

Dim Chose() As String = {"Mot1", "Mot2"} Dim Chose2() As String = {"Mot3", "Mot4"} Dim Chose3(Chose.Length + Chose2.Length - 1) As String Chose2.CopyTo(Chose3, 0) Chose.CopyTo(Chose3, 0)

---