Bonjour,
Connaissez-vous un moyen d'automatiser une fonction ?
Je vous explique.. j'ai des données dans un tableau à 2 dimensions -> Tabdonnees(Années,Pays).
J'ai mi les années dans un combobox, et je voudrai qu'en cliquant sur une année, il m'affiche dans des textbox le chiffre correspondant à chaque pays.
Sauf que j'ai 29 Pays...
Ce qui m'oblige à écrire (si possible avec un Select Case):
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
'
'
Dim i As Integer = ComboBox1.SelectedIndex
Select i
Case 0
TextBox1.Text = Tabdonnees(1, 1)
TextBox2.Text = Tabdonnees(1, 2)
TextBox3.Text = Tabdonnees(1, 3)
TextBox4.Text = Tabdonnees(1, 4)
...
Case 1
TextBox1.Text = Tabdonnees(1, 1)
TextBox2.Text = Tabdonnees(1, 2)
TextBox3.Text = Tabdonnees(1, 3)
TextBox4.Text = Tabdonnees(1, 4)
...
End Select
End Sub
Mais j'ai 16 années (donc 16 cas) et 29 pays !!
Donc je voudrais savoir comment automatiser cette commande.. j'ai tenté ceci :
Dim i As Integer = ComboBox1.SelectedIndex
Select i
Case 0
For Each num As Integer
TextBox(num).Text = Tabdonnees(1, num)
Next num
End Select
Mais il souligne "Integer".. et.; bah je suis coincé.
De même le premier indice, je me dit que c'est Case + 1..
Ca donnerait quelque chose comme ca :
Case 0 To 16
For Each num As Integer
TextBox(num).Text = Tabdonnees(Case+1, num)
Next num
Mais bon, c'est pareil je ne sais pas comment écrire ça.
Si jamais quelqu'un a une idée elle est la bienvenue !
Merci d'avance :)