VB I controlli di VB6 pg4
In questa e nelle successive pagine illustrerò tramite la creazione di un mini programma per la gestione delle previsioni metereologiche alcuni nuovi controlli del VB6 e le nuove caratteristiche di altri controlli già in dotazione alle precedenti versioni di VB.
Il programma sarà l'implementazione di un nuovo progetto con un form sul quale  memorizzare le previsioni del tempo giorno per giorno.( Creimo solo l'interfaccia grafica senza   preoccuparci  di salvare i dati in un DataBase cosa che credo molti di voi sappia fare facilmente ). A questo scopo avremo bisogno di un controllo per selezionare un determinato giorno senza doverlo inserire manualmente, poi inseriremo 4 pulsanti che rappresentano visivamente le varie condizioni atmosferiche, una lista con le previsioni. Naturalmente i dati sul tempo li prenderemo da un servizio metereologico  ad es. le previsioni del tg5.

 

I passi da seguire per utilizzare il programma sono:

Selezionare la data di interesse

Scrivere le note se ve ne sono

Cliccare sul pulsante che corrisponde alla condizione climatica giornaliera

Ad es se il giorno 10 Febbraio 2000 c'è stata una nevicata abbondante  le azioni da compiere sono:

Selezionare il 10 Febbraio

Scrivere nella TextBox delle note  Traffico difficoltoso

Premere il pulsante con l'icona della neve

Nel LListView  sarà visualizzato l'elenco aggiornato delle condizioni climatiche

Per ottenere l'effetto negli eventi Click dei bottoni si scrive il codice seguente:

Private Sub CommandDivieto_Click (  )

Dim itmx As MSComctlLib.ListItem

Dim subitmx As ListSubItem

Set itmx= ListViewTempo.ListItems.Add ( , , "Meglio Non uscire" )

itmx.ForeColor = vbRed

Set subitmx = itmx.ListSubItems.Add ( , , DTPicker1 )

subitmx.ForeColor = vbRed

itmx.ListSubItems.Add , , Me.TextNote

End Sub

 

Private Sub CommandNeve_Click (  )

Dim itmx As MSComctlLib.ListItem

Dim subitmx As ListSubItem

ListViewTempo.SmallIcons = Me.ImageList1

Set itmx= ListViewTempo.ListItems.Add ( , , "Neve" , , "neve" )

itmx.ForeColor = vbGreen

Set subitmx = itmx.ListSubItems.Add ( , , DTPicker1 )

subitmx.ForeColor = vbGreen

itmx.ListSubItems.Add , , Me.TextNote

End Sub

 

Private Sub CommandPioggia_Click (  )

Dim itmx As MSComctlLib.ListItem

Dim subitmx As ListSubItem

ListViewTempo.SmallIcons = Me.ImageList1

Set itmx= ListViewTempo.ListItems.Add ( , , "Pioggia" , , "pioggia" )

Set subitmx = itmx.ListSubItems.Add ( , , DTPicker1 )

itmx.ListSubItems.Add , , Me.TextNote

End Sub

 

Private Sub CommandSole_Click (  )

Dim itmx As MSComctlLib.ListItem

Dim subitmx As ListSubItem

ListViewTempo.SmallIcons = Me.ImageList1

Set itmx= ListViewTempo.ListItems.Add ( , , "Sole" , , "sole" )

itmx.ForeColor = vbBlue

Set subitmx = itmx.ListSubItems.Add ( , , DTPicker1 )

subitmx.ForeColor = vbBlue

itmx.ListSubItems.Add , , Me.TextNote

End Sub

Analizziamo il codice:

Definiamo 2 oggetti itmx e subitmx di tipo ListItem e ListSubItem

Associamo al ListView il controllo ImageList1 creato precedentemente e popoliamo il ListView aggiungendo un primo ListItem con la descrizione dell'icona dell'evento atmosferico associato

Assegnamo un colore al primo ListItem

Aggiungiamo gli oggetti ListSubItem per visualizzare la dataote corrispondenti.

Notare che rispetto al vecchio ListView è possibile associare un colore diverso per ogni elemento del ListView poichè nella nuova versione ogni singolo elemento di una riga è visto come un oggetto a sè con le sue proprietà e non più come un solo oggetto.

form1.jpg (10215 byte)

In queste pagine abbiamo analizzato il controlli DTPicker , ImageList e ListView e creato una piccola applicazione che ne ci da un'idea di cosa possono fare.

Fine