گرفتن لیست مخاطبین

[mehrabmmp 528]

سلام و درود دوستان

 

 

چجوری می تونم لیست مخاطبین کاربر همراه با شماره هاشون بگیرم و تویه یه لیست وییوی دو خطی نشون بدم جوری که خط اول اسم مخاطب باشه خط دوم شمارش

[yaser_b4a 131]

Dim map1 As Map

    map1.Initialize

    Dim list1 As List

    list1.Initialize

    For i = 0 To listOfContacts.Size - 1

        myContact = listOfContacts.Get(i)

        list1.Add(myContact.DisplayName)

        map1.Put(myContact.DisplayName, myContact,mycontact.EMAIL_HOME)

    Next

    list1.Sort(True)

    For i = 0 To list1.Size - 1

        myContact = map1.Get(list1.Get(i))

        lvcontacts.AddSingleLine(myContact.DisplayName)

    Next

[مهدی ایزدی 9,203]

درود

به این صورت هم میتونید :

Sub Globals
	Dim cu As ContactsUtils
	Private ListView2 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	
	cu.Initialize
	For Each c As cuContact In cu.FindContactsByPhone("", False, False)
        For Each Phone As cuPhone In cu.GetPhones(c.Id)
            ListView1.AddSingleLine(c.DisplayName)
			ListView2.AddSingleLine(Phone.Number)
        Next
    Next	
End Sub

یک خطی هست و هر کدوم رو توی یک لیست ویو خاص نشون میده . شما میتونید یکیش کنید + دو خطی !