monter ou descendre d'un élement dans une ListBox

Question

Bonjour à tous  !!!!!!!!!!!!!!!!!
Je voudrai monter ou descendre d'un élement dans une ListBox c'est à dire ex:
Bordeau
Paris
Nice
Marseille

en fait je voudrais soit monter ou descendre d'une ligne
l'élement sélectionné c'est à dire par exemple sélectionner Nice et en appuyant sur le bouton monter il doit se retrouvé devant Paris .
ou si je clique sur le bouton descendre il doit se retrouver après marseille

TRES IMPORTANT !!! J'utilise visual basic .net

je vous remercie bcp de votre aide car ca fai 3 jour que je cherche merci merci merci merci merci merci!!!!!!!!

cs_CanisLupus · Answer

Salut,

En .NET je ne sais pas mais en vb6 si tu fais :

List1.ListIndex = List1.ListIndex + 1 pour descendre
et
List1.ListIndex = List1.ListIndex - 1 pour remonter

ça devrai marcher.

Bien sûr, il faut contrôler que listindex siot > 0 et < list1.listcount-1

Si ça peut t'aider...

Cordialement

CanisLupus

ludovicanceaux · Answer

Je te remercie bcp de ton aide mai je ne sais pas avec koi remplacé ListIndex (J'ai tout essayé)

je te remercie en tout cas

econs · Answer

Un listbox nommé ListBox1,
Un bouton nommé Command1
Un formulaire nommé Form1

Un clic sur la form pour charger la listbox et un clic sur le bouton pour déplacer l'élément sélectionné vers le haut. (Pour le bas, je te laisses faire, tu vas vite trouver)
*********************************

Private Sub CommandButton1_Click()
Dim s As String
Dim i As Integer
i = ListBox1.ListIndex
s = ListBox1.List(ListBox1.ListIndex) 'récupère l'élément sélectionné
ListBox1.RemoveItem i 'l'efface
If i <> 0 Then
ListBox1.AddItem s, i - 1
ListBox1.ListIndex = i - 1
End If
End Sub

Private Sub Form1_Click()
ListBox1.AddItem "tuiytiu"
ListBox1.AddItem "ghgffg"
ListBox1.AddItem "azaza"
ListBox1.AddItem "......."
ListBox1.AddItem "*******"
ListBox1.AddItem "°°°°°°°"

End Sub
**********************************

Manu

crenaud76 · Answer

Pourquoi supprimer l'Item pour le recréer ensuite !!
En plus dans ton code, si le 1er item est sélectionner, tu le supprimes et après ... plus rien !!!

Private Sub CommandButton1_click()
Dim Buffer As String, Idx as Long

Idx = List1.ListIndex
If Idx >0 Then
  With List1
    Buffer = .List(Idx-1)
    .List(Idx-1) = .List(Idx)
    .List(Idx) = Buffer
  End With
End If


Christophe R.

cs_CanisLupus · Answer

On peut même rajouter :

.Selected(Idx - 1) = True

pour permettre de remonter (ou descendre) l'item à chaque clic.

Cordialement

CanisLupus

crenaud76 · Answer

Tout à fait mon p'tit loup !!

Christophe R.

schlumf68 · Answer

Bonsoir, voici mon code (visual studio m'affiche que l'exeption NullReferenceException n'a pas été géré. voir capture d'écran si ca fonctionne)
Public Class Form1
    Private Idx As Integer
    Public Property List1 As Object

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

End Sub

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

End Sub

Private Sub VScrollBar1_Scroll(sender As Object, e As ScrollEventArgs)

End Sub

Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        End
    End Sub
    Private Sub CommandButton2_click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Buffer As String, Idx As Long

Idx = List1.Index
        If Idx > 0 Then
            With List1
                Buffer = .List(Idx - 1)
                .Selected(Idx - 1) = True
                .List(Idx - 1) = .List(Idx)
                .List(Idx) = Buffer
            End With
        End If
    End Sub

Private Sub ListBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub
End Class

cs_Le Pivert · Answer

Bonjour à tous,

petite recherche sur Google:

 http://www.dreamincode.net/forums/topic/155775-move-items-up-and-down-in-listbox/

ce qui donne:

Public Class Form1
    ' http://www.dreamincode.net/forums/topic/155775-move-items-up-and-down-in-listbox/
    'Up
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex > 0 Then
            Dim I = ListBox1.SelectedIndex - 1
            ListBox1.Items.Insert(I, ListBox1.SelectedItem)
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
            ListBox1.SelectedIndex = I
        End If
    End Sub
    'Down
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
            Dim I = ListBox1.SelectedIndex + 2
            ListBox1.Items.Insert(I, ListBox1.SelectedItem)
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
            ListBox1.SelectedIndex = I - 1
        End If
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To 100
            ListBox1.Items.Add(i.ToString)
        Next i
    End Sub
End Class

Monter ou descendre d'un élement dans une ListBox

8 réponses

Discussions similaires