Effacer éléments listbox

Version imprimable

Bonsoir tout le monde,

Je vous expose mon problème. Je réalise un petit programme dans le cadre d'un projet ( niveau débutant ), et j'en suis à la fin.

Dans mon programme il y a deux listebox qui se remplissent manuellement et de facon proportionnelle. Si je veux rentrer une valeur dans la première listebox, je dois rentrer obligatoirement une valeur dans la seconde.

Mon problème réside dans le fait que je n'arrive pas a supprimer comme je le souhaite. Je vous explique :

- lorsque je sélectionne une valeur dans la première listebox et que je l'efface à l'aide d'un bouton que j'ai fait, alors automatiquement il efface la valeur correspondante dans la seconde. ( cette partie j'y suis arrivé ). L'inverse est possible.

Mais je n'arrive pas à faire en sorte que lorsque je selectionne une valeur dans la lb1 et la valeur correspondante dans la lb2 alors je peux effacer aussi, en revanche si je selectionne une valeur dans la lb1 et une valeur qui ne correspond pas dans la lb2 alors impossible et apparition d'un message d'erreur.

Je ne sais pas si j'ai été clair, si vous ne comprenez pas, je reste à disposition pour répondre. En tout cas je vous remercie de votre attention. ;)

Edit
je vous mets la partie de code que j'ai pour le moment pour cette partie
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub effacerBoutonOK() Dim valeur1 As Integer Dim valeur2 As Integer Dim i As Byte Dim tour As Byte Dim nbreTours1 As Byte Dim nbreTours2 As Byte valeur1 = lstNotes.SelectedItem valeur2 = lstCoeff.SelectedItem nbreTours1 = lstNotes.Items.Count nbreTours2 = lstCoeff.Items.Count For tour = 1 To nbreTours1 And nbreTours2 For i = 0 To lstNotes.Items.Count - 1 Or lstCoeff.Items.Count - 1 If valeur1 = lstNotes.Items.Item(i) Or valeur2 = lstCoeff.Items.Item(i) Then lstNotes.Items.RemoveAt(i) lstCoeff.Items.RemoveAt(i) Exit For End If Next i Next tour
Malheureusement je viens de m'apercevoir qu'il y a un gros problème. Effectivement j'ai une listebox pour mes notes, une autre pour mes coefficients, mais lorsque j'ai une note identique à mon coefficient plusieurs fois ( exemple 4 notes ayant pour valeur 3 en coeff et 3 en notes ), et bien si je veux supprimer une de ces lignes, le bouton va m'effacer les 3 autres notes et coeff car les valeurs sont identiques. Je suis complètement foutu :aie:

Bonjour,
une autre voie :
récupérer l'index de l'item sélectionné, et effacer son correspondant.
Dans le case, on envisage tous les cas de figure, donc à compléter au besoin.
A voir ce bout de code (pour du simple select) :

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
        Dim idx1 As Int32 = -1
        Dim idx2 As Int32 = -1
 
        idx1 = ListBox1.SelectedIndex
        idx2 = ListBox2.SelectedIndex
 
        Select Case True
            Case idx1 = -1 And idx2 = -1
                Exit Select
            Case idx1 > -1 And idx2 = -1
                ListBox1.Items.RemoveAt(idx1)
                ListBox2.Items.RemoveAt(idx1)
            Case idx1 = -1 And idx2 > -1
                ListBox1.Items.RemoveAt(idx2)
                ListBox2.Items.RemoveAt(idx2)
            Case idx1 = idx2
                ListBox1.Items.RemoveAt(idx1)
                ListBox2.Items.RemoveAt(idx1)
            Case idx1 > -1 And idx2 > -1
                ListBox1.Items.RemoveAt(idx1)
                ListBox2.Items.RemoveAt(idx1)
                ListBox1.Items.RemoveAt(idx2 - 1)
                ListBox2.Items.RemoveAt(idx2 - 1)
        End Select

15/12/2011, 09h02
asmduty

Bonjour,

je pense que tu devrais revoir la logique de ton programme pour éviter ton problème.
Peut être que tu pourrais ne pas t'occuper des valeurs mes seulement des index, ainsi quand tu supprimes l'index 1 dans la première liste, l'index 1 se supprime dans la seconde.
De même, pour éviter d'avoir à afficher un message d'erreur, je pense qu'il serait plus agréable de faire en sorte que quand tu sélectionnes un index dans une liste, le même est sélectionné dans la seconde automatiquement.

Bonsoir,

J'ai reçu une très grosse aide sur un autre forum qui m'a donc permis de terminer mon programme parfaitement, car c'était le seul problème que j'avais à ma connaissance.
Pour information, je voulais utiliser les index, mais étant un débutant dans le domaine de la programmation et du VB.net, j' ai confondu les items et les index, et lorsque j'essayé avec index, je tombais constamment sur le problème de la valeur "-1". Bien entendu, je n'avais aucune idée de comment résoudre celà.

En tout cas, je vous remercie de votre aide, je vous poste le code qui a résolu mon problème ( similaire à celui proposé par chrismonoye; mais sans passer par select case ) dans le cas où un jour il peut aider quelqu'un comme moi :roll:
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 ' variables to hold listbox selected indexes Dim lb1 As Integer = ListBox1.SelectedIndex Dim lb2 As Integer = ListBox2.SelectedIndex Dim removeIndex As Integer = -1 ' make sure at least one listbox has a selected item If lb1 = -1 And lb2 = -1 Then MessageBox.Show("Please select a mark and/or a coefficient.") ' if each list has a selected item but indexes do not match then show message ElseIf lb1 > -1 And lb2 > -1 AndAlso lb1 <> lb2 Then MessageBox.Show("mark and coefficient mismatch.") ' set index for removal ElseIf lb1 > -1 Then removeIndex = lb1 Else removeIndex = lb2 End If ' ask if ok to remove If removeIndex > -1 Then If MessageBox.Show("OK to delete?", "Delete Items", _ MessageBoxButtons.YesNo, MessageBoxIcon.Question) _ = Windows.Forms.DialogResult.Yes Then ' remove items ListBox1.Items.RemoveAt(removeIndex) ListBox2.Items.RemoveAt(removeIndex) End If End If
Merci a Edgemeal pour ce code, et merci à vous ;)

16/12/2011, 09h17
asmduty

Ce code est fonctionnel, mais est-ce vraiment pratique ?
Ne serait-t-il pas plus logique/agréable de sélectionner automatiquement le coefficient qui correspond lorsque l'on change de note ?
16/12/2011, 10h31
kanoe82

En gros, tu veux dire qu'en sélectionnant une note, alors automatiquement le coefficient correspondant se sélectionne sans l'intervention de l'utilisateur ?
Pour être franc, si c'est ce que tu veux dire, et bien oui, se serait une bonne idée, mais je ne savais pas que c'était possible :roll:
16/12/2011, 10h44
asmduty

C'est ce que je veux dire en effet.
Il faut intecepter l'évenement selectedindexchanged et dans ce cas tu sélectionne dans ta deuxième liste le même index que dans la première.