[VB6] Je ne vois rien dans mon ListView

Je ne vois rien dans mon ListView [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 03-05-2004 à 09:39:33    

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

Code :
  1. Private Sub Form_Load()
  2.     'Interrogation de la base Oracle
  3.     Call ExecCodeSql(Cnx, "ALTER SESSION SET NLS_DATE_FORMAT = 'DD/MM/YYYY';" )
  4.    
  5.     Dim Rs As New ADODB.Recordset
  6.     Dim itmX As ListItem
  7.     CodeSql = FrmSpreads.CodeSql
  8.     Set Rs = Cnx.Execute(CodeSql)
  9.    
  10.     'mise en forme du ListView
  11.     With ListViewSelection
  12.         .ListItems.Clear
  13.         .ColumnHeaders.Clear
  14.         .ColumnHeaders.Add = " "
  15.         .ColumnHeaders.Add = "Date"
  16.         .ColumnHeaders.Add = "Emetteur"
  17.         .ColumnHeaders.Add = "Description"
  18.         .ColumnHeaders.Add = "Collateral"
  19.         .ColumnHeaders.Add = "Bucket"
  20.         .ColumnHeaders.Add = "Rating"
  21.         .ColumnHeaders.Add = "Secteur"
  22.         .ColumnHeaders.Add = "Asset-Class"
  23.         .ColumnHeaders.Add = "Maturité"
  24.         .ColumnHeaders.Add = "SpreadInterp"
  25.         .ColumnHeaders.Add = "AssetSwapSpread"
  26.         .ColumnHeaders.Add = "Prix"
  27.         .ColumnHeaders.Add = "Accrued"
  28.         .ColumnHeaders.Add = "Encours"
  29.     End With
  30.        
  31.     'Chargement du ListView
  32.     Dim Nb As Integer
  33.     Nb = 0
  34.     If Not Rs.EOF Then Rs.MoveFirst
  35.     Do While Not Rs.EOF
  36.         Set itmX = ListViewSelection.ListItems.Add(, , "" )
  37.         itmX.SubItems(1) = "Date"
  38.         itmX.SubItems(2) = "Emetteur"
  39.         itmX.SubItems(3) = "Description"
  40.         itmX.SubItems(4) = "Collateral"
  41.         itmX.SubItems(5) = "Bucket"
  42.         itmX.SubItems(6) = "Rating"
  43.         itmX.SubItems(7) = "Secteur"
  44.         itmX.SubItems(8) = "Asset-Class"
  45.         itmX.SubItems(9) = "Maturité"
  46.         itmX.SubItems(10) = "SpreadInterp"
  47.         itmX.SubItems(11) = "AssetSwapSpread"
  48.         itmX.SubItems(12) = "Prix"
  49.         itmX.SubItems(13) = "Accrued"
  50.         itmX.SubItems(14) = "Encours"
  51.         Rs.MoveNext
  52.         Nb = Nb + 1
  53.     Loop
  54.     Text_NbLignes.Text = Nb
  55. Rs.Close
  56. 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
Reply

Marsh Posté le 03-05-2004 à 09:39:33   

Reply

Marsh Posté le 03-05-2004 à 09:45:09    

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)
Reply

Marsh Posté le 03-05-2004 à 09:51:00    

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 !
 

Reply

Marsh Posté le 03-05-2004 à 09:51:50    

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


---------------
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)
Reply

Marsh Posté le 03-05-2004 à 09:54:15    

Super ! Merci Drasche

Reply

Sujets relatifs:

Leave a Replay

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