انتخاب یک مخاطب وقرار دادن آن در ادیت تکست

[nadersalim 5]

سلام دوستان وقت بخیر!

 

با کتابخونه ContactPicker تو برنامه ام بعد از کلیک بروی یک دکمه لیست مخاطبین رو نمایش میده .چطور میتونم با انتخاب یک مخاطب شمارشو داخل  edittex1 و اسمش رو داخل edittex2  بذارم؟

Sub Globals
	
	Private EditText1 As EditText
	Private ersal As Button
	Private EditText2 As EditText
	Dim contact As ContactPicker
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("l1")
	contact.Initialize(Me)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	
	contact.ShowContactPicker
	
End Sub

 Sub ContactSelected(Value As ContactItem)
 	Log(Value.Name)
	Log(Value.PhoneNumber)
	
End Sub

[nadersalim 5]

کد زیر رو واسه دسترسی به مخاطبین تو مانیفست وارد کردم:

AddPermission(android.permission.READ_CONTACTS)

 شماره و اسم مخاطب وارد ادیت تکست ها  شد اما یه مشکل هست تو ادیت تکست مربوط به شماره ، فقط شماره  تنها وارد نمیشه به این صورت میاد:

[[phoneType=mobile,Number=091******* IsInitialized=true]]

[atlasm 17]

دوستان سلام

اگه میشه جواب بدید منم همین مشکل رو دارم

با تشکر

[مهدی ایزدی 9,203]

درود

من همین کد رو :

Sub Globals
	Dim contact As ContactPicker
	Private EditText1 As EditText
	Private EditText2 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	contact.Initialize(Me)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	contact.ShowContactPicker
End Sub

Sub ContactSelected(Value As ContactItem)
	Try
		 	EditText1.Text = Value.Name
	EditText2.Text = Value.PhoneNumber
	Catch
		ToastMessageShow(LastException,True)
	End Try

End Sub

با دسترسی :

AddPermission(android.permission.READ_CONTACTS

اضافه کردم !

بدون هیچ مشکلی داره کار میکنه.

فقط شماره موبایل رو همراه یک سری موارد اضافی میاره که باگ خود کتابخونه هست انگار ... باید به صورت دستی با SubString و IndexOf و SubString2 و .... شماره رو جدا کنید

[nadersalim 5]

 فقط جهت بالا آوردن تاپیک!(ببخشید )

[nadersalim 5]

هنوز منتظر جوابم!

[nadersalim 5]

کسی نیست جواب ما رو بده؟

[مهدی ایزدی 9,203]

درود

دوست عزیز لطفا کمی صبر کنید و اسپم ندید تا دوستان جوابتونو بدن

مگه شما نیومدید گفتید :

 Sub ContactSelected(Value As ContactItem)
 	Log(Value.Name)
	Log(Value.PhoneNumber)
	
End Sub

خب به جای Log بیایید EditText رو قرار بدید دیگه !

 Sub ContactSelected(Value As ContactItem)
 	EditText1.Text = Value.Name
	EditText2.Text = Value.PhoneNumber
End Sub

[nadersalim 5]

 

درود

دوست عزیز لطفا کمی صبر کنید و اسپم ندید تا دوستان جوابتونو بدن

مگه شما نیومدید گفتید :

 Sub ContactSelected(Value As ContactItem)
 	Log(Value.Name)
	Log(Value.PhoneNumber)
	
End Sub

خب به جای Log بیایید EditText رو قرار بدید دیگه !

 Sub ContactSelected(Value As ContactItem)
 	EditText1.Text = Value.Name
	EditText2.Text = Value.PhoneNumber
End Sub

اول اینکه: سلام ودستتون درد نکنه بابت پاسخگوییتون

دوم اینکه: فکر کنم این قوانین رو خودتون وضع کردیدواطلاع دارید  دیگه؟: بالا آوردن تاپیک در کمتر از مدت زمان 12 ساعت اسپم محسوب شده و با کاربر برخورد می شود

اگه زمان تاپیک رو نگاه کنید دقیقا 16 ساعت و29 دقیقه بعد اونو بالا آوردم!!!...به هرحال ببخشید

سوم هم  اینکه این کد رو قبلا وارد کرده ام اما خطا میداد ونمیشد.تصویرش هم براتون پیوست میکنم

[Farzad Musavi 576]

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