درخواست کمک در زمینه ی اشتراک گذاری متن

[mehranarzani 39]

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

 

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

 

میخوام متن هارو از دیتابیسم بگیره اگه کسی میتونه خواهشا کمکم کنه حتی حاضرم سورس کتابی ک میخوام اشتراک گذاری براش ایجاد بشه و هم بدم

 

اگه کمکم کنید دعاتون میکنم

 

[shahab.es 5,429]

سلام عزیزم

شما کتابخونه AriaLib .استاد شاهدی رو بگیرید

dim cur as cursor
dim sql1 as sql

if file.exist(file.dirinternal("database_name.db") = false then
file.copy(file.dirassets,"database_name.db",file.dirinternal,"database_name.db")
end if

if sql1.isinitialized = false then
sql1.initialize(file.dirinternal,"database_name.db",true)
end if



cur = sql1.exequery("SELECT * FROM Your_table WHERE id = '2'")
cur.position = 0
yourlabel.text = cur.getstring("esme sotoone matn dar database")

جای database_name ---yourTabel---esme sotoon dar database---yourlabel---sql---cursor که من استفاده کردم، باید اطلاعات خودتونو بذارید، مثلا اسم متغیر sql یا اسم لیبلتون که متن رو ریختیم توش

حالا یه دکمه یا هر چی میذارید برای اشتارک گذاری

کتابخونه arialib رو تیک میزنید

در رویداد کلیک

Dim aria As AriaLib
StartActivity( aria.ShareText( yourLabel.Text , "اشتراک گذاری" ) )

همین
مشکلی داشتید بگید

[mehranarzani 39]

 

 

اررو میده

 

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

[امین شاهدی 5,773]

خب شما متن رو چجوری میگیری از دیتابیس ؟ اگه مستقیم میگیری که position رو مشضخص میکنی و متن رو میگیری و به اشتراک میزاری

cursor.Position = 5
Dim aria As AriaLib
StartActivity( aria.ShareText(cursor.GetString("Esme_SoTun"),"اشتراک گذاری") )

اگه هم با استفاده از tag , sender متن رو میگیری که متن لیبل یا هرچیزی رو که من رو توش نشون میدی رو میتونی به اشتراک بزاری :

Dim aria As AriaLib
StartActivity( aria.ShareText( Label1.Text , "اشتراک گذاری" ) )

[ahmad_habibi 67]

با سلام خدمت دوستان
کد زیر میتونه کمک کننده باشه.در قسمت کلیک دکمه share تعريف می کنیم.این کد خیلی استفاده میشه و 100 درصد جواب میده.

Sub Button2_Click

Dim share As Intent
share.Initialize(share.ACTION_SEND,"")
share.SetType("text/plain")
share.PutExtra("android.intent.extra.TEXT",lable.Text)
share.WrapAsIntentChooser("اشتراک گذاری با ...")
StartActivity(share)

End Sub

منظور از lable.Text  همان لیبل یا ادیت تکست که متن موجود در دیتابیس را در آن  قرار میدهیم.

 

امیدوارم که تونسته باشم به آقا مهران کمکی کرده باشم.

 

[mehranarzani 39]

 

 

به جای lablel1 چی قرار بدم تا درست بشه؟

:(

[SoRoUsH 300]

 

 

به جای lablel1 چی قرار بدم تا درست بشه؟

:(

دوست عزیز متنتون رو توی چی نمایش میدید؟! همون رو بذارید... در ضمن اسم اون Intent هم عوض کنید با دکمه هم نام هست...

[Kazem Forghani 2,927]

سلام

نام لیبلتون که توش متن مورد نظر وجود داره...

[mehranarzani 39]

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

 

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

[ahmad_habibi 67]

سلام

اول یک لیبل تعریف کن بعد کد زیر را در Sub Activity_Create(FirstTime As Boolean) قرار بده

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("لای آوت مورد نظر")
		
SQL.Initialize(File.DirInternal,"نام دیتابیس.db",True)
	
cur= SQL.ExecQuery("SELECT * FROM   نام جدول مورد نظر    WHERE id="شماره  ای دی)

نام ليبل.Text = cur.GetString("نام فیلد")

End Sub