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

[marshal 71]

با سلام و وقت بخیرخدمت اساتید و دوستان عزیزم

 

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

 

ممنون از زحماتی که همگی شما عزیزان برای روز به روزبهتر شدن این سایت می کشید...

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

درود

ده ها بار توی انجمن در مورد این موضوع بحث شده و پاسخ ها داده شده مثل الان.

توی حلقه :

dim button1.tag = matne label

کد کلیک :

Sub Button1_Click
    Dim btn = Sender As Button
    Dim intShare As Intent
    intShare.Initialize(intShare.ACTION_SEND,"")
    intShare.SetType("text/plain")
    intShare.WrapAsIntentChooser("اشتراک گذاری توسط:")
    intShare.PutExtra("android.intent.extra.TEXT", btn.tag)
    StartActivity(intShare)
End Sub

لطفا قبل از دادن تاپیک جست و جو کنید :

http://answercenter.ir/topic/4689-%D8%AF%DA%A9%D9%85%D9%87-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%D8%A8%D8%B1%D8%A7-%D9%85%D9%88%D9%84%D8%AA%DB%8C-%D9%BE%D9%86%D9%84/

 

http://answercenter.ir/topic/4908-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%D9%85%D8%AA%D9%86-%D8%AF%D8%A7%D8%AE%D9%84-%D9%84%DB%8C%D8%A8%D9%84/

 

http://answercenter.ir/topic/2682-%D9%86%DB%8C%D8%A7%D8%B2-%D8%A8%D9%87-%D8%B3%D9%88%D8%B1%D8%B3-%DA%A9%D8%AF-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C-%D9%85%D8%AA%D9%86-%D9%88-%DA%A9%D9%BE%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D9%85%D8%AA%D9%86/

 

http://answercenter.ir/topic/2695-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C-multipanel/

 

http://answercenter.ir/topic/5272-%DA%AF%D8%B0%D8%A7%D8%B4%D8%AA%D9%86-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%D8%AF%D8%B1-%D8%B3%D9%88%D8%B1%D8%B3-%DA%A9%D8%AA%D8%A7%D8%A8/page-2

 

تاپیک قفل شد

 

اسپم بازی تعطیل

[marshal 71]

واقعا کسی با این موضوع آشنایی نداره...!!! واقعا اینجا کسی نیست بیاد با یه کد کوچولو یکم این موضوع رو برام توضیح بده ؟؟؟ البته با راهنمایی های شهاب جان یه چیزایی دست گیرم شد ولی تو کدنویسیش موندم... خواهشا اساتید یه راهنمایی بکنن....

[hossein7 82]

در مورد اون مشکلتون که نمیتونید متن رو به اشتراک بزارید و یا کپی کنید یه توضیح میدید یعنی روی کلیک اشتراک میزنید متنی براتون نمیاره یا آخرین متن رو به اشتراک میزاره 

[shahab.es 5,429]

سلام

خواب بودم عباس

صبح تا ساعت 8 اینجا بودم

الان واقعا توان بلند شدن نداشتم.....

خوب

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

 

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

setfave

share

 

توی حلقه ات، میای و به شکل زیر عمل میکنی(البته خودمم یکم مشکل دارم تو تگ و سندر.......)

setfave.tag = cur.getint("id")
share.tag = cur.getint("text")

در رویداد کلیک setfave 

به شکل زیر عمل میکنی

dim btnfave as button
btnfave = sender
sql.exenonquery("UPDATE tbl SET fave = 1 WHERE id=" btnfave.tag)

 

در رویداد کلیک دکمه share

dim btnshare as button
btnshare = sender
dim s as send
s.initialize
s.ersalmatn(btnshare.tag,"other")

 

با کتابخونه rakridsend کار کردم

[Kazem Forghani 2,927]

ببخشید پست آقا شهاب گل رو ندیدم

 

سلام

ببینید شما باید از تگ استفاده کنید!

مثلا اول در حلقه ای تعریف کردید این کد رو بنویسید :

Btn_Share.Tag = i

اون Btn_Share نام باتون اشتراک گذاری هست .

 

حالا در رویداد Click دکمه ی Btn_Share :

ُSub Btn_Share_Click
Dim b1 As Button
b1 = Sender
Dim Share As AriaLib
StartActivty(Share.ShareText(Label.Text,"اشتراک با :"))
End Sub

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

سلام

خب جایی که شما دکمتو میسازی توی مولتی پنل بیا Tag  دکمه رو برابر با id  هر رکورد کن.

مثال :

Dim cr As Cursor
cr = bank.ExecQuery("SELECT * FROM matlab")
For i = 0 To cr.RowCount - 1
 cr.Position = i
 Dim p As Panel
 p.Initialize("p")
 sv.Panel.AddView(p,1%x,top,98%x,60%y)
 top = top + 61%y
 p.LoadLayout("items")
 cmBtn.Tag = cr.GetInt("id")
Next
cr.Close
sv.Panel.Height=top

اینجا دکمه cmBtn مقدار Tag ش رو برابر با id  هر رکورد قرار دادیم

در ادامه شما باید توی رویداد همین باتون :

Sub cmBtn_Click
 dim myBtn As Button
 myBtn = Sender
 
End Sub

اینجا دیگه میایید به وسیله myBtn.Tag  باید بیایید مقدار فیلد علاقمندی رو بگیرید.ببینید الان Tag  این دکمه شماره آیدی هر رکورده ها.

خب به وسیله WHERE  میتونی مقدار فیلد علاقمندی مبروط به همین دکمه رو بگیری و نسبت به 0 یا 1 بودن مقدار عکس علاقمندی رو تغییر بدی.

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

[marshal 71]

من مشکل علاقه مندی ها هم دارم... ولی مشکل کپی و ارسال اینجاست که مثلا اگه حتی متن سطر دوازدهم رو هم به اشتراک بذارم مطلب گرفته شده یکی از مطلب ها بین پنج تای اولی خواهد بود

[hossein7 82]

این مشکل کپی و متن رو میتونم با کد های زیر میتونید حل کنید 

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 share As Button
	Dim text As String
	Dim ht As Float
	Dim StrUtil As StringUtils
	Dim PanelHeight As Int
	Dim myfont As Typeface
	Dim sh As AriaLib
	Private copy As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Scroll")
	File.copy(File.DirAssets,"*",File.DirInternal,"*")
	sql1.Initialize(File.DirInternal,"*",True)
	cur1 = sql1.ExecQuery("SELECT * FROM *")
	myfont = Typeface.LoadFromAssets("byekan.ttf")
	For i=0 To cur1.RowCount-1
	cur1.Position=i
	text= cur1.GetString("txt")
	ScrollView1.Panel.Color = Colors.Transparent
	Dim p1 As Panel
	p1.Initialize("")
	p1.LoadLayout("sms")
	ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)
	share.Tag = i
	copy.Tag = i
	ht=art(text,Label1,myfont,16)
	Label1.TextColor=Colors.black
	p1.Height=ht+70dip
	PanelHeight=PanelHeight+ht+70dip
	Next
	ScrollView1.Panel.Height=PanelHeight
End Sub

Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float      
Dim before,after As Float
	Dim obj1 As Reflector
		leb.text=txt
		leb.TextSize=size
		leb.Gravity=Gravity.CENTER
		leb.Left=leb.Left
		leb.Typeface=font
	ht = StrUtil.MeasureMultilineTextHeight(leb , txt)
            obj1.Target = leb  
            before = obj1.RunMethod("getLineHeight")
            obj1.Target = leb 
            obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")
            obj1.Target = leb 
            after = obj1.RunMethod("getLineHeight")
            ht = ((after * ht)/before)
		leb.Height = ht
Return  ht

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub share_Click
	Dim cursor3 As Cursor
    cursor3 = sql1.ExecQuery("SELECT * FROM *")
    Dim btn2 As Button
    btn2=Sender
    cursor3.Position =btn2.Tag
    Dim matnsms As Label
    matnsms.Initialize("")
    matnsms.text=cursor3.GetString("txt")
    cursor3.Close
	StartActivity(sh.ShareText(matnsms.text,"اشتراک گذاری از طریق :"))
End Sub
Sub copy_Click
	Dim something As BClipboard
	Dim cursor2 As Cursor
	cursor2 = sql1.ExecQuery("SELECT * FROM *")
	Dim btn2 As Button
	btn2=Sender
	cursor2.Position =btn2.Tag
	something.clrText 
    something.settext(cursor2.GetString("txt"))
	ToastMessageShow("متن انتخابی شما کپی شد",False)
	cursor2.Close
End Sub

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

[marshal 71]

سلام بر همگی شما عزیزان

 

ممنون از راهنمائیاتون... اجازه بدید امتحانشون کنم حتما خبر میدم... دوباره ممنونم...

[marshal 71]

سلام

خواب بودم عباس

صبح تا ساعت 8 اینجا بودم

الان واقعا توان بلند شدن نداشتم.....

خوب

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

 

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

setfave

share

 

توی حلقه ات، میای و به شکل زیر عمل میکنی(البته خودمم یکم مشکل دارم تو تگ و سندر.......)

setfave.tag = cur.getint("id")
share.tag = cur.getint("text")

در رویداد کلیک setfave 

به شکل زیر عمل میکنی

dim btnfave as button
btnfave = sender
sql.exenonquery("UPDATE tbl SET fave = 1 WHERE id=" btnfave.tag)

 

در رویداد کلیک دکمه share

dim btnshare as button
btnshare = sender
dim s as send
s.initialize
s.ersalmatn(btnshare.tag,"other")

 

با کتابخونه rakridsend کار کردم

 

سلام داداش

 

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

[shahab.es 5,429]

سلام داداش

 

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

اقاااااااا

یه سرچ بزن 

پولی چیه برادر من

http://s3.picofile.com/file/8190159226/rakroidsend.rar.html

 

---------------

با عذر خواهی از اقا مهدی

تداخل تایپکی پیش اومد،

[shahab.es 5,429]

سلام عباس جان

ببین برادرم

دقیق متوجه نشدم که ربط 5 تا 5 تا اوردن چیه به این که شما ، مطلبی که میخوای نیست!!!

خوب شما با ای دی کار میکنی دیگه، درسته؟

5 تا 5 تا یا هر چندتا که بیاره، ای دی رو میتونی بگیری و باهاش کاری که میخوای رو انجام بدی....

همونطور که میدونی، ای دی رو توی تگ دکمه ات قرار میدی و برای علاقه مندی یا Share ازش استفاده میکنی....

[marshal 71]

سلام بر شهاب جان عزیزم

 

پنج تا پنج تا بخاطر اینه که بیاد پنج تا ID اول رو از دیتابیس بگیره و با حرکت اسکرول بیاد پنج تای بعدی و الی آخر تا مطالب راحت تر لود بشه و برنامه هنگ نکنه... میشه این جمله تو " همونطور که میدونی، ای دی رو توی تگ دکمه ات قرار میدی و برای علاقه مندی یا Share ازش استفاده میکنی.... " با کدش برام یکوچولو توضیح بدی... شرمنده ام زحمته....