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

[MoniSoft 14]

سلام

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

[MoniSoft 14]

یعنی من در رویداد کلیک علاقه مندی ها که به صورت زیر هست:

Sub faveimg_Click
	Dim b As View
	b=Sender
	If favmanage.addtofave(b.Tag,mostar)=True Then

	mycode.setimg(b,"disfave")
			ToastMessageShow("پیام از علاقه مندیها حذف شد",False)
	Else 
	mycode.setimg(b,"fave")
	ToastMessageShow("پیام به علاقه مندیها اضافه شد",False)
		End If
		
End Sub

به جای b.tag باید id بذارم و در قسمت mostar چه جیزی قرار بدم؟

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

[محمدرضا شاهپیری 5,282]

اگه منظورتون سورسه فقط به جای mostar بنویسید "fave"  بقیشو دست نزنید b.tag در واقع همون id هست دیگه.

[MoniSoft 14]

اگه منظورتون سورسه فقط به جای mostar بنویسید "fave"  بقیشو دست نزنید b.tag در واقع همون id هست دیگه.

 

واقعا ممنونم مشکلم به صورت کامل حل شد .

[محمدرضا شاهپیری 5,282]

در موردش زیاد بحث شده عزیز قبل از تاپیک سرچ کنید لطفا  

http://answercenter.ir/topic/13604-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C-%D8%AD%D8%B1%D9%81%D9%87-%D8%A7%DB%8C-%D8%A8%D8%A7-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-map-%D9%88-%D9%85%D9%88%D9%84%D8%AA/

[MoniSoft 14]

دوستان این مشکلمو کسی میتونه حل کنه?

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

درود

ببینید قبلا هم نمیدونم خودتون بودید یا شخص دیگه ای که دقیقا همچین مشکلی رو داشتند

 

شما 10 تا اسم دارید:

1- مهدی

2- فرزاد

3- امین

4- الیاس

5- علیرضا

6- الیاس

7- پژمان

8- حامد

9- مجید

10- محمد

 

خب حالا شما برای لیست بالا یک کوئری میخونی میگی :

select * from tbl where id = 6

خب این آیدی برابر با 6 یعنی اینکه فقط میاد الیاس رو میخونه که آیدی شماره 6 رو داره

درسته ؟

خب پس یعنی الان کل آیتم های ما که انتخاب شده یکی هست

حالا شما اومدید گفتید :

cur.position = btn.tag

حالا اومدیم تگ باتن 4 بود

خب مگه الان ما 4 یا آیتم داریم؟ 

کل آیتم ها یکی هستند که میشه همون cur.position = 0

 

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

Sub Fav_Click
Dim id As Int

id= Main.cur1.GetString("id")
 If Favv=0 Then

  Main.cur1.Position=0
  Main.sql1.ExecNonQuery("UPDATE tbl1 SET Fav = 1 where id ='" & id & "'")
 
 ToastMessageShow("مطلب مورد نظر با موفقیت به لیست علاقه مندی ها اضافه شد",False)
Fav.SetBackgroundImage(LoadBitmap(File.DirAssets,"f1.png"))
 Else 
  Main.sql1.ExecNonQuery("UPDATE tbl1 SET Fav = 0 where id ='" & id & "'")
  Main.cur1.Position=0
 ToastMessageShow( "مطلب مورد نظر از لیست علاقه مندی ها خارج شد",False) 
Fav.SetBackgroundImage(LoadBitmap(File.DirAssets,"f0.png"))
 End If
  Main.cur1= Main.sql1.ExecQuery("SELECT * FROM tbl1  where id ='" & id & "'")
  Main.cur1.Position=0
  Favv= Main.cur1.GetString("fav")
End Sub

[MoniSoft 14]

این مطلب رو دیدم ولی چیزی ازش سر در نیاوردم.

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

Sub btnfav1_Click
    Dim cursor3 As Cursor
    cursor3 = SQL1.ExecQuery("SELECT * FROM smstbl")
    Dim btn2 As Button
    btn2=Sender
	cursor3.Position = btn2.Tag
	Dim fav As Int = cursor3.GetInt("fav")
	If fav = 0 Then
	    SQL1.ExecNonQuery("UPDATE smstbl SET fav = 1 WHERE id = "&cursor3.GetInt("id"))
		ToastMessageShow("به علاقه مندی ها اضافه شد",False)
	Else
	    SQL1.ExecNonQuery("UPDATE smstbl SET fav = 0 WHERE id = "&cursor3.GetInt("id"))
		ToastMessageShow("از علاقه مندی ها حذف شد",False)
	End If
