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

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


hossein7

سوال

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

 

post-1750-0-91324500-1438035499_thumb.jpg

 

 

 

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

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

شاب جان درست نشد کد های بخش پیامک رو میفرستم ببین چجوریه اگه درست نشد خصوصی بگو سورسشو بفرستم

Sub Process_Globals
End Sub

Sub Globals

	Private ScrollView1 As ScrollView
	Private Panel1 As Panel
	Private Label1 As Label
	Dim cur1 As Cursor
	Dim sql1 As SQL
	Dim stop As Int = 3%y
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Scroll")
	If File.Exists(File.DirInternal,"sms.db") = False Then
	File.Copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
	End If
	sql1.Initialize(File.DirInternal,"sms.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM sms")
	
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	stop = stop + 35%y
	Button1.Tag = cur1.GetString("share")
	ScrollView1.Panel.Height = stop
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	Dim share As Button
	share.Initialize("")
	share = Sender
	Dim s As send
	s.initialize
	s.ersalmatn(share.tag,"txt")
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

عزیم اگه سورست رو بفرستی، خیلی خیلی بهتره

چون من الان یه چیزایی رو دقق متوجه نشدم تو این خط

و ارور جدید داشت؟

یا همون اینیشیالایز...؟

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

سلام عزیزم

کتابخونه rakroidsend رو دانلود کن و توی رویداد کلیک، بیا و متن لیبلت رو به اشتراک بذار....

dim s as share
s.initialize
s.ersalmatn(label1,"other")

به احتمال زیاد براتون جاوب میده :)

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

کدی که دادی قرار دادم تو برنامه کتابخونه رو هم فعال کردم ولی ارور میده 

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

چه اروری میده عزیزم؟

لطفا قرار بده ارور رو تا بررسی کنیم

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

مثلا کتابخونه AriaLib اقای  عزیز هم خیلی کمک میکنه

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

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

این گیر داده به کلمه share و درست هم هست و من کد اشتباه قرار دادم و شما هم ببخش به بزرگی خودت

dim s as send
s.initialize
s.ersalmatn(label1.text,"other)

بازم ببخش برادر :gol:

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

ممنون بابت کد 

 

امتحان کردم اشتراک گذاری میکنه ولی میاد پیامک آخری رو به اشتراک میزاره یعنی روی پیامک اولی یا هر چندمی کلیک کنی پیامک آخری رو به اشتراک میزاره چیکار کنم درست شه 

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

خوب

فک کنم باید با تگ و سندر کار کنی

دقیق خودم باهاشون کار نکردم اما

متنت رو علاوه بر لیبل ، توی تگ دکمه اشتراک هم بریز

یعنی به این شکل

btnShare.tag = cur.getstring("sotoonmatnet")

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

dim share as button
share = sender
dim s as send
s.initialize
s.ersalmant(share.tag,"other")

اینا باید برات کار بکنن

اما اگه کار نکرد، جفتمون باید منتظر اساتدی باشیم :gol:

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

مرسی حالا یه امتحانی کنم خبرت میکنم 

 

یه سوال دیگه برای کپی متن توی دیتابس باید چیکار کرد

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

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

میتونی اینسرت کنی عزیزم

"INSERT INTO tbl1 id,name,age,mark VALUES ('1','shahab','19','20')"
لینک ارسال
به اشتراک گذاری در سایت های دیگر

نه منظورم اینه چجوری متنی که توی دیتابس نوشتم رو کاربر بتونه کپی کنه و در برنامه های دیگه بکار ببره 

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

خوب کل این کدهایی که باهم کار کردیم همین بود دیگه عزیزم

شما یه متن نوشتی، کاربر میاد و اون رو به اشتراک میذاره

این کتابخونه ای که باهاش کار کردیم، حتی کلیپ بورد رو هم کنترل میکنه، یعنی میتونی متن رو تو کلیپ بورد کپی کنی و بعد در هرجایی بخوای، پیست کنی

البته، برای کپی در کلیپ برد، روشهای دیگه ای هم هست

اما در کل، میتونی متن رو در کلیپ برد کپی و بعد مثلا ببره تو مرورگر و توی گوگل سرچش کنه مثلا :gol:

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

ممنون از راهنمایی جامع و کاملتون  :gol:  :gol:  :gol:  :gol:  :gol:  :gol:  :gol:

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

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

 

فایل پیوست رو ببین 

 

post-1750-0-42464000-1438041118_thumb.jpg

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

شبه

اتاقم تاریکه

منم غلط املایی زیاد دارم

بازم ببخش شما :gol:

ersalmatn باید باشه

من نوشتم ersalmant

لطف کن، تصحیحش کن توی کدت :)

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

بازم با عرض پوزش یه اروری دیگه داد  :(

 

post-1750-0-92997100-1438041533_thumb.jpg

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

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

یه دکمه دارید که باید اینیشیالیز بشه

اگر هیچ دکمه ای رو پیدا نکردید، محض اطمینان، دکمه ای که خودمون هم ساختیم به اسم share رو هم اینیشیالایز کن

البته لازم نیست اما خوب....

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

با عرض پوزش مجدد الان من نفهمیدم باید چیکار کنم ؟ دکمه ای پیدا نکردم اون دکمه خودمون رو تغییر نام بدم به share یا نه 

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

نه برادر

تغییر نام لازم نیست

شما یه دکمه داری که اینیشیالایز نشده

بگرد توی دکمه هات

اگر هم پیدا نشد چیزی، دکمه ای که در کد زیر ایجاد کردیم رو ؛ اینیشیالایز کن

dim share as button
share = sender
dim s as send
s.initialize
s.ersalmant(share.tag,"other")

به این شکل میشه

dim share as button

share.initialize("")

share = sender
dim s as send
s.initialize
s.ersalmant(share.tag,"other")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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