probleme de listview

Question

Bonjour, 
j' ai un probleme avec ce code 
je lit dans un fichier txt les instrument de musique et je veux les placer dans la listeview, et j' ai une erreur avec  itmX.SubItems(1) = Bankqui dit Valeur de proprieter non valide pour  


Private Sub Form_Load()
'Initialise
Curseur_duree.Max = 2000: Curseur_duree.Min = 100

Curseur_duree.Value = 300
 Dim Voix As String, Bank As Integer, Programme As Integer
    Dim itmX As ListItem
    Dim Chemin As String
    Chemin = App.Path & "\"
    lbl_note.Caption = ""
    Canal = 0
  '  Volume = 100
  '  ROctave = 0
  '  rc = midiOutClose(hMidi)
  '  rc = midiOutOpen(hMidi, -1, 0, 0, 0)
    'Mettre le son "piano" par défaut au démarrage
  '  Set_Controller 32, 0, Canal
   ' Set_Instrument 0, Canal
    'Lister tous les instruments
    Liste_Instruments.ListItems.Clear
    'Set_Controller 0, 0, Canal
    Open Chemin & "Instrument.txt" For Input As #1
        Do While Not EOF(1)
            Input #1, Programme, Bank, Voix
            Set itmX = Liste_Instruments.ListItems.Add(, , Voix)
            itmX.SubItems(1) = Bank
            itmX.SubItems(2) = Programme
        Loop
    Close #1
    Set itmX = Nothing
    Label5.Caption = "Instrument : " & Form_accord.Liste_Instruments.selectedItem
    'Set_Controller 32, 0, Canal
    'Set_Instrument Liste_Instruments.SelectedItem.SubItems(2), Canal
Text1.Text = "tTabAccords(lCompteur) = Array(" & Chr(34) & Chr(34) & "," & Chr(34) & "V1,"
Dim i



For i = 39 To 62
couleur_note = i
couleur couleur_note
Next i
'touch(i).BackColor = &HC0E3E7
'touch(i).BackColor = &H0&




   Dim lCompteur As Long
   
   Initialise
   lstAcc.ListIndex = 0
   lstFret.ListIndex = 0
   
 
End Sub
Merci pour votre aide

cs_Jack · Answer

Salut 
 
Avant de pouvoir t'adresser aux SubItems, il faut les créer, par exemple en définissant les ColumnHeaders.
Si tu as besoin de 2 SubItems, il te faudra 3 colonnes :
- 1 pour l'item principal
- 2 pour les SubItems

Vala
Jack [MVP VB]
NB : Je ne répondrai pas aux messages privés

petiflamand · Answer

Bonjour et merci ,
Mais cela fonctionne maintenant simplement en changent le componsants microsoft component sp5 vers SP6

Probleme de listview

2 réponses

Votre réponse

Discussions similaires