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

[shahab1392 47]

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

من با این کد وقتی می خوام اشتراک گذاری کنم فقط متن دوم و یا ردیف دوم 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

[ارمین رمضانی دلیجانی 381]

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

[shahab1392 47]

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

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

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

موفق باشی ...

[shahab1392 47]

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

[shahab1392 47]

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

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

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

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