Création de colonnes dans une listbox vb6

Création de colonnes dans une listbox vb6 - VB/VBA/VBS - Programmation

Marsh Posté le 05-07-2005 à 16:01:41    

Bonjour,  
 
J'effectue un programme sous VB6 et je voudrai récupérer des données d'une BD pour les mettre dans une listbox. (jusque là, tout va bien).  
 
Le problème c'est l'agencement de la listbox : je voudrai une présentation du même type qu'ACCESS : des lignes avec des colonnes.
 
J'ai déjà regardé et essayé les résolutions proposées dans ce forum mais je n'y arrive pas. :pfff:  
 
Comment faire???
 
Merci
 

Reply

Marsh Posté le 05-07-2005 à 16:01:41   

Reply

Marsh Posté le 05-07-2005 à 16:55:19    

tu défini le nombre de colonnes de ta listbox suivant le nombre de variable que tu vas récupérer de ta BD (a).
ListBox1.ColumnCount = a
cela définira a colonne pour ta list
ensuite pour écrire dedans
ListBox1.Column(0, 0) = "yes" (écri sur la 1er ligne de la 1ère colonne)
ListBox1.Column(1, 0) = "yes" (écri sur la 1er ligne de la 2ème colonne)...

Reply

Marsh Posté le 06-07-2005 à 11:20:01    

lhonolulu,
 
j'ai essayé avec le code que tu m'as donné mais ça ne fonctionne pas: "Erreur de compilation Méthode ou membre de données introuvable" et surligne ".ColumnCount = "
 
Je dois peut être ajouter une référence?

Reply

Marsh Posté le 06-07-2005 à 12:31:20    

j'avais oublié que columcount n'existe pas sous vb6...
ce code est un peu tordu mais marche
on cré un tableau et on le met dans la liste
 
dim tableau as variant
ReDim tableau(2, 2)
tableau(0, 0) = "ligne 0 colonne 0"
tableau(0, 1) = "ligne 0 colonne 1"
 
 
tableau(1, 0) = "ligne 1 colonne 0"
tableau(1, 1) = "ligne 1 colonne 1"
 
tableau(2, 0) = "ligne 2 colonne 0"
tableau(2, 1) = "ligne 2 colonne 1"
 
taliste.List() = tableau

Reply

Marsh Posté le 06-07-2005 à 14:40:19    

J'ai essayé avec le code ci dessus, mais ça ne fonctionne pas, il me dit "Erreur de compilation Qualificateur incorrect" , en surlignant "taliste"
 
J'ai tapé le code suivant:  
 
'''''''''''''''''''''''''''''''''''''''''''''''
Dim tableau() As Variant
ReDim tableau(2, 2)
tableau(0, 0) = "ligne 0 colonne 0"
tableau(0, 1) = "ligne 0 colonne 1"
 
 
tableau(1, 0) = "ligne 1 colonne 0"
tableau(1, 1) = "ligne 1 colonne 1"
 
tableau(2, 0) = "ligne 2 colonne 0"
tableau(2, 1) = "ligne 2 colonne 1"
 
Dim toto(3) As String
 
toto(1) = "bonjour"
toto(2) = "hello"
toto(3) = "ciao"
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 3
    For j = 0 To 2
        For k = 0 To 1
         
toto(i) = tableau(j, k)
Form3.List1 = toto(i)
        Next
    Next
Next
'''''''''''''''''''''''''''''''''''''''''''''''
 
Ca ne bug pas mais ça ne fonctionne pas non plus!!!
 
Sais tu d'où ça peut venir?

Reply

Marsh Posté le 06-07-2005 à 15:56:04    

en fait, "talist" c le nom de la ta listbox sur ta userform.
par défaut c'est listbox1, listbox2...
la tienne doit s'appeler list1. remplacer "taliste" par "list1"
 
Mais de toute facon, ca ne changera rien car vb6 n'accepet pas les listbox à plusieurs colonnes...
 
Ce sont les listview qui permettent de créer plusieurs colonnes. Mais c'est plus difficile à utiliser. et la dessu je peux pas t'aider. dsl
bon courage (tu vas en avoir besoin...)
ou alors tu exportes sous excel.

Reply

Marsh Posté le 06-07-2005 à 16:04:18    

ça me prend le choux cette histoire! lol
Mais bon, je v bien trouver une solution...
 
Ok merci quand même c'est gentil de m'avoir aidé!

Reply

Marsh Posté le 06-07-2005 à 17:46:41    

Pourquoi tant de haine ? ne t'énerves pas Alice. Tu es au pays des merveilles du vb...
Après la connerie, passons aux choses sérieuses.
Pour comprendre le fonctionnement d'une listview va sur :  
http://www.excelabo.net/moteurs/bestclics.php
et télécharges : fv-listview (fait une recherche sur la page internet du mot listview).
Dans ce fichier il y a un code pour la création d'une belle listview à 3 colonnes. comme dn tes reves...
good luck and be cool

Reply

Marsh Posté le 06-07-2005 à 17:48:02    

On ne siat jms...
pour voir le code tu appuis sur "alt" et "F11" et ensuite tu doubles click sur la fenetre.

Reply

Marsh Posté le 07-07-2005 à 13:36:21    


Je ne m'énerve pas du tout ,désolée pour cette mauvaise impression :pt1cable:  
 
Merci pour ce lien,c'est très gentil, je vais essayer comme ça. ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed