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

[hossein7 82]

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

 

 

 

 

[hossein7 82]

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

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

[shahab.es 5,429]

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

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

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

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

[shahab.es 5,429]

سلام عزیزم

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

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

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

[hossein7 82]

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

[shahab.es 5,429]

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

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

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

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

[hossein7 82]

عکس ارور پیوست شد 

 

 

[shahab.es 5,429]

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

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

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

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

[hossein7 82]

ممنون بابت کد 

 

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

[shahab.es 5,429]

خوب

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

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

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

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

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

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

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

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

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

[hossein7 82]

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

 

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

[shahab.es 5,429]

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

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

"INSERT INTO tbl1 id,name,age,mark VALUES ('1','shahab','19','20')"

[hossein7 82]

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

[shahab.es 5,429]

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

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

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

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

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

[hossein7 82]

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

[hossein7 82]

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

 

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

 

[shahab.es 5,429]

شبه

اتاقم تاریکه

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

بازم ببخش شما

ersalmatn باید باشه

من نوشتم ersalmant

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

[hossein7 82]

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

 

[shahab.es 5,429]

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

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

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

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

[hossein7 82]

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

[shahab.es 5,429]

نه برادر

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

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

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

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

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")