End Sub

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

 

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

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	If File.Exists(File.DirInternal,"sms.db")=False Then
	File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
	End If
	If SQL1.IsInitialized = False Then
	SQL1.Initialize(File.DirInternal,"sms.db",True)
	End If
	cursur1 = SQL1.ExecQuery("SELECT * FROM smstbl WHERE fav = 1")
	myfont = Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt")&".ttf")
	Activity.LoadLayout("favorite")	
	
	For i=0 To cursur1.RowCount-1
	cursur1.Position=i
	text= cursur1.GetString("sms")
	ScrollView1.Panel.color = Colors.Transparent
	
	Dim p1 As Panel
	p1.Initialize("")
	p1.LoadLayout("pnmatlab")
	ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y)

	btnshare.Tag = i
	btncopy.Tag = i 
	btndelet.Tag = i
	btnfav1.tag = i
	
	Label4.text="عاشقانه"
	Label4.Typeface=myfont
	Label4.TextColor=Colors.Black
	
	Label5.text = i + 1
	Label5.Typeface=myfont
	Label5.TextColor=Colors.Black
	
	ht=art(text,Label1,myfont,14)
	Label1.TextColor=Colors.Black
	Label1.Top = 9%y
	p1.Height=ht+25%x
	PanelHeight=PanelHeight+ht+25%x
	Next
	ScrollView1.Panel.Height=PanelHeight
End Sub

[MoniSoft 14]

اقا محمدرضا میشه همین کارایی که گفتین رو به صورت سورس قرار بدین ممنون میشم.

[محمدرضا شاهپیری 5,282]

اقا محمدرضا میشه همین کارایی که گفتین رو به صورت سورس قرار بدین ممنون میشم.

پست آپدیت شد دوست عزیز میتونید سورس رو دانلود کنید

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

ایشالا دیگه مشکلتون حل شه

 

http://answercenter.ir/topic/13822-%D9%85%D8%AF%DB%8C%D8%B1%DB%8C%D8%AA-%DA%A9%D8%A7%D9%85%D9%84-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C-%D8%A8%D8%A7-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-msh-fave/?p=85909

[MoniSoft 14]

مرسی از راهنمایی این رو درست کردم حالا وقتی میخوام در علاقه مندی مطالبی رو که به علاقه مندی ها اضافه شده نمایش بدم به چه صورته؟

کتابم یه بانک پیامکه و دارای چند موضوع و در هرموضوع تعداد زیادی متن کد اکتیویتی کریت هم به این صورت نوشتم :

ایا درسته؟

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	If File.Exists(File.DirInternal,"sms.db")=False Then
	File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
	End If
	If SQL1.IsInitialized = False Then
	SQL1.Initialize(File.DirInternal,"sms.db",True)
	End If
	cursur1 = SQL1.ExecQuery("SELECT * FROM smstbl WHERE fav = 1")
	myfont = Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt")&".ttf")
	Activity.LoadLayout("favorite")	
	
	For i=0 To cursur1.RowCount-1
	cursur1.Position=i
	text= cursur1.GetString("sms")
	text= cursur1.GetString("sms2")
	ScrollView1.Panel.color = Colors.Transparent
	
	Dim p1 As Panel
	p1.Initialize("")
	p1.LoadLayout("pnmatlab")
	ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y)

	btnshare.Tag = i
	btncopy.Tag = i 
	btndelet.Tag = i
	btnfav1.tag = i
	
	Label4.text="عاشقانه"
	Label4.Typeface=myfont
	Label4.TextColor=Colors.Black
	
	Label5.text = i + 1
	Label5.Typeface=myfont
	Label5.TextColor=Colors.Black
	
	ht=art(text,Label1,myfont,14)
	Label1.TextColor=Colors.Black
	Label1.Top = 9%y
	p1.Height=ht+25%x
	PanelHeight=PanelHeight+ht+25%x
	Next
	ScrollView1.Panel.Height=PanelHeight
End Sub

[MoniSoft 14]

اقا محمدرضا شرمنده من شانس ندارم اجرا میگیرم ارور زیر رو میده :|

[محمدرضا شاهپیری 5,282]

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

http://answercenter.ir/topic/13822-%D9%85%D8%AF%DB%8C%D8%B1%DB%8C%D8%AA-%DA%A9%D8%A7%D9%85%D9%84-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C-%D8%A8%D8%A7-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-msh-fave/

[محمدرضا شاهپیری 5,282]

من سورسو با بیسیک 5.8 نوشتم شاید به خاطر اونه البته کتابخونه qls رو هم یادت نره به کتابخونه هات اضافه کن تو مثال گذاشتمه

سورس مشکلی نداره عزیز چندبار تستش کردم شما اول سورس رو ران کنید بدون اینکه چیزی بش اضافه کنید بعد اگه مشکلی نداشت ماژول هاتون رو توش اد کنید و دیتابیش رو هم هرجور میخواین تغییر بدین

