listboxRésolu

Question

Bonjour a tout le monde J'ai un listbox et un bouton pour descendre un élément de cette liste La problème se trouve quand clique par faute sur cette bouton sans clique sur un élément Il s'ajoute un ligne vide sur la liste Voila le code qui j'utilise: Private Sub Command3_Click() 'descend l'item dans list1 Dim list1text As String Dim list1textindex As Integer list1textindex = List1.ListIndex If List1.List(list1textindex + 1) <> "" Then list1text = List1.List(List1.ListIndex) List1.List(list1textindex) = List1.List(list1textindex + 1) List1.List(list1textindex + 1) = list1text List1.Selected(list1textindex + 1) = True End If End Sub Le même problème se trouve avec le bouton monté d'un élément mais cette fois le programme sort totalement et si je test avec vb il se ferme Voila le code qui j'utilise: Private Sub Command4_Click() 'monter la position d'un item dans list1 Dim list1text As String Dim list1textindex As Integer If List1.ListIndex <> 0 Then list1text = List1.List(List1.ListIndex) list1textindex = List1.ListIndex List1.List(list1textindex) = List1.List(list1textindex - 1) List1.List(list1textindex - 1) = list1text List1.Selected(list1textindex - 1) = True End If End Sub Merci de répondre :

mortalino · Accepted Answer

Salut,

essai ça :

    Private Sub Command4_Click()
If List1.ListIndex = -1 Then Exit Sub     'rajoute ça, si rien est sélectionné dans la liste, la procédure ne s'effectue pas

      'monter la position d'un item dans list1
       Dim list1text As String
       Dim list1textindex As Integer


       --If List1.ListIndex <> 0 Then--   'du coup, plus besoin de ce "If"
       list1text = List1.List(List1.ListIndex)
       list1textindex = List1.ListIndex
       List1.List(list1textindex) = List1.List(list1textindex - 1)
       List1.List(list1textindex - 1) = list1text
       List1.Selected(list1textindex - 1) = True
     End If       ' et donc le "End If" à supprimer aussi
     End Sub

asecher · Answer

1 - Premier point, impl&#233;menter une gestion d'erreur
(en brutal :
On Error Goto ErrMax:
....
ErrMax:
Err.Clear
Exit sub
)
2 - Tu dois avoir une notion de SelectedItem &#233;gal &#224; -1 si rien n'est s&#233;lectionn&#233;.
Tu peux donc v&#233;rifier &#231;a avand de rentrer dans ton traitement.

Cordialement,

Alain 31

Listbox

2 réponses

Discussions similaires