Retirer des élément d'une listbox en VB ??

trop con

jai fais sa

Dim ItemObject(9) As System.Object
Dim i As Integer
For i = 0 To 9
ItemObject(i) = "Item" & i
Next i
LB_ListeMachines.Items.RemoveAt(i)

mais quand je lance mon application et que je clique sur le bouton sa me surligne en jaune la ligne que j'ai souligné

il te met quoi comme erreur ?

Avec ce que tu viens d'écrire, tu vas enlever l'objet dont l'index est 9 dans ta liste (le dernier i = 9).

D'après ce que tu as écris au début, tu veux retirer ce que tu sélectionnes dans la liste. Si c'est bien ça, tu peux faire :

For Each item In ListBox1.SelectedItems
            ListBox1.Items.Remove(item)
        Next

J'ai mi ce que tu viens de me donner :

For Each item In LB_ListeMachines.SelectedItems
LB_ListeMachines.Items.Remove(item)
Next

et y me surligne en jaune toujours la ligne que jté souligné et y me dis sa :

Impossible de modifier la collection d'éléments lorsque la propriété DataSource est définie.

tente de fermer ton DataSource avant la suppression :

ObjetDataSet.Clear()

Dim ObjetDataSet As DataSet
ObjetDataSet.Clear()
For Each item In LB_ListeMachines.SelectedItems
LB_ListeMachines.Items.Remove(item)
Next

j'ai fais sa mais sa souligne en vert ce que j'ai souligné et sa me dit :
"La variable 'ObjetDataSet' est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution."

Normal pour l'erreur.
Il ne faut pas que tu créer l'objet dataset.
Tu dois avoir quelque part un "Data qq chose" qui est ouvert (c'est ce que disait l'erreur "Impossible de modifier la collection d'éléments lorsque la propriété DataSource est définie" Tu dois le fermer pour modifier les éléments de la Listbox.

bha sa me retire tjr toute ma liste

Dim liste As ListBox.SelectedIndexCollection
liste = LB_ListeMachines.SelectedIndices
For Each item In liste
LB_ListeMachines.Items.RemoveAt(item)
Next

j'ai mi sa ..

tu l'as mis dans une fonction ?
tu n'as rien d'autre qui sélectionne les éléments de ta liste ?

Quand j'ai fait mon test, je sélectionnais les éléments avec la souris, puis je supprimais l'item sélectionné.

As-tu bien 1 seul élément de sélectionné à chaque fois ?

bha jai un bouton "afficher" pour mettre dans la liste box tout les nom qui sont dans ma base
apres dans ma base chaque machine possede un secteur , yen a 2 dans mon cas
donc jai un check box qui m'affiche les machine d'un des 2 secteur et un autre qui fait la chose inverse .
dc rien qui selectionne mes éléments

est ce que j'ai du code a mettre dans la fonction de ma listbox ?

ok
jvais essayer de retranscrire tout sa
merci

En relisant ton poste principal, tu pourrais directement enlever la ligne dans l'évènement clic de la listBox

    ListBox1.RemoveItem (ListBox1.ListIndex)

Private Sub B_Afficher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Afficher.Click

Dim DT As New DataTable
DT.Clear()
Dim oleDbConnex As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\...\BDD.mdb")
Dim oleCmd As New OleDb.OleDbCommand("SELECT NomMachine FROM Machine", oleDbConnex)

Try
Dim TA As New OleDb.OleDbDataAdapter(oleCmd)
TA.Fill(DT)
With LB_ListeMachines
.ValueMember = "NomMachine"
.DisplayMember = "NomMachine"
.DataSource = DT
End With
Catch ex As Exception
MessageBox.Show("Impossible d'établir la connexion à la base !! " & ex.Message)
End Try

For i = 0 To LB_ListeMachines.Items.Count - 1
LB_ListeMachines.SetSelected(i, False)
Next

End Sub

Puisque c'est bien... je vois pas ce que la façon de remplir la listbox a à voir avec la question ??
Et puisque t'aa pas de souci, essaye de traduire la fonction que je montre plus haut en .net. :D

bha je les fait mais sa me supprime aussi tte ma liste :/

voila comment j'ai traduit :

For i = LB_ListeMachines.Items.Count - 1 To 0 Step -1
If LB_ListeMachines.SelectedItems(i) Then
LB_ListeMachines.Items.RemoveAt(i)
i = i - 1
End If
Next i

voilà la fonction de lermite 222 en vb2008 :

For i = ListBox1.Items.Count - 1 To 0 Step -1
            If ListBox1.GetSelected(i) Then
                ListBox1.Items.RemoveAt(i)
                i = i - 1
            End If
        Next i

je les mis , sa supprime toujours touttt :'(

bha je les rempli ma listbox
cest bon jai tout qui saffiche quand je clique

oui mais s'il t'indique
ListBox1.Items.Count = 0 cela signifie qu'il y a un souci.

J'ai du mal à comprendre pourquoi..

oué javoue cest bisard
cest ptet a cause du DT.clear ? vu quil est placé dans la fonction du bouton retirer et juste avant la suppression ?

essaye de l'enlever et de voir si tu as une liste avec un count un peu plus grand ;-)

Uai mais si je lenleve sa me remet lerreur d'avant , sa me surligne la ligne en jaune et sa me dit : " Impossible de modifier la collection d'éléments lorsque la propriété DataSource est définie. "

ah uai je vois ce que tu veux dire
tu parle de quel solution ?

TA.Fill(DT)
oleDbConnex.Close()
for i=0 to DT.Rows.Count -1
LB_ListeMachines.Items.Add(DT.Rows(i)("NomColonne").toString)
Next

Logiquement (mais l'informatique, est-ce une question de logique ?? ;-)), cela récupère les données et les ajoute aux éléments de la listbox (sans la lier)
A toi de me dire si ça change quelque chose.

ce code la , il faudrait que je le mette dans mon bouton de remplissage cest bien sa ??

oui

ok ok
bha je vais essayer sa ;)