رفتن به مطلب
  • 0

اشتراک گزاری متن


shahab1392

سوال

با سلام دوستان

من با این کد وقتی می خوام اشتراک گذاری کنم فقط متن دوم و یا ردیف دوم db رو بر اشتراک گذاری قرار میده

لطفا راهنمایی کنید ...

If File.Exists(File.DirInternal,"book1.db")= False Then
File.Copy(File.DirAssets,"book1.db",File.DirInternal,"book1.db")
End If

If Menu1.SQL1.IsInitialized=False Then
Menu1.SQL1.Initialize(File.DirInternal,"book1.db",False)
End If

cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)
Activity.LoadLayout("frm2")

For i=0 To cur.RowCount-1
cur.Position=i
i=i+1                         
label1.Initialize("Label1")
label1.text=cur.GetString("Matn")


ScrollView1.Panel.addview(label1,0,0,ScrollView1.Width,ScrollView1.Height)
btnshare.Tag = i

Next

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

Sub btnshare_Click
Dim cursor3 As Cursor
cursor3 = Menu1.SQL1.ExecQuery("SELECT Matn FROM Tbl1")
Dim btn2 As Button
btn2=Sender
cursor3.Position =btn2.Tag
Dim matnsms As Label
matnsms.Initialize("")
matnsms.text=cursor3.GetString("Matn")
cursor3.Close
Dim share As Intent
share.Initialize(share.ACTION_SEND,"")
share.SetType("text/plain")
share.PutExtra("android.intent.extra.TEXT", matnsms.text)
share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....")
StartActivity(share)
End Sub

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

ارسال‌های توصیه شده

shahab1392 داداش مهدی که میگه سورس رو قرار بده من نبودم خیلی ها پیام خصوصی دادن جواب ندادم {یعنی نبودم به کل یه چند مدتی}
لینک ارسال
به اشتراک گذاری در سایت های دیگر

shahab1392 داداش مهدی که میگه سورس رو قرار بده من نبودم خیلی ها پیام خصوصی دادن جواب ندادم {یعنی نبودم به کل یه چند مدتی}

با سلام خدمت آرمین جان عزیز شرمنده عزیز من هم یه چند وقتی بود نبودم

اشتراک گذاری متن رو درست کردم عزیز...

موفق باشی ...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

عزیزان یه جواب بهم بدین خوب ؟؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام و درود . ممکنه سورس همین کد رو قرار بدین ؟؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...