Hello
Here 's my program
Sub Process_Globals
End Sub
Sub Globals
Dim List_Pays as ListView
Dim List_Regions as ListView
Dim List_Villes as ListView
Dim List_Affich as ListView
Dim Pays, Regions, Villes as Panel
Dim Name as String
End Sub
Sub Activity_Create(FirstTime As Boolean)
' Load List_Pays
' Load_List_Regions
' Load_List_Villes
Pays.Initialize("Pays")
Regions.Initialize("Regions")
Villes.Initialize("Villes")
End Sub
Sub Pays_Click
Name = "Pays"
Affich(Pays)
End Sub
Sub Regions_Click
Name = "Regions"
Affich(Regions)
End Sub
Sub Villes_Click
Name = "Villes"
Affich(Villes)
End Sub
Sub Affich(List as ListView)
List_Affich.Initialize("ListClick")
List_Affich = List
Msgbox("List_size " & List.Size,"Suivi")
Msgbox("List_Affich_size " & List_Affich.Size,"Suivi")
Activity.AddView(List_Affich,0,20,100,180)
End Sub
Sub ListClick_ItemClick(Position As Int, Value As Object)
Select Case name
Case "Pays"
Pays.Text = List_Affich.GetItem(position)
Case "Regions"
Regions.Text = List_Affich.GetItem(position)
Case "Villes"
Villes.Text = List_Affich.GetItem(position)
End Select
End Sub
if I click on Pays the first time not problem
if I click again on Pays problem
List.size = 0
List_Affich.size = 0
Why ???
Best regards
Here 's my program
Sub Process_Globals
End Sub
Sub Globals
Dim List_Pays as ListView
Dim List_Regions as ListView
Dim List_Villes as ListView
Dim List_Affich as ListView
Dim Pays, Regions, Villes as Panel
Dim Name as String
End Sub
Sub Activity_Create(FirstTime As Boolean)
' Load List_Pays
' Load_List_Regions
' Load_List_Villes
Pays.Initialize("Pays")
Regions.Initialize("Regions")
Villes.Initialize("Villes")
End Sub
Sub Pays_Click
Name = "Pays"
Affich(Pays)
End Sub
Sub Regions_Click
Name = "Regions"
Affich(Regions)
End Sub
Sub Villes_Click
Name = "Villes"
Affich(Villes)
End Sub
Sub Affich(List as ListView)
List_Affich.Initialize("ListClick")
List_Affich = List
Msgbox("List_size " & List.Size,"Suivi")
Msgbox("List_Affich_size " & List_Affich.Size,"Suivi")
Activity.AddView(List_Affich,0,20,100,180)
End Sub
Sub ListClick_ItemClick(Position As Int, Value As Object)
Select Case name
Case "Pays"
Pays.Text = List_Affich.GetItem(position)
Case "Regions"
Regions.Text = List_Affich.GetItem(position)
Case "Villes"
Villes.Text = List_Affich.GetItem(position)
End Select
End Sub
if I click on Pays the first time not problem
if I click again on Pays problem
List.size = 0
List_Affich.size = 0
Why ???
Best regards