[VB6] Je ne vois rien dans mon ListView

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB6] Je ne vois rien dans mon ListView

ludolitaliano

Débutant en VB6, j'ai réussi à mettre des enregistrements dans un ListView avec le code suivant :

Code :

Private Sub Form_Load()
'Interrogation de la base Oracle
Call ExecCodeSql(Cnx, "ALTER SESSION SET NLS_DATE_FORMAT = 'DD/MM/YYYY';" )
Dim Rs As New ADODB.Recordset
Dim itmX As ListItem
CodeSql = FrmSpreads.CodeSql
Set Rs = Cnx.Execute(CodeSql)
'mise en forme du ListView
With ListViewSelection
.ListItems.Clear
.ColumnHeaders.Clear
.ColumnHeaders.Add = " "
.ColumnHeaders.Add = "Date"
.ColumnHeaders.Add = "Emetteur"
.ColumnHeaders.Add = "Description"
.ColumnHeaders.Add = "Collateral"
.ColumnHeaders.Add = "Bucket"
.ColumnHeaders.Add = "Rating"
.ColumnHeaders.Add = "Secteur"
.ColumnHeaders.Add = "Asset-Class"
.ColumnHeaders.Add = "Maturité"
.ColumnHeaders.Add = "SpreadInterp"
.ColumnHeaders.Add = "AssetSwapSpread"
.ColumnHeaders.Add = "Prix"
.ColumnHeaders.Add = "Accrued"
.ColumnHeaders.Add = "Encours"
End With
'Chargement du ListView
Dim Nb As Integer
Nb = 0
If Not Rs.EOF Then Rs.MoveFirst
Do While Not Rs.EOF
Set itmX = ListViewSelection.ListItems.Add(, , "" )
itmX.SubItems(1) = "Date"
itmX.SubItems(2) = "Emetteur"
itmX.SubItems(3) = "Description"
itmX.SubItems(4) = "Collateral"
itmX.SubItems(5) = "Bucket"
itmX.SubItems(6) = "Rating"
itmX.SubItems(7) = "Secteur"
itmX.SubItems(8) = "Asset-Class"
itmX.SubItems(9) = "Maturité"
itmX.SubItems(10) = "SpreadInterp"
itmX.SubItems(11) = "AssetSwapSpread"
itmX.SubItems(12) = "Prix"
itmX.SubItems(13) = "Accrued"
itmX.SubItems(14) = "Encours"
Rs.MoveNext
Nb = Nb + 1
Loop
Text_NbLignes.Text = Nb
Rs.Close
End Sub

Je me suis créé un contrôle grâce auquel je vois que j'ai bien un certain nombre de lignes reçues du recordset mais je ne vois rien dans le ListView.
Peut-être est-ce un problème de format de police ?
Je peux me déplacer dans le ListView avec les flèches mais je ne vois qu'un carré bleu.
Qu'en pensez-vous ?

Message édité par ludolitaliano le 03-05-2004 à 09:40:28

Publicité

drasche

1) tu devrais mettre le listview en mode View -> Report, là tu es sans doute dans le mode par défaut (icônes).
2) Tu ne vois rien car la propriété .Text n'a pas été remplie. Tu n'as rempli que les SubItems qui ne sont visibles qu'en mode Report.

Message édité par drasche le 03-05-2004 à 09:45:21

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

ludolitaliano

Ah ok ! Merci.
[Désolé je suis débutant]
Quelle propriété du ListView faut-il modifier pour passer de View à Report, je ne vois pas de propriété "mode".[/Désolé je suis débutant]
Merci Drasche !

drasche

je me suis mal exprimé, la propriété s'appelle View.

ludolitaliano

Super ! Merci Drasche

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB6] Je ne vois rien dans mon ListView

Sujets relatifs
VB6 Contrôle data	Installeur pour VB6
probleme avec une requete sous vb6 sur une chaine de caractere ....	[VB6] Comment faire passer une valeur d'un formulaire à un autre
Rien	comment attaquer le dictionnaire de microsoft avec VB6
[VB6] Caractère de fin de ligne de fichier	[VB6] Parcourir les contrôles dans une frame
[Résolu][VB6] Comment customiser le curseur de souris?	ListView & Requêtte
Plus de sujets relatifs à : [VB6] Je ne vois rien dans mon ListView

Page générée en 0.050 secondes