Spanish Como mostrar resultado Json de ListView a Panel [Solucionado]

[ebqlabs]

Hola, tengo un código que lo quiero hacer tipo panel de facebook. Por cada registro me agregue un panel index para poder diferenciarlo al momento de pinchar en cada panel.

Por el momento todos los registro lo muestro en un ListView y lo quiero realizar por Panel no por ListView.

Adjunto código

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: false
#End Region

Sub Process_Globals
   
End Sub

Sub Globals
    Dim h As HttpJob
    Dim json As JSONParser
    Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ListView1.Initialize("ListView1")
    Activity.AddView(ListView1,0,10%y,100%x,90%y)
   
    h.initialize("json", Me)
    h.Download2("DIRECCION WEB SERVICE"))
End Sub

Sub Activity_Resume

End Sub

Sub JobDone(job As HttpJob)
    If job.Success Then
        json.Initialize(job.GetString)
        CargarDatos
    Else
        Msgbox(job.ErrorMessage, "Error")
    End If
End Sub

Sub CargarDatos
    Dim m As Map
    m=json.NextObject   
    Dim data As List

    data=m.Get("data")
        ListView1.Clear
        For i=0 To data.Size-1
            m=data.Get(i)
            ListView1.AddTwoLines(m.Get("tmp_rut_pac"), m.Get("tmp_nom_pac"))
        Next
End Sub

Saludos

 

[bgsoft]

Hola, creo que en vez de querer decir como en WhatsApp has dicho como en FaceBook, si no no entiendo tu pregunta, aunque te contesto a lo que creo que quieres.

Es tan facil como incrustar el ListView en un panel

   Panel1.Initialize("")       
   ListView1.Initialize("ListView1")
   Activity.AddView(Panel1,0,10%y,100%x,90%y) ' los valores de tu ejemplo
   Panel1.AddView(ListView1,L,T,W,H) ' ponerlo donde tu quieras

Saludos

 

[ebqlabs]

Gracias, esta solucionado. Saludos