اشتراک متن داخل لیبل

[nany12 623]

من متنی دارم که در لیبل نشون داده میشه و از دیتابیس آنلاین میگیره و به صورت مولتی پنل نمایش داده میشه.

میخوام بدونم چجوری میتونم متن داخل لیبل رو به اشتراک بذارم؟

[محمدرضا معتمدی 612]

Dim In As Intent
	In.Initialize(In.ACTION_SEND,"")
	In.SetType("text/plain")
	In.PutExtra("android.intent.extra.TEXT",اسم لیبلت)
	In.WrapAsIntentChooser("به اشتراک گذاری ...")
	StartActivity(In)

جای اسم لیبلت بزار مثلا lbl1.text

[Kazem Forghani 2,928]

چون از مولتی پنل استفاده می کنید ابتدا باید به باتن  اشتراک گذاری تگ بدید :

share.Tag = i

بعد هم در رویداد دکمه :

Dim sh as AriaLib
Dim cursor3 As Cursor
    cursor3 = SQL1.ExecQuery("SELECT SMS FROM tbl")
    Dim btn2 As Button
    btn2=Sender
    cursor3.Position =btn2.Tag
    Dim matnsms As Label
    matnsms.Initialize("")
    matnsms.text=cursor3.GetString("SMS")
    cursor3.Close
	StartActivity(sh.ShareText(matnsms.text,"اشتراک گذاری با :"))

کتابخانه AriaLib رو تیک بزنید .

طبق کارتون می تونید تغییرات رو اعمال کنید .

[محمدرضا معتمدی 612]

اها مولتی پنل بود  ببخشید واس کد اشتباه ندیدم مولتی پنله

[nany12 623]

چون از مولتی پنل استفاده می کنید ابتدا باید به باتن  اشتراک گذاری تگ بدید :

share.Tag = i

بعد هم در رویداد دکمه :

Dim sh as AriaLib
Dim cursor3 As Cursor
    cursor3 = SQL1.ExecQuery("SELECT SMS FROM tbl")
    Dim btn2 As Button
    btn2=Sender
    cursor3.Position =btn2.Tag
    Dim matnsms As Label
    matnsms.Initialize("")
    matnsms.text=cursor3.GetString("SMS")
    cursor3.Close
	StartActivity(sh.ShareText(matnsms.text,"اشتراک گذاری با :"))

کتابخانه AriaLib رو تیک بزنید .

طبق کارتون می تونید تغییرات رو اعمال کنید .

 

 

بیشتر توضیح میدی چکار کنم

 

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

[ehsankhan 256]

دوست عزیز پ.خ چک کنید

[nany12 623]

دوست عزیز پ.خ چک کنید

 

 

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

فردا چک میکنم

دستت درد نکنه

[nany12 623]

چون از مولتی پنل استفاده می کنید ابتدا باید به باتن  اشتراک گذاری تگ بدید :

share.Tag = i

بعد هم در رویداد دکمه :

Dim sh as AriaLib
Dim cursor3 As Cursor
    cursor3 = SQL1.ExecQuery("SELECT SMS FROM tbl")
    Dim btn2 As Button
    btn2=Sender
    cursor3.Position =btn2.Tag
    Dim matnsms As Label
    matnsms.Initialize("")
    matnsms.text=cursor3.GetString("SMS")
    cursor3.Close
	StartActivity(sh.ShareText(matnsms.text,"اشتراک گذاری با :"))

کتابخانه AriaLib رو تیک بزنید .

طبق کارتون می تونید تغییرات رو اعمال کنید .

 

 

شما برای دیتابیس آفلاین فکر کنم گذاشتی

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