مشکل در اشتراک گذاری

[qasem 249]

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

Sub ShareString(sInfo As String,sBody As String,sSubject As String)
	Dim share As Intent
	share.Initialize(share.ACTION_SEND,"")
	share.SetType("text/plain")
	share.PutExtra("android.intent.extra.TEXT",sBody)
	share.PutExtra("android.intent.extra.SUBJECT", sSubject)
	share.WrapAsIntentChooser(sInfo)
	StartActivity(share)
End Sub


Sub share_Click
	ShareString("اشتراک گذاری",Label1.Text,onvan.Text)
End Sub

[qasem 249]

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

[alirezakazemizaroomi 437]

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

سلام

اینطوری:

Sub share_Click
	ShareString("اشتراک گذاری",onvan.Text&Label1.Text,onvan.Text)
End Sub

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

خب عزیز دل این اشتراک گذاری شما فقط یه متن توشه باید متن عنوانشم بیاری بغلش 

که میشه اینجوری (یه چیزی اول عنوان میزارم بعد خود متن) 

ShareString("اشتراک گذاری",  lbonvan.text & CRLF & label1.Text,cur.GetString("onvan"))

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

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

شرمنده که دیر جواب دادم آخه عنوانشم خوب نگذاشتی مثلا میزاشتی اشتراک گذاری متن با عنوان مطلب 

موفق باشید