ساخت علاقه مندی و اشتراک متن

[149852 13]

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

جطوری می تونم لی اوت ساخته شده که بوسیله دیتا بیس رو

1 - تو گوشه ی صفحه بهش امکان افزوده شدن به علاقه ها رو بدم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟*شرمسار**شرمسار**شرمسار**شرمسار*

2 - متن داخل اون رو به اشتراک بگذارم ؟؟؟؟؟؟؟؟؟؟؟؟؟*گریه**گریه**گریه**گریه**گریه**

سلام .

من یه کتاب طراحی کردم می خوام وقتی تو قسمت محتوی متن ( نه لیست ویو ) هستن بتونن محتوی رو به علاقه مندی ها اضافه کنن و متنش رو اشتراک بگذارن

ممنون میشم . اجرتون با امام حسین .

[مجید آرتا 5,875]

دوست عزیز بنده هیچی از گفته های شما نفهمیدم

لطفا توضبحات لازم رو واضح بگبد تا به بهتربن نحو بتونیم کمک کنیم

[Farzad Musavi 576]

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

جطوری می تونم لی اوت ساخته شده که بوسیله دیتا بیس رو

1 - تو گوشه ی صفحه بهش امکان افزوده شدن به علاقه ها رو بدم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟*شرمسار**شرمسار**شرمسار**شرمسار*

2 - متن داخل اون رو به اشتراک بگذارم ؟؟؟؟؟؟؟؟؟؟؟؟؟*گریه**گریه**گریه**گریه**گریه**گریه*

ممنون میشم . اجرتون با امام حسین .

برا سوال اولت باید از دستور update استفاده کنی با توجه به فیلدای جدولت

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

File.Writestring(File.DirInternal,"test.txt",lable1.text)	
Dim i As Intent
  i.Initialize(i.ACTION_SEND, "")
  i.SetType("text/plain")
  i.PutExtra("android.intent.extra.TEXT", File.ReadString(File.DirInternal,"test.txt"))
  i.WrapAsIntentChooser("Share...")
  StartActivity(i)

تو خظ اول متن لیبل رو تو یه فایل تکست ذخیره میکنه بعد فایل ذخیره شده رو با ابزارای اشتراک متن مث پیام وایبر لاین و..... به اشتراک میزاره

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

موضوع رو درست انتخاب کنید

[149852 13]

سلام .

من یه کتاب طراحی کردم می خوام وقتی تو قسمت محتوی متن ( نه لیست ویو ) هستن بتونن محتوی رو به علاقه مندی ها اضافه کنن و متنش رو اشتراک بگذارن

[149852 13]

کسی نبود *شرمسار**شرمسار*

[149852 13]

تو سئوالی که داشتم خواستید که بیشتر توضیح بدم منم امکانات این تصویر مد نظرمه .

لینک عکس: http://s.cafebazaar.ir/1/upload/screenshot/com.makteam.android.learn1.jpg

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

[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

   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

[dostmobile 329]

cur.Position=i

i=i+1

[shahab1392 47]

cur.Position=i

i=i+1

یا سلام

این کد را که میزارم فقط دومین متن از فایل db رو به اشتراک میزاره ؟؟؟

[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

   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]

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