Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
ListView1.Clear ' azzero la lista
' carico un po' di dati sulla ListView
Dim Mm As Map
Mm.Initialize
Mm.Put("Mittente","Mittente 1")
Mm.Put("Titolo","Titolo 1")
Mm.Put("data","Data 1")
Mm.Put("Messagio","Messaggio 1")
ListView1.AddTwoLines2(Mm.Get("Mittente") & ": " & Mm.Get("Titolo") & ", del " & Mm.Get("data"), Mm.Get("Messagio"), Mm)
Dim Mm As Map
Mm.Initialize
Mm.Put("Mittente","Mittente 2")
Mm.Put("Titolo","Titolo 2")
Mm.Put("data","Data 2")
Mm.Put("Messagio","Messaggio 2")
ListView1.AddTwoLines2(Mm.Get("Mittente") & ": " & Mm.Get("Titolo") & ", del " & Mm.Get("data"), Mm.Get("Messagio"), Mm)
Dim Mm As Map
Mm.Initialize
Mm.Put("Mittente","Mittente 3")
Mm.Put("Titolo","Titolo 3")
Mm.Put("data","Data 3")
Mm.Put("Messagio","Messaggio 3")
ListView1.AddTwoLines2(Mm.Get("Mittente") & ": " & Mm.Get("Titolo") & ", del " & Mm.Get("data"), Mm.Get("Messagio"), Mm)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Dim MessagioLetto As Map = Value
Label1.Text = MessagioLetto.Get("Titolo")
EditText1.Text = MessagioLetto.Get("Messagio")
End Sub