IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Boucle avec une listbox multicolonne


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Juin 2006
    Messages
    584
    Détails du profil
    Informations forums :
    Inscription : Juin 2006
    Messages : 584
    Par défaut Boucle avec une listbox multicolonne
    Salut,
    j'ai fait un petit programme pour lancer des page internet a un moment donné,
    je travail avec une base de donnée pour enregistrer les url des sites.
    dans ma listbox j'ai 2 colonnes la premier contient l'id du site et la seconde colonne contient l'adresse url:
    pour le moment j'ai ce code mais il a un probleme:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For j = 0 To ListBox1.ListCount
    StartNewBrowser (ListBox1.List(j))
    Next
    Le probleme vient du fait que ListBox1.List(j) correspond a ce qu'il y a dans la premier colonne et je voudrai sélectionner la seconde moi.

    Quelqu'un aurait une idée?
    Merci d'avance

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    essai : sinon comment as tu rempli cette list box...?

  3. #3
    Membre éclairé
    Inscrit en
    Juin 2006
    Messages
    584
    Détails du profil
    Informations forums :
    Inscription : Juin 2006
    Messages : 584
    Par défaut
    avec une petite requete sql que j'ai galéré a faire lol. et meme maintenant j'ai du mal avec. tien voila :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Set db = OpenDatabase(App.Path & "\test.mdb")
     
    sql = "select * from url"
    Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
     
    While Not rs.EOF
    ListBox1.AddItem rs.Fields("id")
    lst = ListBox1.ListCount
    ListBox1.Column(1, lst - 1) = rs.Fields("url")
    rs.MoveNext
    Wend
    merci pour ton code je vais tester ca

  4. #4
    Membre éclairé
    Inscrit en
    Juin 2006
    Messages
    584
    Détails du profil
    Informations forums :
    Inscription : Juin 2006
    Messages : 584
    Par défaut
    j'ai oublier de mettre le -1 a
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For j = 0 To ListBox1.ListCount - 1

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Sélection d'une feuille excel avec une listbox
    Par felibelle dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 25/07/2022, 17h27
  2. Alimenter une listbox multicolonnes avec un tableau de variables
    Par windsor dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 07/08/2009, 19h23
  3. Réponses: 4
    Dernier message: 21/07/2006, 14h53
  4. Probleme avec une ListBox
    Par beb30 dans le forum MFC
    Réponses: 3
    Dernier message: 02/06/2006, 11h08
  5. [debutant] Probleme avec une listBox.
    Par Mickey.jet dans le forum Delphi
    Réponses: 2
    Dernier message: 30/05/2006, 13h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo