Newsgroup: it.comp.lang.visual-basic
Titolo: [?] posizionamento colonna in una ListView (Zanna)

Ciao, Ieri ho chiesto come posizionarmi su un colonna in una ListView e
Zanna mi ha gentilmente risposto cosě:
Caption = ListView1.ListItems.Item(index).SubItems(colonna)
oppure meglio
Caption = ListView1.ListItems.item(index).ListSubItems.Item(colonna).Text
ma "index" e "colonna" cosa sarebbero??
Se ed es. dovessi posizionarmi sulla colonna 6 di 10, penso che il campo
"colonna" debba essere 6, ma il campo "index"??
E poi io dovrei inserire un valore nella colonna 6 (per una trentina di
righe), l'istruzione non dovrebbe essere invertita?? (Caption č una
variabile??)
Grazie.
Ciao, Paolo   :-))

 variabile??)
Infatti, quindi diventa (nella forma "abbreviata"):
'N.B. la *prima* colonna del ListView corrisponde a
'"ListItem.Text", le successive a "ListItem.ListSubItems(x).Text; quindi
'ListItem.ListSubItem(1) corrisponde alla *seconda* colonna e cosi' via.
'Caso 1 - il ListView e' gia' caricato con 30 elementi e 6 colonne
'e devo impostare il testo della sesta colonna
Dim i as Long
For i=1 to 30
    ListView1.ListItems(i).ListSubItems(5).Text = "Testo della colonna 6"
Next
'Caso 2 - il ListView e' vuoto e devo aggiungere 30 elementi con
'un testo nella sesta colonna
Dim i As Long
Dim TempItem As ListItem
For i = 1 To 30
    'aggiungiamo l'elemento, altre 4 colonne vuote e infine riempiamo l'ultima
    Set TempItem = ListView1.ListItems.Add
    TempItem.ListSubItems.Add
    TempItem.ListSubItems.Add
    TempItem.ListSubItems.Add
    TempItem.ListSubItems.Add
    TempItem.ListSubItems.Add , , "Testo della colonna 6"
Next
Ciao
--
Luca Dormio
luca....@tin.it

 Next
In questo modo  mi da errore di sintassi.
Ti ringrazio per la risposta e ti spiego meglio quello che vorrei fare,
perchč mi sa che ho fatto un po di casino!!!
Io vorrei ottenere una griglia che sia grassi modo cosě:
ORE    LUN    MAR    MER    GIO    VEN ORE    LUN    MAR    MER GIO    VEN
9:00                                                               9 :00
10:00                                                            10:00
11:00                                                             11:00
...                                                                    ....
...                                                                    ....
e fin ad ora ho fatto:
    ListView1.Visible = True
    ListView1.FullRowSelect = True
    ListView1.ColumnHeaders.Add , , "Ore"
    ListView1.ColumnHeaders.Add , , inizio
    ....
    ....
    ListView1.View = lvwReport
'
'   serve per inserire le ore
'
    ore = 9
    min = "00"
    For i = 1 To 36
        If min > 50 Then
            ore = ore + 1
            min = "00"
            cambio_ora = True
        End If
        tot = ore & ":" & min
        Set itmX = ListView1.ListItems.Add(, , tot)
        min = min + 10
    Next
ed ho ottenuto:
ORE    LUN    MAR    MER    GIO    VEN ORE    LUN    MAR    MER GIO    VEN
9:00
10:00
11:00
...
...
Grazie.
Ciao, Paolo :-))


         Set itmX = ListView1.ListItems.Add(, , tot)
fin qui ci sei... ora basta una cosa tipo
          for i=1 to 5
              'cinque colonne vuote (da Lun a Ven)
              itmX.ListSubitems.Add
          next
          itmX.ListSubitems.Add , , tot 'la seconda colonna ORE
