Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 11
  1. #1

    [VB6] Icone in una listview

    Ho usato questo codice per aggiungere un'icona ad ugni record visualizzato ma quando carico il Form mi da l'errore limiti esauriti.Premetto che ho associato il controllo imagelist caricando all'interno l'icona da visualizzare ma nulla da fare.Grazie Mille


    Private Sub Form_Activate()


    List1.Refresh
    MDIForm1.Enabled = False

    Dim itmX As ListItem
    Dim DB As Database

    Dim sQL As String
    List1.ListItems.Clear
    sQL = "select * from Rubrica where [DataChiusura] is null "


    Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
    Set RS = DB.OpenRecordset(sQL)
    Do Until RS.EOF
    Set itmX = List1.ListItems.Add(Icon)

    With RS
    itmX.Text = .Fields("ID")
    itmX.SubItems(1) = .Fields("O_F")
    itmX.SubItems(2) = .Fields("Piano")
    itmX.SubItems(3) = .Fields("Call_Center")
    itmX.SubItems(4) = .Fields("Operatore_SIT")
    itmX.SubItems(5) = .Fields("DataApertura")
    itmX.SubItems(6) = .Fields("OraApertura")

    RS.MoveNext
    End With
    Loop

    End Sub

  2. #2
    Utente di HTML.it
    Registrato dal
    Jan 2006
    Messaggi
    156
    io farei cosi':
    1)setta la listview in modalita' report
    2)setta elenco immagini normali e ridotte sulla list image che hai usato
    3)
    Dim mitem
    Do Until Rs3.EOF
    On Error Resume Next
    Set mitem = ListView3.ListItems.Add(, , Rs3!Piano, "piano", "piano")
    mitem.SubItems(1) = Rs3!PuntoPiano
    mitem.SubItems(2) = Int(Rs3!FrequenzaCorretta)
    Rs3.MoveNext
    Loop
    Rs3.Close

    rs3 e' il recordset da me usato.Inserisci il tuo
    rs3!Piano e' il nome del campo del mio recorset .Inserisci il tuo campo
    i campi "piano","piano" sono i nomi dell'icona caricata nella image list.

    Se non sono stato chiaro fammi sapere

  3. #3
    Ho provato ma mi iserisce accanto al campo "ID" lo spazio vuoto per visualizzare l'icona ma non, me la visualizza.

  4. #4
    Utente di HTML.it
    Registrato dal
    Jan 2006
    Messaggi
    156
    una cosa.Usi la listview o la list box?

  5. #5
    listview in modalita' report.

  6. #6
    Utente di HTML.it
    Registrato dal
    Jan 2006
    Messaggi
    156
    nell'image list le proprieta' key e index sono compilate o lasciate vuote?

  7. #7
    Utente di HTML.it
    Registrato dal
    Jan 2006
    Messaggi
    156
    prova cosi'
    Set itmX = List1.ListItems.Add(, , , "Nome Icona", "Nome Icona")

  8. #8
    Formidabile funzica.Ottimo!!!!!!!!!!!!Gazie mille!!!!!!!!!!

  9. #9
    Utente di HTML.it
    Registrato dal
    Jan 2006
    Messaggi
    156
    figurati.

  10. #10

    scusa

    ma è da tempo che cerco di fare cio che avete fatto mi potete consigliare come fare?

    Grazie per l'aiuto
    Un mondo senza SOGNI è un mondo senza GIOIA

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.