Selectionner le dernier/premier element d'une listbox [Résolu]

cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 8 nov. 2011 à 19:51 - Dernière réponse : ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention
- 9 nov. 2011 à 21:35
Bonjour, j'ai mis une listbox sur une form, des éléments et je voudrais, avec deux boutons, selectionner le premier ou le dernier élément de la listbox.
Est-ce possible. Merci, bonne soirée


Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Afficher la suite 

21 réponses

Répondre au sujet
Utilisateur anonyme - 9 nov. 2011 à 20:10
+3
Utile
Oups il manque une ligne :
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lb As New ListBox With {.Bounds = New Rectangle(10, 10, 100, 200)}
        lb.Items.Add("baba")
        lb.Items.Add("bibi")
        lb.Items.Add("bubu")
        lb.Items.Add("bobo")
        Me.Controls.Add(lb)
        MessageBox.Show("premier : " & lb.Items.Item(0).ToString)
        MessageBox.Show("dernier : " & lb.Items.Item(lb.Items.Count - 1).ToString)
        lb.SelectedIndex = lb.Items.Count - 1
    End Sub
End Class
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Utilisateur anonyme
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 8 nov. 2011 à 20:04
0
Utile
Salut

Dim  firstelement,lastelement As String
firstelement = ListBox1.Items(0).ToString
lastelement = ListBox1.Item(ListBox1.Items.Count - 1).ToString
Commenter la réponse de cs_ShayW
NHenry 14129 Messages postés vendredi 14 mars 2003Date d'inscription 19 avril 2018 Dernière intervention - 8 nov. 2011 à 20:05
0
Utile
Bonjour,

As-tu regardé SelectedIndex et Items.Count de la ListBox ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Commenter la réponse de NHenry
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 8 nov. 2011 à 21:19
0
Utile
Merci NHenry, j'ai effectivement regardé SelectedIndex :
ListBox1.SelectedIndex = 0

cela selectionne le permier élément.
Mais je n'arrive pas à trouver comment faire pour séléctionner le dernier item.


Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
NHenry 14129 Messages postés vendredi 14 mars 2003Date d'inscription 19 avril 2018 Dernière intervention - 8 nov. 2011 à 21:26
0
Utile
Bonjour,

En reprenant le message de ShaW :
ListBox1.Items.Count - 1

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Commenter la réponse de NHenry
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 9 nov. 2011 à 16:12
0
Utile
Bonjour, Je n'arrive pas a mettre le code
ListBox1.Items.Count - 1 

cela me met automatiquement
ListBox1.Items.Count(-1)

et c'est souligné. Erreur:
Un accès à la propriété doit assigner la propriété ou utiliser sa valeur.



Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 9 nov. 2011 à 16:16
0
Utile
Et si j'écris ceci:
Dim lastelement As Integer
        lastelement = ListBox1.Item(ListBox1.Items.Count - 1).ToString

cela souligne "ListBox1.Item" (avant la parenthèse)
et cela me met ça comme erreur:
'Item' n'est pas un membre de 'System.Windows.Forms.ListBox'.



Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 9 nov. 2011 à 17:12
0
Utile
Salut
Dim lastelement As Integer
        lastelement = ListBox1.Items(ListBox1.Items.Count - 1).ToString


j'avais oublié le s items
Commenter la réponse de cs_ShayW
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 9 nov. 2011 à 18:30
0
Utile
Merci, le programme se lance, mais il y a un probleme, au moment d'appuyer sur button2, l'application "Crashe" et il y a ce message
Une exception de première chance de type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dll


Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
cs_ShayW 3238 Messages postés jeudi 26 novembre 2009Date d'inscription 14 mars 2018 Dernière intervention - 9 nov. 2011 à 18:35
0
Utile
Merci, le programme se lance, mais il y a un probleme, au moment d'appuyer sur button2, l'application "Crashe" et il y a ce message


Oui mais je ne peux pas deviner ce que tu
as écrit comme code
Commenter la réponse de cs_ShayW
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 9 nov. 2011 à 18:42
0
Utile
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim lastelement As Integer
        lastelement = ListBox1.Items(ListBox1.Items.Count - 1).ToString
    End Sub



Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 9 nov. 2011 à 19:18
0
Utile
Bonjour,
voilà qui te montre les deux (à toi répatrir entre tes deux boutons, comme tu le souhaites) :
Dim mes_deux As String
With ListBox1
   mes_deux "tu as un nb d'items " & .Items.Count.ToString
   mes_deux += vbCrLf & "le premier contient " & .Items(0).ToString
   mes_deux += vbCrLf & "le dernier contient " & .Items(.Items.Count - 1).ToString
End With
MessageBox.Show(mes-deux)


et dans ton code, "Dim lastelement As Integer" ne peut être typé en integer, puisque tu demandes par ailleurs un string ! (tostring) !

Si le bout de code ci-dessus provoque une erreur, rentre en mode debug et tu y découvriras la raison (probablement une absence d'articles dans ta listbox)
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 9 nov. 2011 à 19:38
0
Utile
Merci beaucoup UcFoutu, mais cela récupère les données. Y-a-t-il un moyen pour sélectionner le dernier item.
Sinon merci pour ce code,il est très utile.

Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
Utilisateur anonyme - 9 nov. 2011 à 19:44
0
Utile
Dim mes_deux As String
Commenter la réponse de Utilisateur anonyme
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 9 nov. 2011 à 19:47
0
Utile
Y-A t-il une solution pour séléctionner le dernier élément d'une listbox ? Merci.


Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
Utilisateur anonyme - 9 nov. 2011 à 20:07
0
Utile
On te l'a déjà montré plus haut :
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lb As New ListBox With {.Bounds = New Rectangle(10, 10, 100, 200)}
        lb.Items.Add("baba")
        lb.Items.Add("bibi")
        lb.Items.Add("bubu")
        lb.Items.Add("bobo")
        Me.Controls.Add(lb)
        MessageBox.Show("premier : " & lb.Items.Item(0).ToString)
        MessageBox.Show("dernier : " & lb.Items.Item(lb.Items.Count - 1).ToString)
    End Sub
End Class
Commenter la réponse de Utilisateur anonyme
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 9 nov. 2011 à 20:11
0
Utile
Je crois que je n'ai pas été assez clair.
Je vais rééxliquer.
Dès que j'appuie sur un bouton, le dernier élément est séléctionné, comme si on avait cliqué dessus, en surbrillance, je ne veux pas récupérer la valeur. Mais merci pour ce code tout de même.


Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
cs_Weathley 73 Messages postés samedi 29 octobre 2011Date d'inscription 12 décembre 2011 Dernière intervention - 9 nov. 2011 à 20:12
0
Utile
Oops , problème résolu, je n'avais pas vu l'edition de banana 32


Cordialement, Weathley

**********************************************************
Apprenti codeur en Vb
Commenter la réponse de cs_Weathley
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 9 nov. 2011 à 20:17
0
Utile
Bonjour, Banana32,
T'inquiète pas,
Dim mes_deux As String

m'a paru tout-à-fait en harmonie avec toutes ces coui****nades (et n'a pas été choisi au hasard).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
Utilisateur anonyme - 9 nov. 2011 à 21:29
0
Utile
Bonsoir ucfoutu,
et n'a pas été choisi au hasard

MessageBox.Show(mes-deux)

J'en ris encore

Bonne nuit.
Commenter la réponse de Utilisateur anonyme

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

selectionner le dernier/premier element d'une listbox - page 2