German Hilfe zu Listview

chefe82

Member
Licensed User
Longtime User
Hallo zusammen,

ich lade per HttpUltils2 daten und die kommen als JSON vom Server.
Jetzt lade ich nur bestimmte Spalten in die Listview. Wie kann ich den Rest über ListView1_ItemClick in einer Mgbox anzeigen lassen? mit Value bekomme ich ja alles angezeigt. Ich brauche aber nur Spalte x2, x3,x x6, x9 und x10 die anderen werden ja in der Listview angezeigt.

Sub JobDone (Job As HttpJob)
ProgressDialogHide
If Job.Success = True Then
Dim strReturn As String = Job.GetString
Dim parser As JSONParser
parser.Initialize(strReturn)
If Job.JobName = "suche" Then
Dim Members As List
Members = parser.NextArray 'returns a list with maps
For i = 0 To Members.Size - 1

m = Members.Get(i)


ListView1.AddTwoLines(m.Get("x1") & " " & m.Get("x4") & " " & m.Get("x5") & " " & m.Get("x7") , m.Get("x8"))
Next
Else
ToastMessageShow("Error: Invalid Value", True)
End If
Else

ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub

Ich hoffe ihr versteht was ich meine und Entschuldige mich für meine schlechte ausdrucks weiße.

Hoffe mir kann da jemand helfen.
 

DonManfred

Expert
Licensed User
Longtime User
Füge alle daten in eine Map, benutze die map bei lv.addsingleline2(...) als value.
Im itemclick event bekommst du dann diese map mit allen daten
 

chefe82

Member
Licensed User
Longtime User
Ich kann dir da leider net folgen. Bin da noch Anfänger
könntest du mir ein Beispiel Posten?
 

chefe82

Member
Licensed User
Longtime User
Nach mehrerem Testen habe ich es jetzt hinbekommen

danke für den Denkanstoß

Gruß
 
Last edited:

DonManfred

Expert
Licensed User
Longtime User
B4X:
    lv.Clear
    Dim m As Map
    m.Initialize
    m.Put("Line1","Bla bla bla")
    m.Put("Line2","ho ho ho")
    m.Put("AnotherString","Test")
    lv.AddTwoLines2(m.Get("Line1"),m.Get("Line2"),m)



Sub lv_ItemClick (Position As Int, Value As Object)
    Dim m As Map = Value
    Log("Clicked item no "&Position)
    Log("Line1: "&m.Get("Line1"))
    Log("Line2: "&m.Get("Line2"))
  Log("AnotherString: "&m.Get("AnotherString"))

   
End Sub
 

Attachments

  • lvitems.zip
    12 KB · Views: 258
Top