Trier des textbox

Version imprimable

09/06/2011, 16h06
tuyn-txa

Trier des textbox

Bonjour,

Je cherche à trier 6 nombres par ordre croissant. Ces nombres doivent être écrits dans des textbox par l'utilisateur dans le programme. Après le clic sur un bouton, le programme devra faire changer la couleur des 3 plus grands nombres. Je ne sais pas de quel manière procéder.

J'ai essayé de créer un tableau de label mais je n'y arrive pas. :?

Merci pour votre aide.
09/06/2011, 16h14
Psycadi

Tu mets tous les nombres dans une List(Of Integer) et tu trie la liste.

Puis, tu prends les 3 premiers et tu colories les textbox correspondantes.
09/06/2011, 16h20
Luc1an0

Salut,

Alors déjà pour répondre rapidement à la question "Faire les changer la couleur des textbox", tu ne peux pas. Il faut que tu utilises dans ce là, des "RichTextBox", qui te permettre de mettre en forme du texte, et gérer ensuite le jeu de couleur via le code. Mais c'est pas simple au niveau synthaxe.

Ensuite, pour trier tes nombres, n'utilises pas de "TextBox", mais "NumericUpDown", car cela permettra aux users de ne pas entrer autre chose qu'un nombre. Ou sinon tu controles sur l'évènement "OnTextChanged" du textbox.

Pour finir : le tri. Tu as donc tes 6 valeurs, tu les tri avec un petit algo' qui va bien, ensuite tu les mets dans un tableau d'entier. Après, heu ... Mets les dans une listbox ? ça sera plus simple que de générer des labels.
Car pour chaque label, il faudra que tu la crée, l'ajoute dans le controle parent (ton formulaire), que tu la positionnes correctement sur l'axe X & Y ... Bref, un joli bordel.

Bon, j'ai fait un formulaire avec 6 textbox (txtA, txtB...., txtF) et un bouton (btnTest) et j'ai mis ça dedans.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
    Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
        Dim lstKV As New List(Of KeyValuePair(Of Integer, TextBox))
        Dim tmpInt As Integer = 0
        If Not Integer.TryParse(txtA.Text, tmpInt) Then
            tmpInt = Integer.MaxValue
        End If
        lstKV.Add(New KeyValuePair(Of Integer, TextBox)(tmpInt, txtA))
        If Not Integer.TryParse(txtB.Text, tmpInt) Then
            tmpInt = Integer.MaxValue
        End If
        lstKV.Add(New KeyValuePair(Of Integer, TextBox)(tmpInt, txtB))
        If Not Integer.TryParse(txtC.Text, tmpInt) Then
            tmpInt = Integer.MaxValue
        End If
        lstKV.Add(New KeyValuePair(Of Integer, TextBox)(tmpInt, txtC))
        If Not Integer.TryParse(txtD.Text, tmpInt) Then
            tmpInt = Integer.MaxValue
        End If
        lstKV.Add(New KeyValuePair(Of Integer, TextBox)(tmpInt, txtD))
        If Not Integer.TryParse(txtE.Text, tmpInt) Then
            tmpInt = Integer.MaxValue
        End If
        lstKV.Add(New KeyValuePair(Of Integer, TextBox)(tmpInt, txtE))
        If Not Integer.TryParse(txtF.Text, tmpInt) Then
            tmpInt = Integer.MaxValue
        End If
        lstKV.Add(New KeyValuePair(Of Integer, TextBox)(tmpInt, txtF))
 
        lstKV.Sort(AddressOf KeyValuePairCompareByKey)
 
        For i As Integer = 0 To lstKV.Count - 1
            If i < 3 Then
                lstKV(i).Value.BackColor = Color.Aqua
            Else
                lstKV(i).Value.BackColor = Color.White
            End If
        Next
    End Sub
 
    Private Function KeyValuePairCompareByKey(ByVal x As KeyValuePair(Of Integer, TextBox), ByVal y As KeyValuePair(Of Integer, TextBox)) As Integer
        Return x.Key.CompareTo(y.Key)
    End Function

En espérant que ça t'aide

09/06/2011, 17h27
tuyn-txa

tri de textbox

merci pour vos réponses, le souci c'est qu'avec la listbox je ne peux pas voir les nombres qui se correspondent. Je m'explique :

En faite je vais avoir 6 texbox (1 pour les carottes, 1 pour les poires, 1 pour les pommes...), l'utilisateur rentre 6 numéros et dès que je clique sur le bouton, le programme calcule par exemple le prix total des pommes (grâce au nombre de pommes que j'ai entré) et au prix de la pomme et cela pour les 6 textbox.

Je retrouve ensuite lequels m'ont couté les plus chers parmi les 6.

(les pommes... étaient bien sûr un exemple :lol:)

Salut,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public sub Compter()
' 1.5 est le prix à l'unité
Dim Legume() as string
Legume(0) = Txtpomme.text * 1.5       
Legume(1) = TxtPatate.text * 1.5            
Legume(2) = TxtTomate.text * 1.5          
Legume(3) = TxtOeuf.text * 1.5             
Legume(4) = TxtCarotte.text * 1.5                 
Legume(5) = TxtNavet.text * 1.5        
 
For i = 0 To Legume.max
msgbox("le plus cher est " & Legume(i))
Next
 
End sub

Ou alors :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public sub Compter
' 1.5 est le prix à l'unité
Dim Legume() as string
Dim result as string
 
Legume(0) = Txtpomme.text * 1.5       
Legume(1) = TxtPatate.text * 1.5            
Legume(2) = TxtTomate.text * 1.5          
Legume(3) = TxtOeuf.text * 1.5             
Legume(4) = TxtCarotte.text * 1.5                 
Legume(5) = TxtNavet.text * 1.5      
 
If Legume(0) > Legume(1) Then result(0) = True
If Legume(0) > Legume(2) Then result(1) = True
If Legume(0) > Legume(3) Then result(2) = True
If Legume(0) > Legume(4) Then result(3) = True
If Legume(0) > Legume(5) Then result(4) = True
 
If result(0) = true & result(1) = true & result(2) = true & result(3) = true & result(4) = True then Plusgrand(Legume(0))
 
End sub
 
Public sub PlusGrand (byval Grand as string)
msgbox("Le plus grand est " & Legume(0))
End sub

Je finirais le code ce tantos car je vais mangé ^^"

14/06/2011, 12h01
Psycadi

Euh, je ne suis pas sûr que ce soit la meilleure méthode pour faire un tri.

Je pense qu'il vaut mieux faire une List(Of) et utiliser la méthode .Sort
18/06/2011, 16h07
tuyn-txa

...

Merci pour vos réponses ;)