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

همانگونه که مستحضرید کد یا کتابخونه انتخاب مخاطب قوی و بدون باگ وجود نداره و از طرفی هم بدلیل تفاوت در ورژن های مختلف اندروید و …

مشکلاتی بوجود میاره مثلا مقدار برگشتی آرایه ها در بعضی گوشیها فرق میکنه. من هم اومدم با رجکس و همچنین تست روی گوشیهای مختلف و همچنین شماره های مختلف(فاصله دار-شماره خارج باشه-مثبت داشته باشه و..) یه چیز تمییزی ساختم.
نکته ۱: همیشه سعی کنین مثبت نود هشت شماره ها رو به صفر تبدیل کنین که من در این کد هم اینکارو کردم.
نکته۲: اگر مخاطبی شماره نداشته باشه کچ میشه و پیغام بهش میدیم که این مخاطب قابل انتخاب نیست.
نکته۳: شما کافیه توی دیزاینر دو تا ادیت تکست و یک باتن بسازین.
نکته۴: این کد رو هم در منفیست بزارین.

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