Probleme et question sur les ListView!!!Résolu

Question

Bonjour,

J'ai quelque question avec un listeview.

1- est-ce que je peut avoir plusieurs colum, si oui donner moi un exemple comment ecrire dans les deux colonne.

2- Peut-on cacher la premiere colonne mais lui faire reference. exemple pour cacher la colonne et et affiche dans un msgbox ce quel contient lors de la selection de la meme ligne .

Merci
DraaFil

Gobillot · Accepted Answer

pour ajouter des colonnes:


    ListView.ColumnHeaders.Add , , "PREMIERE COLONNE", 100

    ListView.ColumnHeaders.Add , , "DEUXIEME COLONNE", 100

    ListView.ColumnHeaders.Add , , "COLONNE CACHEE", 0



pour cacher une colonne, possibilit&#233; de mettre sa taille &#224; z&#233;ro,

mais &#231;a emp&#234;chera pas l'utilisateur de la redimentionner &#224; moins de mettre:

HideColumnHeaders = True


Daniel

Clad49 · Answer

salut !
Dim UnItem As ListItem
List.ListItems.Add , texte, texte       ' on ajoute dans la premi&#233;re colone texte
Set UnItem = List.ListItems(texte)   ' on selectionne la colone ki contien texte dans la premi&#233;re colone
UnItem.SubItems(1) = texte2          'on ajoute texte2 dans la 2&#233;me colone, pour &#233;crire dans la 3 &#233;me colone remplace le 1 par 2 etc...
Fait un clique droit sur ta lisview puis propri&#233;t&#233; et cr&#233;&#233; de nouvelle colone dans 'En-t&#234;tes de colones'

Pour ta 2&#233;me question g pas compris ce que tu voul&#233; faire lol

Clad

olixelle · Answer

salut,

pour ton pb de premiere colonne cach&#233;e pour stocker une donn&#233;e, tu ferais mieux d'utiliser la propri&#233;t&#233; tag des listviewitem 

Rollerman

DraaFil · Answer

j'ai essayer les deux solution , soit que j'ai pas compris ou il me manque de quoi car sa marche pas 
1 solution , affiche riern
2. solution erreur avec listItems

Merci
DraaFil

Gobillot · Answer

faut peut-&#234;tre mettre un minimum de param&#232;tres









Private Sub Form_Load()

    Me.ScaleMode = 3

    ListView1.View = lvwReport

    

    ListView1.ColumnHeaders.Add , , "PREMIERE COLONNE", 200

    ListView1.ColumnHeaders.Add , , "DEUXIEME COLONNE", 200

    ListView1.ColumnHeaders.Add , , "COLONNE CACHEE", 0

End Sub





Private Sub Ajouter_Click()

    Dim Ligne As ListItem

    

    Set Ligne = ListView1.ListItems.Add

    Ligne.Text = "Nom"

    Ligne.SubItems(1) = "Pr&#233;nom"

    Ligne.SubItems(2) = "Adresse"

    

End Sub


Daniel

DraaFil · Answer

merci, ton code fonction mais autre question dans le listview comment faire en sorte que je ne peut pas editer le listview, je veux juste le selectionner

Merci

Gobillot · Answer

d'autres param&#232;tres int&#233;ressants:

LabelEdit = 1  (lvwManual)       '&#233;vite l'&#233;dition automatique

GridLines =
True                 
     'plus joli 

FullRowSelect = True                'pleine Ligne

HideSelection = False                'permet de toujours voir la s&#233;lection




Daniel

DraaFil · Answer

autre question sur ce sujet.

colonne1 : 0 (cache)
colonne2 : Prenom
colonne3 : Nom

je voudrais affiche le contenu de la colonne 1 dans un msgbox lors que je chois si la valeur sur la meme range dans la colone 2 

voici ce que j'ai vais mais je c'est pas comment aller chercher les donne  de la premiere colonne qui est cacher

ListView1.SelectedItem

Merci

Gobillot · Answer

quelle soit cach&#233;e ou pas on y acc&#232;de de la m&#234;me fa&#231;on

la premi&#232;re colonne c'est .Text   et les autres commencent &#224; .SubItems(1)



 MsgBox
ListView1.SelectedItem.Text                    
'premi&#232;re colonne

 MsgBox ListView.SelectedItem.SubItems(1)           'deuxi&#232;me colonne

 MsgBox ListView.SelectedItem.SubItems(2)           'troisi&#232;me colonne








Daniel

DraaFil · Answer

MsgBox ListView1.SelectedItem.Text    = nom
MsgBox ListView.SelectedItem.SubItems(1) me donne une erreur et j'ai ton exemple plus haut, je comprend psd

Gobillot · Answer

compris il manque le 1



MsgBox ListView1.SelectedItem.SubItems(1)

Daniel

DraaFil · Answer

Encore moi,

voici mon code : maListBox1.ListItems.Add.Text = !No
                        maListBox1.ListItems.Add.SubItems(1) = !Title

!No et !Title sont des champs d'une bd

Le proble que j'ai dans mon listeview c'est que toute est decaler d'un espace et j'ai juste les no et pas les titre pkoi

Merci

Gobillot · Answer

- pour le d&#233;calage d'un espace je sais pas



- pour le remplissage de la deuxi&#232;me colonne, il faut conserver la r&#233;f&#233;rence

  de la Ligne ajout&#233;e, parce l&#224; je vois pas o&#249; il a mis le title ???





    Dim Ligne As ListItem


    Set Ligne = maListBox1.ListItems.Add(, , !No)

    

    Ligne.SubItems(1) = !Title


Daniel

DraaFil · Answer

d'accord sa ne decale pas les ligne mais cette fois j'ai le  !no dans les deux colonne et j'ai pas !Title

Gobillot · Answer

pourtant on a bien mis Title

essayes autrement alors, met Title dans les deux

c'est peut &#234;tre le Title qui est faux et qui contient le num&#233;ro ???




Daniel

DraaFil · Answer

j'ai trouver le probleme, je ne lisais pas la bonne bd!

Merci
dsl pour le trouble

Probleme et question sur les ListView!!!

16 réponses

Discussions similaires