انتخاب مخاطب از دفترچه تلفن گوشی

[MahdiHD 1,748]

سلام خسته نباشید

اگر سوالم تکراری هست ببخشید ، جستجو کردم ولی به نتیجه دلخواه نرسیدم. قصد دارم با زدن بر روی یک دکمه دفترچه مخاطبین گوشی باز شود ، سپس کاربر با انتخاب یک مخاطب شماره آن مخاطب به ما داده شود! یعنی ابتدا با یک اینتنت دفترچه مخاطبین گوشی برای انتخاب مخاطب باز شود و بعد از انتخاب یک مخاطب توسط کاربر ، شماره آن مخاطب برای ما مشخص شود! پیشاپیش از پاسختان ممنونم

[mostafakazemimk 104]

 سلام

 

این رو قبلا از تو انجمن پیدا کردم خودم ازش استفاده کردم بفرمایید

اول کتابخونه  رو تیک بزن ContactPicker

این برای لود دفترچه تلفن که با فشردن باتن یک باز میشه

Sub Button1_Click
    Dim k As ContactPicker
    k.Initialize(Me)
    k.ShowContactPicker
End Sub

 و اینم برای جدا سازی شماره تلفن انتخاب شده

Sub ContactSelected(Value As ContactItem)
Dim m As String
m = Value.phonenumber
Log(m)
Dim l As List
l.Initialize
l=Regex.Split(",",m)
m=l.Get(1)
EditText1.Text=m.Replace("Number=","")
End Sub

من اون ایتم انتخاب شده رو ریختم تو ادیت تکست 1 

به همین سادگی (-:

[MahdiHD 1,748]

بسیار ممنون از راهنمایی دوستان ، برای معرفی کتابخونه ContactPicker‌. دقیقا همون کاری که مورد نیازم بود رو انجام داد. تاپیک قفل لطفا !

[atlasm 17]

سلام دوستان
ی سوال فنی...
من این کد رو اجرا کردم. اما وقتی شماره رو انتخاب میکنم گیر میده ب Permission.
اینم پیغامش
java.lang.SecurityException: Permission Denial: opening provider com.android.providers.contacts.SemcContactsProvider2 from ProcessRecord{226e6956 24786:b4a.example/u0a355} (pid=24786, uid=10355) requires android.permission.READ_CONTACTS or android.permission.WRITE_CONTACTS
راه حل چیست ؟؟؟؟

اغا حل شد...
تو قسمت Manifest اینو اضاف کردم.
AddPermission(android.permission.READ_CONTACTS)

[fun_code 216]

لطفا لینک نسخه جدید کتابخونه Contact Picker‌ رو هم قرار بدین.

ممنونم

[حاج حسین 2,098]

کتابخانه در این تاپیکه

[mahfelsoft 130]

در در 1394/09/12, 18:51:06، mostafakazemimk گفته است :

 سلام

 

این رو قبلا از تو انجمن پیدا کردم خودم ازش استفاده کردم بفرمایید

اول کتابخونه  رو تیک بزن ContactPicker

این برای لود دفترچه تلفن که با فشردن باتن یک باز میشه

Sub Button1_Click
    Dim k As ContactPicker
    k.Initialize(Me)
    k.ShowContactPicker
End Sub

 و اینم برای جدا سازی شماره تلفن انتخاب شده

Sub ContactSelected(Value As ContactItem)
Dim m As String
m = Value.phonenumber
Log(m)
Dim l As List
l.Initialize
l=Regex.Split(",",m)
m=l.Get(1)
EditText1.Text=m.Replace("Number=","")
End Sub

من اون ایتم انتخاب شده رو ریختم تو ادیت تکست 1 

به همین سادگی (-:

 

 

دوستان یه سوال . توی اون ساب contactselected که مخاطب رو توی ادیت تکست وارد میکنه .

ببینید من دو تا ادیت تکست دارم و دوتا دکمه انتخاب مخاطب برای هر کدوم از ادیت تکستام . چطوری میتونم توی ساب contactselected برای هر ادیت تکستم یه شماره خاص انتخاب کنم؟؟؟؟؟

[Elyas Erfani 3,582]

سلام مهدی جان

Sub Button1_Click
    Dim Contacts As Contacts
   Dim list1 As List
    list1 = Contacts.GetAll
    Dim listOfNames As List
    listOfNames.Initialize
    For i = 0 To list1.Size - 1
        Dim c As Contact
        c = list1.Get(i) 
        If c.DisplayName.IndexOf("@") = -1 Then 
            listOfNames.Add(c.DisplayName)
        End If
    Next
       
    listOfNames.Sort (True)
       
    Dim res As Int
    res = InputList(listOfNames, "Choose contact", -1)
    If res <> DialogResponse.CANCEL Then
        Dim name As String
        name = listOfNames.Get(res)
       
       Dim c As Contact
        For i = 0 To list1.Size
            c = list1.Get(i)
            If c.DisplayName = name Then Exit
        Next
        'Msgbox(c.GetPhones, "id")

[MahdiHD 1,748]

مثل همیشه عالی بود الیاس جان! اما من در عنوان و توضیحات هم گفتم می خوام با استفاده از اینتنت مخاطب از دفترچه مخاطب خود گوشی انتخاب بشه نه لیست مخاطبین گرفته بشه! در واقع با این کار اگر فردی تعداد زیادی مخاطب داشته باشه سرعت برنامه میاد پایین !

[Elyas Erfani 3,582]

Dim intent1 As Intent

Intent1.Initialize(Intent1.ACTION_PICK,"content://contacts/people/")

StartActivity(Intent1)

[MahdiHD 1,748]

بسیار ممنون! ولی حالا چگونه شماره مخاطب انتخاب شده رو بدست بیارم؟!

[مجید آرتا 5,874]

در 1 ساعت قبل، mahfelsoft گفته است :

 

 

دوستان یه سوال . توی اون ساب contactselected که مخاطب رو توی ادیت تکست وارد میکنه .

ببینید من دو تا ادیت تکست دارم و دوتا دکمه انتخاب مخاطب برای هر کدوم از ادیت تکستام . چطوری میتونم توی ساب contactselected برای هر ادیت تکستم یه شماره خاص انتخاب کنم؟؟؟؟؟

سلام

با کتابخونش کار نکردم ولی خب قطعا یک لیستی رو بر میگردونه دیگه ؟

شما یک لیست توی Globals  تعریف کن، این اطلاعات رو بریز توی لیست.

و از لیستت توی برنامه استفاده کن.

البته نکته ای که مد نظرت باید باشه این هستش که این لیستی که گرفته میشه احتمالا یک ایتمه نیست، مثلا اسم و شماره و نمیدونم ایمیل اینا داره، بهتره اول بریزی توی یک Map  بعد بریزی توی لیست.

[mahfelsoft 130]

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

[مجید آرتا 5,874]

در 2 دقیقه قبل، mahfelsoft گفته است :

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

ساده ترینش همینی بود که گفتم.

[Siaic 88]

یه نگاه به این بنداز

اگه بدردت میخوره بگو تا یه نمونه کد دیکه بزارم برا جدا کردن شماره و اسم...

 

1346912095Example.zip

[Siaic 88]

به جای log از msgbox استفاده کن