Suppression texte dans listbox [Résolu]

MD - 29 janv. 2018 à 11:24 - Dernière réponse :  MD
- 29 janv. 2018 à 12:57
Bonjour,

Etant donné que j'avais eu une réponse très intéressante la dernière fois, je me permets d'en poser une nouvelle.

J'ai une listbox dans laquelle viennent s'ajouter des lignes de texte.
exemple :
TEXTE 1
TEXTE 2
TEXTE 3
Je prends au fur et à mesure les textes de cette listbox pour les traiter.

Lorsque je suis occupé à traiter le premier texte de la listbox et que ce texte est TEXTE 1, j'aimerais de suite rechercher dans la listbox si TEXTE 3 s'y trouve et l'effacer de la listbox.

Ma recherche fonctionne correctement, en effectuant le programme pas à pas je vois qu'il trouve TEXTE 3 mais je n'arrive pas à l'effacer de la listbox.

Avez-vous une astuce pour m'aider ?

merci
Afficher la suite 

7 réponses

Répondre au sujet
cs_Le Pivert 4902 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 14 février 2018 Dernière intervention - 29 janv. 2018 à 11:27
Commenter la réponse de cs_Le Pivert
0
Utile
Merci,

Désolé, j'ai oublié de mentionner que je suis en VB2017 express

Voici mon code

Private Sub SUPPRESSION001()
Dim I As Integer
TextBox6.Text = AdresseGroup.Items.Count - 1.ToString
If TextBox6.Text > -1 Then
For I = 0 To TextBox6.Text
Text_Conversion.Text = AdresseGroup.Items(I).ToString
If Text_Conversion.Text = "TEXTE 3" Then
AdresseGroup.SelectedIndex.ToString.Remove(I) <== c'est cette ligne où je n'arrive pas à trouver ce qe je dois mettre
End If
Next
End If
End Sub
Commenter la réponse de MD
cs_Le Pivert 4902 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 14 février 2018 Dernière intervention - Modifié par cs_Le Pivert le 29/01/2018 à 11:42
0
Utile
Voir ceci alors:

'removing the selected item

http://www.w3ii.com/fr/vb.net/vb.net_listbox.html

Commenter la réponse de cs_Le Pivert
0
Utile
1
Lorsque le programme passe sur la suppression de l'item est plante.
ce ne serait pas plus facile s'il me renvoyait l'index du "TEXTE 3" et que j'effacerais cet index ?
cs_Le Pivert 4902 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 14 février 2018 Dernière intervention - 29 janv. 2018 à 12:16
adapter le nom de la listBox

 Private Sub Remove()
        For i As Integer = listnew.Items.Count - 1 To 0 Step -1
            If listnew.GetSelected(i) Then
                listnew.Items.RemoveAt(i)
            End If
        Next i
    End Sub


Voilà
Commenter la réponse de MD
0
Utile
C'est énorme VB, il ne faut pas dire le contraire.
Ta solution n'a pas fonctionné mais en mixant un peu le tout, cela fonctionne.
Voici mon code

Private Sub SUPPRESSION001()
Dim index As Integer = AdresseGroup.FindStringExact("TEXTE 3")
If index > -1 Then
AdresseGroup.SetSelected(index, True)
AdresseGroup.Items.RemoveAt(index)
End If
End Sub

Je vais continue mon programme en le complexant un peu plus et on va voir si cela tient la route.
Encore merci pour vos idées
Commenter la réponse de MD
0
Utile
OK, ça tient très bien la route pour la suite de mon programme.

Merci pour vos super idées, je clôture ma question
Commenter la réponse de MD