none
Listbox et récupération d'un text RRS feed

  • Question

  • Bonjour,

    J'ai dans mon application besoin d'activé une picturebox en fonction d'un text bien définie d'une listbox

    Pour info la listbox remonte des infos que je ne peut pas changer car dfinie par un constructeur.

    y'a t'il une solution?

     

    Merci d'avance.

     

     

    mardi 4 mai 2010 09:15

Réponses

  • oui un booléen pour savoir si l'item exist. Il suffit ensuite d'afficher si besoin la picturebox :

    Dim exist As Boolean = Me.ListBox1.Items.OfType(Of String).Contains("item4")
    Me.PictureBox1.Visible = exist
    Cordialement

    mardi 4 mai 2010 16:30
    Modérateur
  • Bonjour,

     Tu écris :

    ---

    "Cependant je suis obliger de selectionner avec la souris l'index

    ne peut t'on pas le faire de maniere automatique ???"

    ---

    Non... variable, pas obligatoirement, exemple "automatique" :

    dim i as long
    for i = 0 to ListBox1.Items.Count-1
     if ListBox1.Items(i) = "affichage image x" then
     ' affichage de l'image x, instructions
     endif
    next i
    
    

    Cordialement.

     

    Joe.


    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    • Proposé comme réponse EhJoe mardi 4 mai 2010 17:49
    • Marqué comme réponse nini06700 mardi 4 mai 2010 18:16
    • Non marqué comme réponse nini06700 mardi 4 mai 2010 18:17
    • Marqué comme réponse Gilles TOURREAUModerator mardi 4 mai 2010 20:05
    • Modifié EhJoe mercredi 5 mai 2010 07:28 précision 1
    mardi 4 mai 2010 17:48

Toutes les réponses

  • Bonjour,

     

    Utilisez l’évènement SelectedIndexChanged du ListBox et comparez la valeur sélectée avec la valeur qui active le PictureBox:

     

      Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
     
        If Me.ListBox1.SelectedItem = "ccc" Then ‘remplacez “ccc” avec votre valeur
          Me.PictureBox1.Visible = True
        End If
      End Sub

     

    Cordialement,

    Alex

     

    • Proposé comme réponse marwa580 mardi 4 mai 2010 15:16
    mardi 4 mai 2010 13:04
  • Merci pour cette aide !

     

    Cependant je suis obliger de selectionner avec la souris l'index

     

    ne peut t'on pas le faire de maniere automatique ???

     

    Une espece de scrutateur ...

    mardi 4 mai 2010 14:12
  • Bonjour,

    vous pouvez alors tester la présence de la chaine dans les éléments de la liste après son chargement. Par exemple :

    Dim exist As Boolean = Me.ListBox1.Items.OfType(Of String).Contains("machaine")
    Cordialement

     

    mardi 4 mai 2010 15:47
    Modérateur
  • Donc la si je comprend bien je crée une variable

    Et pour afficher mon image en fonction de la variable je fais comment ?

     

    Merci pour vos réponces

    mardi 4 mai 2010 16:26
  • oui un booléen pour savoir si l'item exist. Il suffit ensuite d'afficher si besoin la picturebox :

    Dim exist As Boolean = Me.ListBox1.Items.OfType(Of String).Contains("item4")
    Me.PictureBox1.Visible = exist
    Cordialement

    mardi 4 mai 2010 16:30
    Modérateur
  • Merci beaucoup pour les explications

    Au top

    mardi 4 mai 2010 16:46
  • Bonjour,

     Tu écris :

    ---

    "Cependant je suis obliger de selectionner avec la souris l'index

    ne peut t'on pas le faire de maniere automatique ???"

    ---

    Non... variable, pas obligatoirement, exemple "automatique" :

    dim i as long
    for i = 0 to ListBox1.Items.Count-1
     if ListBox1.Items(i) = "affichage image x" then
     ' affichage de l'image x, instructions
     endif
    next i
    
    

    Cordialement.

     

    Joe.


    Joe ___ Romans et Logiciels ___ http://irolog.free.fr
    • Proposé comme réponse EhJoe mardi 4 mai 2010 17:49
    • Marqué comme réponse nini06700 mardi 4 mai 2010 18:16
    • Non marqué comme réponse nini06700 mardi 4 mai 2010 18:17
    • Marqué comme réponse Gilles TOURREAUModerator mardi 4 mai 2010 20:05
    • Modifié EhJoe mercredi 5 mai 2010 07:28 précision 1
    mardi 4 mai 2010 17:48
  • Dim exist As Boolean = Me.ListBox1.Items.OfType(Of String).Contains("item4")
    Me.PictureBox1.Visible = exist
    
    Ce code marche mais comment remettre la valeur à 0?
    mercredi 5 mai 2010 11:14