listboxRésolu

Question

Bonjour à tous.. 
Est-ce-que je peux afficher les données d'un fournisseur(nom,num,date) dans une lisbox de façon horizontale(pas séquentiel) ? (j'arrive à me connecter à la base mais l'affichage n'est n'est pas réussi).
Svp, aidez-moi.
MERCI

Renfield · Accepted Answer

Private Sub Form_Load()
    ListView1.ColumnHeaders.Add Text:="Titre Colonne 1"
    ListView1.ColumnHeaders.Add Text:="Titre Colonne 2"
    ListView1.ColumnHeaders.Add Text:="Titre Colonne 3"
    ListView1.ColumnHeaders.Add Text:="Titre Colonne 4"
    
    ListView1.View = lvwReport
    ListView1.ListItems.Clear
    
    With ListView1.ListItems.Add
        .Text = "Item 1 Colonne 1"
        .SubItems(1) = "Item 1 Colonne 2"
        .SubItems(2) = "Item 1 Colonne 3"
        .SubItems(3) = "Item 1 Colonne 4"
    End With
    With ListView1.ListItems.Add
        .Text = "Item 2 Colonne 1"
        .SubItems(1) = "Item 2 Colonne 2"
        .SubItems(2) = "Item 2 Colonne 3"
        .SubItems(3) = "Item 2 Colonne 4"
    End With
    With ListView1.ListItems.Add
        .Text = "Item 3 Colonne 1"
        .SubItems(1) = "Item 3 Colonne 2"
        .SubItems(2) = "Item 3 Colonne 3"
        .SubItems(3) = "Item 3 Colonne 4"
    End With
    With ListView1.ListItems.Add
        .Text = "Item 4 Colonne 1"
        .SubItems(1) = "Item 4 Colonne 2"
        .SubItems(2) = "Item 4 Colonne 3"
        .SubItems(3) = "Item 4 Colonne 4"
    End With
End Sub

Renfield · Answer

utilises une ListView, c'est bien plus adapté

HOUCEMDAR · Answer

Merci pour l'information, j'en ai vraiment besoin..J'ai essayer de l'insérer mais je trouve pas le contrôle!!!

Renfield · Answer

Projet > Composants (Ctrl+T)  > Microsoft Windows Common Controls 6.0 SP6

HOUCEMDAR · Answer

ok.. le problème c'est qu'à chaque fois j'essaye de l'ajouter vb se plante !!!!
(j'utilise vb 6.0. j ss sous vista avec une bonne configuration)

Renfield · Answer

il faut penser à lancer VB6 en mode administrateur...

HOUCEMDAR · Answer

ok.. je veux essayer.. vous êtes bien aimable pour l'aide..

HOUCEMDAR · Answer

ok.. ca marche pour listview merci..
exuse mais dans une listbox est-ceque je peux dans une list éviter l'affichage séquentielle pou afficher des informations du genre :
fournissuer  date          nb-fois
x             23/04/2009       5

Je suis reconnaissant pour ton aide..

Renfield · Answer

on peux, mais c'est moche

http://www.vbfrance.com/codes/LB_SETTABSTOPS-COLONNES-DANS-LISTBOX_20841.aspx

HOUCEMDAR · Answer

ok.. cé juste que je dois présenter une première version fonctionnelle après j'aurai le temps d'améliorer..
Merci infiniment pour ton aide..

Renfield · Answer

pas plus long a faire avec des ListView

ca prend trois minutes

HOUCEMDAR · Answer

MERCIIIIIIIIIIIIIIIIIII....
Je vais voir ca.. TU ES MON SAUVEUR!!!!!!!

HOUCEMDAR · Answer

Slt.. J'espère que tu es toujours la pour l'opération pour me sauver..
En fait avec list view cé nettement mieux 'j'ai déja insérer les colonnes).. Le problème c'est que que je sélectione les item dasn une base de donnée(la connexion est faite) donc avec l'ancienne listbox j'i prévu une boucle:

rst.Open requete_sql, cnx ' ouverture BD
If rst.EOF = True Then
MsgBox " Il n y a aucun article enregistré ", vbOKOnly + vbInformation, "Erreur"
Else
rst.MoveFirst
While Not (rst.EOF)
list_stock.liste rst("nom_artcl")
list_stock.List(i) = rst("quantite")
list_stock.List(i + 1) = rst("date_entree")
list_stock.List(i + 2) = rst("date_expiration")
i = i + 3
rst.MoveNext
Wend

End If
rst.Close


L'affichage était séquentiel et moche.. 
pour listview j'arrive pas.. 
MERCI

Renfield · Answer

rst.Open requete_sql, cnx
If rst.EOF Then 
    MsgBox " Il n y a aucun article enregistré ", vbInformation, "Erreur" 
Else 
    Do Until rst.EOF
        With ListView1.ListItems.Add 
            .Text = rst("nom_artcl") 
            .SubItems(1) = rst("quantite")
            .SubItems(2) = rst("date_entree") 
            .SubItems(3) = rst("date_expiration") 
        End With 
        rst.MoveNext 
    Loop 
End If 
rst.Close

HOUCEMDAR · Answer

MERCI cher professeur..
en fait j'ai codé comme suit :
rst.MoveFirst
While Not (rst.EOF)
With list_stock.ListItems.Add
.Text = rst("nom_artcl")
.SubItems(1) = rst("quantité")
.SubItems(2) = rst("date_entree")
.SubItems(3) = rst("date_expiration")
End With
i = i + 1
rst.MoveNext
Wend
End If

bon ca affiche que les trois sauf quantité.. T pense c'est un problème avec la requète sql??

Renfield · Answer

les boucles While Wend sont d'un autre temps
la variable i ne sert a rien ici
indente ton code

pour la quantité je ne sais pas, je ne connais pas ta requete ni ta base de données...
a voir comment tes colonnes sont définies...

HOUCEMDAR · Answer

ok prof..  en fait ja'ai utilisé le bout de code que T m'a envoyé et CA TOURNE A MERVEILLE..
non mais sincèrement comment je peux t remercier RENFIELD ...

Renfield · Answer

hehe

ton code:
.SubItems(1) = rst("quantité")

le mien:
.SubItems(1) = rst("quantite") 

attention au nom des champs.... et aux accents ^^

HOUCEMDAR · Answer

une dernière question (j'espere), en fait j'ai prévu deux boutons à coucher pour chercher tout les articles ou par nom..ca marche mais quand je pass d'un boton à un autre la liste reste remplie.. alors le 
listview_litsitems.clear  
doit être placé ou ??

Renfield · Answer

centrer une frame ?

une Form, tu veux dire...

voir sa propriété StartUpPosition

Listbox

35 réponses

Votre réponse

Discussions similaires