من با این کد وقتی می خوام اشتراک گذاری کنم فقط متن دوم و یا ردیف دوم 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
سوال
shahab1392 47
با سلام دوستان
من با این کد وقتی می خوام اشتراک گذاری کنم فقط متن دوم و یا ردیف دوم db رو بر اشتراک گذاری قرار میده
لطفا راهنمایی کنید ...
اینم کد خود دکمه اشتراک گذاری هستش
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.