Show only phone contacts

D

Deleted member 103

Guest
Hi guys,

I'm writing a phone app and have this one question.
How do I show only the phone contacts, without the SIM card contacts are displayed?
The settings in the app-Contact are correct (see Appendix).

Here's my code:
B4X:
Sub FillListview
   Dim list1 As List
   ProgressDialogShow("Bitte warten...")
   
   lvContact.Clear
   list1=Contacts1.GetAll
   For i = 0 To list1.Size -1
      Contact1=list1.Get(i)
      
      name=Contact1.Name
      phoneNr=Contact1.PhoneNumber
      If Contact1.GetPhoto<>Null Then
         ImageView1.Bitmap=Contact1.GetPhoto
      Else
         ImageView1.Bitmap=imgDefault
      End If
      lvContact.AddTwoLinesAndBitmap2(name, phoneNr , ImageView1.Bitmap, Contact1)

      If i<10 Then DoEvents
   Next

   ProgressDialogHide
End Sub

Ciao,
Filippo
 

Attachments

  • Kontact-Setting.jpg
    Kontact-Setting.jpg
    43.5 KB · Views: 228
Top