[VB6]ListView cambiare icona

[x69asterix]

ciao,
ho una ListView popolata da diverse cartelle, all'interno di queste vi sono dei file, al momento ho associato un imagelist con una icona, in questo modo

Private Sub Form_Load()
ListOut.ColumnHeaders.Add , , "Directory Remota", 3500
    ListOut.View = lvwReport
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim POSINVIO As Integer
    Dim RITORNO As String
    If (ID = "DIR") And (State = icResponseCompleted) Then
        RITORNO = Inet1.GetChunk(1024, icString)
        POSINVIO = InStr(1, RITORNO, vbNewLine)
        While POSINVIO > 0
            If Left(RITORNO, POSINVIO - 1) <> "" Then ListOut.ListItems.Add , , Left(RITORNO, POSINVIO - 1), 1, 1
            RITORNO = Mid(RITORNO, POSINVIO + 2)
            POSINVIO = InStr(1, RITORNO, vbNewLine)
        DoEvents
        Wend
        ID = ""
    End If
End Sub

però in questo modo anche se viene visualizzato un file, l'icona associata è quella impostata nel controllo imagelist, come posso impostare un' icona diversa da quella del controllo imagelist

[814(k m49!(]

http://support.microsoft.com/kb/639195/it
magari ti interessa

[x69asterix]

ma...
non credo che faccia al mio caso io utilizzo una listview, non un filelistbox

[814(k m49!(]

dato il titolo: How to Visualizzare le icone della shell in una ListView, credevo trattasse di listview :master:

[x69asterix]

ho trovato questo codice credo che dovrebbe fare per me, ma mi và in errore, l' errore che dà è quello evidenziato:

run-time 35601
Impossibile trovare l'elemento. Il codice è questo:
ho aggiunto un imagelist con icone

come si risolve?

Private Sub Inet_StateChanged(ByVal State As Integer)
    Select Case State
    
    Case icResponseCompleted
      Dim vtData As Variant
      Dim strData As String
      Dim bDone As Boolean
      
      bDone = False
      strData = ""
      
      
      vtData = Inet.GetChunk(1024, icString)
      DoEvents
      
      'Get all Information
      Do While Not bDone
         strData = strData & vtData
         DoEvents
         
         vtData = Inet.GetChunk(1024, icString)
         If Len(vtData) = 0 Then
            bDone = True
         End If
      Loop

      Call GetFiles(strData)
    End Select
End Sub

'***************************************************8
'Get the File listing based on the return string
'from the getchunk method
'***************************************************8
Private Sub GetFiles(lsData As String)
    Dim i As Long
    Dim lsItems() As String
    Dim itmx As ListItem
    Dim lsItem As String
    'Fill array with items
    lsItems = Split(lsData, vbCrLf)
    
    'Clear Listview
    lvDir.ListItems.Clear
    
    'Loop though items
    For i = 0 To UBound(lsItems)
        lsItem = Trim$(lsItems(i))
        If lsItem <> "" Then
            'If it has a forward-slash then it is a folder
            If Right$(lsItem, 1) = "/" Then
                lsItem = Left$(lsItem, Len(lsItem) - 1)
                Set itmx = lvDir.ListItems.Add(, , lsItem, "Folder", "Folder") 
                
                'Set the tag so when clicked we can determine if it is a folder
                'or a file
                itmx.Tag = "FOLDER"
            Else
                'Its a file
                Set itmx = lvDir.ListItems.Add(, , lsItem, "File", "File")
            End If
        End If
    Next
End Sub

[alka]

Originariamente inviato da x69asterix
però in questo modo anche se viene visualizzato un file, l'icona associata è quella impostata nel controllo imagelist, come posso impostare un' icona diversa da quella del controllo imagelist

E quale icona dovresti impostare, ad esempio? :master:

[x69asterix]

nell' imagelist ho caricato due icone una icona è una cartella index 1, e una icona è un file index 2

[alka]

Originariamente inviato da x69asterix
nell' imagelist ho caricato due icone una icona è una cartella index 1, e una icona è un file index 2

E tu dovresti passare dall'una all'altra, o cosa?

[x69asterix]

Originariamente inviato da alka
E tu dovresti passare dall'una all'altra, o cosa?

uhmmmm,,
se sono cartelle l'icona deve essere quella della cartella "index 1", se sono file l'icona deve essere quella del file "index 2" se sono miste entrambi

[alka]

Originariamente inviato da x69asterix
se sono cartelle l'icona deve essere quella della cartella "index 1", se sono file l'icona deve essere quella del file "index 2" se sono miste entrambi

Miste? Quando hai incontrato una cartella che sia anche file, e viceversa? VVoVe: