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

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


MoniSoft

سوال

سلام

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

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

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

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

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 چه جیزی قرار بدم؟

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

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

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

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

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

 

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

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

درود

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

 

شما 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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

 

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

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

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

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

ایا درسته؟

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

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

242424.png

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

سلام هموطن 

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

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

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

SELECT * FROM yourtbl WHERE subid=1

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

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

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

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

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

post-673-0-90990100-1464302457_thumb.png

post-673-0-19040800-1464303316_thumb.png

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

 

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

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

ایا درسته؟

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

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

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

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

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

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

خب خدارو شکر :malih:

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

fave.addtofave("fave",id)

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

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

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

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

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

خواهش میکنم

این چیه ؟

For i=0 To cursur1.RowCount-1
	cursur1.Position=i
	text= cursur1.GetString("sms")
	text= cursur1.GetString("sms2")
توضیح میدی دربارش؟ :||: منظورم دو خط آخرشه

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

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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