Listcheck

Const NonSelezionato = 1
Const Selezionato = 2
Private itmSel as ListItem
'nel form Load:

Dim itmX As ListItem
Dim i As Integer
Dim col As ColumnHeader
Set col = ListView1.ColumnHeaders.Add()
ListView1.SmallIcons = ImageList1
For i = 1 To 10
Set itmX = ListView1.ListItems.Add()
itmX.SmallIcon = NonSelezionato
itmX.Text = "ListItem " & i
Next
ListView1.HideColumnHeaders = True
ListView1.View = lvwReport
ListView1.LabelWrap = False
'nell'evento Click della ListView:

With ItmSel
If .SmallIcon = NonSelezionato Then
.SmallIcon = Selezionato
Else
.SmallIcon = NonSelezionato
End If
End With
'e per finire sempre nella ListView nell'evento ItemClick:

Set ItmSel = Item
'Gi… con queste poche linee, un controllo ListView ed un controllo ImageList

'Š possibile simulare la lista di checkbox cliccabili. E' possibile anche

'simulare una lista di OptionButton aggiungendo una sola linea nell'evento

'ItemClick della ListView (semmai utilizzando anche delle immagini pi-

'appropriate):

If Not ItmSel Is Nothign Then ItmSel.SmallIcon = NonSelezionato
Set ItmSel = Item
'Quando sar… necessario sapere quali checkbox sono state selezionate baster…

'usare il seguente codice:

Dim i as Integer
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SmallIcon = Selezionato Then ....
Next