Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Type T1 (First As String, Second As String )
Dim Label1 As Label
Dim Label2 As Label
Dim Label3 As Label
Dim ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
Dim lvd As T1
lvd.Initialize
lvd.First = "Blanco"
lvd.Second = "Info del blanco"
ListView1.AddTwoLines2(lvd.First, lvd.Second,lvd)
Dim lvd As T1
lvd.Initialize
lvd.First = "Azul"
lvd.Second= "Info del Azul"
ListView1.AddTwoLines2(lvd.First, lvd.Second,lvd)
Dim lvd As T1
lvd.Initialize
lvd.First = "Amarillo"
lvd.Second= "Info del Amarillo"
ListView1.AddTwoLines2(lvd.First, lvd.Second,lvd)
Dim lvd As T1
lvd.Initialize
lvd.First = "Negro"
lvd.Second = "Info del Negro"
ListView1.AddTwoLines2(lvd.First, lvd.Second,lvd)
Dim lvd As T1
lvd.Initialize
lvd.First = "Verde"
lvd.Second = "Info del Verde"
ListView1.AddTwoLines2(lvd.First, lvd.Second,lvd)
Dim lvd As T1
lvd.Initialize
lvd.First = "violeta"
lvd.Second = "Info del violeta"
ListView1.AddTwoLines2(lvd.First, lvd.Second,lvd)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Dim lvd As T1
lvd=Value
Label2.Text =lvd.First
Label3.Text =lvd.Second
Msgbox(Value, Position)
End Sub