[MoniSoft 14]

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

http://answercenter.ir/topic/13822-%D9%85%D8%AF%DB%8C%D8%B1%DB%8C%D8%AA-%DA%A9%D8%A7%D9%85%D9%84-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C-%D8%A8%D8%A7-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-msh-fave/

سلام اقا محمدرضا من دیتابیسم به صورت زیره اگه بخوام با map لیست علاقه مندی درست کنم باید چیکار کنم میشه یکم توضیح بدید.

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

[محمدرضا شاهپیری 5,282]

سلام هموطن 

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

فرض کنید برنامه پیامکی شما چهارتا موضوع جک، عاشقانه، تنهایی و دروغ رو داره اولین کاری که میکنین میاین واسه این موضوعا یه اسم مستعار میزارین مثلا من خودم اعداد یک تا چار میدم

حالا یه تیبل درست میکنید و اسم موضوع و اسم مستعار موضوع رو توش میزارید حالا یه تیبل دیگه که پایین عکسشو میزارم رو درست میکنید حالا واسه نمایش مثلا گروه جک از کوئری زیر استفاده کنید

SELECT * FROM yourtbl WHERE subid=1

همچنین واسه اضافه کردن مثلا یه پیام به لیست علاقه مندی جک به صورت زیر عمل کن

dim fave as favemanager
fave.addtofave("1",id)

id رو از همون تگ و سندر میگیرین.

در واقع اعداد یک تا چهار میشن همون فایل مپی که توش آی دی ها ی مربوط به هر گروه ذخیره میشن

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

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

 

مرسی از راهنمایی این رو درست کردم حالا وقتی میخوام در علاقه مندی مطالبی رو که به علاقه مندی ها اضافه شده نمایش بدم به چه صورته؟

کتابم یه بانک پیامکه و دارای چند موضوع و در هرموضوع تعداد زیادی متن کد اکتیویتی کریت هم به این صورت نوشتم :

ایا درسته؟

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	If File.Exists(File.DirInternal,"sms.db")=False Then
	File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
	End If
	If SQL1.IsInitialized = False Then
	SQL1.Initialize(File.DirInternal,"sms.db",True)
	End If
	cursur1 = SQL1.ExecQuery("SELECT * FROM smstbl WHERE fav = 1")
	myfont = Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt")&".ttf")
	Activity.LoadLayout("favorite")	
	
	For i=0 To cursur1.RowCount-1
	cursur1.Position=i
	text= cursur1.GetString("sms")
	text= cursur1.GetString("sms2")
	ScrollView1.Panel.color = Colors.Transparent
	
	Dim p1 As Panel
	p1.Initialize("")
	p1.LoadLayout("pnmatlab")
	ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y)

	btnshare.Tag = i
	btncopy.Tag = i 
	btndelet.Tag = i
	btnfav1.tag = i
	
	Label4.text="عاشقانه"
	Label4.Typeface=myfont
	Label4.TextColor=Colors.Black
	
	Label5.text = i + 1
	Label5.Typeface=myfont
	Label5.TextColor=Colors.Black
	
	ht=art(text,Label1,myfont,14)
	Label1.TextColor=Colors.Black
	Label1.Top = 9%y
	p1.Height=ht+25%x
	PanelHeight=PanelHeight+ht+25%x
	Next
	ScrollView1.Panel.Height=PanelHeight
End Sub

 

خواهش میکنم

این چیه ؟

For i=0 To cursur1.RowCount-1
	cursur1.Position=i
	text= cursur1.GetString("sms")
	text= cursur1.GetString("sms2")

توضیح میدی دربارش؟ :||: منظورم دو خط آخرشه

[MoniSoft 14]

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

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

[محمدرضا شاهپیری 5,282]

خب خدارو شکر

اگه بخواین همه علاقه مندیا یه جا باشه فقط کافیه وقتی متد addtofave رو صدا میزنین واسه همه گروهها از یه favename استفاده کنید مثلا واسه همه گروه ها این باشه

fave.addtofave("fave",id)

اون کلمه "fave"   همیشه ثابت باشه واسه همه گروه ها فقط id رو بش بده

[MoniSoft 14]

متن پیامک ها در قسمت sms گذاشته میشه?

بعد اون عدد که جلو جوک 1 در قسمت sms گذاشتین لازمه?

[MoniSoft 14]

خواهش میکنم

این چیه ؟

For i=0 To cursur1.RowCount-1
	cursur1.Position=i
	text= cursur1.GetString("sms")
	text= cursur1.GetString("sms2")

توضیح میدی دربارش؟ :||: منظورم دو خط آخرشه

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