cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
13 nov. 2007 à 21:19
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
14 nov. 2007 à 12:57
Salut...
J'ai 2 tableau et je suis capable d'en trier un mais l'autre je suis incapable et je ne saisis vraiment pas pourquoi...
Je vous montre le code et le tableau qui ne se tri pas.
Merci d'avance
Dim j
As
Integer, k
As
Integer = 0
Dim TableauTriCoordX(0)
As
String
Dim TableauTriCoordY(0)
As
String
For j = 0
To UBound(Tableau)
If k = 0
Then
ReDim TableauTriCoordX(k)
ReDim TableauTriCoordY(k)
Else
ReDim
Preserve TableauTriCoordX(k)
ReDim
Preserve TableauTriCoordY(k)
End
If
If lblPoint_.Text =
"Point"
And txtPoint1.Text = Convert.ToDouble(Tableau(j).Split(Separateur)(0))
Or lblPoint_1.Text =
"Point"
And txtPoint2.Text = Convert.ToDouble(Tableau(j).Split(Separateur)(0))
Or lblPoint_2.Text =
"Point"
And txtPoint3.Text = Convert.ToDouble(Tableau(j).Split(Separateur)(0))
Or lblPoint_3.Text =
"Point"
And txtPoint4.Text = Convert.ToDouble(Tableau(j).Split(Separateur)(0))
ThenTableauTriCoordY(k) = Tableau(j).Split(Separateur)(1)
TableauTriCoordX(k) = Tableau(j).Split(Separateur)(2)
If k = 3
Then
Else
k = k + 1
End
If
End
If
Next j
Array.Sort(TableauTriCoordY)
Array.Sort(TableauTriCoordX)