گرفتن مقدار در contact picker و نمایش آن در تکست

[salmana 174]

لینک

 

سوالم مربوط به لینک بالاست . چون قفل بود این جا میپرسم

Sub Activity_Create(FirstTime As Boolean)
	Dim k As ContactPicker
	k.Initialize(Me)
	k.ShowContactPicker
End Sub

Sub ContactSelected(Value As ContactItem)
	lbl.Text=Value.Name
	btn.text=Value.PhoneNumber
End Sub 

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

 

با تشکر

 

 

[salmana 174]

امروز دوباره رفتم سورس رو نگاه کردم و دیدم که امروز بهم لوگ از مقدار گرفتنش داد و بعد اومدم با دستور رجکس شماره ها رو ازش در اوردم....... من در این تعجبم که چرا قبلا مقدار نمیگرفت

Sub ContactSelected(Value As ContactItem)
Dim m As String
m=Value.PhoneNumber
Dim l As List
l.Initialize
l=Regex.Split("Number=",m)
Dim ss As String
ss=l.Get(1)
Dim l2 As List
l2.Initialize
l2=Regex.Split(",",ss)
m=l2.Get(0)
EditText1.Text=m
End Sub

[salmana 174]

اگه سورس یا کتابخانه غیر از این هم سراغ دارین عنایت بفرمایین

 

ممنون

[salmana 174]

اینم سورس

 

دانلود

 

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

 

کمکککککککککک