همانگونه که مستحضرید کد یا کتابخونه انتخاب مخاطب قوی و بدون باگ وجود نداره و از طرفی هم بدلیل تفاوت در ورژن های مختلف اندروید و …
مشکلاتی بوجود میاره مثلا مقدار برگشتی آرایه ها در بعضی گوشیها فرق میکنه. من هم اومدم با رجکس و همچنین تست روی گوشیهای مختلف و همچنین شماره های مختلف(فاصله دار-شماره خارج باشه-مثبت داشته باشه و..) یه چیز تمییزی ساختم.
نکته ۱: همیشه سعی کنین مثبت نود هشت شماره ها رو به صفر تبدیل کنین که من در این کد هم اینکارو کردم.
نکته۲: اگر مخاطبی شماره نداشته باشه کچ میشه و پیغام بهش میدیم که این مخاطب قابل انتخاب نیست.
نکته۳: شما کافیه توی دیزاینر دو تا ادیت تکست و یک باتن بسازین.
نکته۴: این کد رو هم در منفیست بزارین.
AddPermission(android.permission.READ_CONTACTS)
Sub Globals Dim contact As ContactPicker Private EditText1 As EditText Private EditText2 As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") contact.Initialize(Me) End Sub Sub Button1_Click contact.ShowContactPicker End Sub Sub ContactSelected(Value As ContactItem) Try EditText1.Text = Value.Name Dim stx2() As String stx2=Regex.Split("Number=",Value.PhoneNumber.Get(0)) Dim stx3() As String stx3=Regex.Split(",",stx2(1)) stx3(0)=stx3(0).Replace("+980","0").Replace("00980","0").Replace(" ","").Replace("-","").Replace("/","").Replace("\","").Replace("_","").Replace(",","").Replace(".","").Replace("+98","0").Replace("0098","0").Replace("(","").Replace(")","") EditText2.Text=stx3(0) Catch ToastMessageShow("این مخاطب قابل انتخاب نیست",True) End Try End Sub