|
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 Molti programmi incorporano una listbox contenente delle checkbox cliccabili Il VB 4.0 non dispone di un controllo simile ma con poche righe di codice, una ListView e un ImageList e' possibile implementarlo. Il controllo ListView ha la capacita di mostrare immagini e testo per tutte le voci presenti nella lista. Le immagini grafiche devono essere raccolte in un controllo ImageList per poter essere visualizzate in una ListView. Quindi per prima cosa bisognera inserire un controllo ListView nel form dove si intende visualizzare la lista di checkbox cliccabili, poi aggiungere anche un controllo ImageList nello stesso form. Con il tasto destro del mouse fare clic sul controllo ImageList appena posizionato nel form e scegliere dal menu la voce Proprieta. Nelle impostazioni generali assicurarsi che il bottone 16x16 sia selezionato. Spostarsi sull'impostazione delle immagini e usare Inserisci immagine per aggiungere due immagini. Per la prima immagine si utilizzer… una checkbox non selezionata, per la seconda immagine si utilizzer… una checkbox selezionata. Nella sezione delle dichiarazioni generali del form si dovra inserire il seguente codice: |