مدیریت کامل لیست علاقه مندی با کتابخانه m.sh_fave

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

سورس اضافه شد و ارور کتابخانه sendsms برطرف شد
این کتابخونه در واقع مدیریت کامل لیست علاقه مندی رو بهتون میده شما اگه هزار تا موضوع مختلف داشته باشین و بخواین برای هر کدوم یه لیست علاقه مندی درست کنید با این کتابخونه هیچ مشکلی تو این کار ندارید
خب بریم سراغ نحوه استفاده
شما وقتی کتابخونه رو دانلود کردین اونو توی لایبرری کپی کنید اسم کتابخونه( m.sh_fave) هستش  حالا کتابخونه رو تیک بزنید و یه متغیر از نوع favemanager بسازید میشه کد زیر

Dim fave As favemanager
fave.Initialize

تا اینجا ما متغیر رو ساختیم و اینیشیالایز کردیم حالا بریم سراغ متدهاش
1- متد addtofave : این متد دوتا ورودی داره یه id که همون آی دی مربوط به مطلب توی دیتابیس هستش و یه دونه favename که اسم فایل مربوط به لیست علاقه مندی هست مثلا

fave.addtofave(108,"asheghane")

با این کار ما آیتم با آی دی 108 رو توی دسته عاشقانه اضافه کردیم شما میتونید برای همه ی موضوعها همین کار رو بکنید

2- متد chekfave :ورودی های این متد همون ورودی های قبلی هستش با این متد میاین چک میکنید که آیا آیتم با آی دی مشخص داخل یه فایل مشخص هست یا نه این واسه تعیین آیکن مربوط به لیست علاقه مندیه که اگه true بود یعنی مطلب توی لیست علاقه مندی هست اگه نبود یعنی نیست و آیکنهای متناضرشونو ست میکنید

3- متد favelist: این متد از نوع مپ هست ورودی این متد فقط یه اسمه که همون اسم لیست علاقه مندی مربوط به هر گروهه روش استفادش هم به این صورته که شما میاین یه متغیر از نوع مپ ایجاد میکنید و اون رو برابر با این متد میکنید به شکل زیر

Dim m As Map 
m.Initialize
 m=fave.favelist("asheghane") 
For i= 0 To m.Size-1 	
m.GetkeyAt(i)'اینجا میاین آیتمهای داخل لیست علاقه مندی رو میگیرین
Next

شما باید آموزش مربوط به لیست علاقه مندی رو دیده باشین یعنی لینک زیر
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/

 

sample.rar

m_sh_fave.rar

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

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

[MoniSoft 14]

سلام اقا محمدرضا

من در صفحه ای که مطالب رو نشون میده یه edit text گذاشتم و میخوام در همونجا که جستجو انجام میشه مطالب رو هم نشان بده من کد رو به صورت زیر نوشتم و قرار دادم وقتی جستجو میکنم تمام مطالب پاک میشن و نتیجه جستجو رو هم نشنون نمیده و فقط مطلب اخر رو میاره  میشه راهنمایی کنید :

Sub EditText1_TextChanged (Old As String, New As String)
	ScrollView1.Panel.RemoveAllViews
	PanelHeight = ScrollView1.Height - ScrollView1.Height
	
		Dim l As List 
		l.Initialize
   	    l.AddAll(Array  As String(smscontent.sms))
		For i = 0 To l.Size - 1
        If l.Get(i) = EditText1.Text Then
        ToastMessageShow("پیدا شد",False)
        End If
        Next 
		
	Dim p1 As Panel
	p1.Initialize("")
	p1.Color=Colors.RGB(234, 89, 18)
		ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,0)
	p1.LoadLayout("favelay")
		text= smscontent.sms
		faveimg.Tag=smscontent.id
		But1.Tag=smscontent.id
		ht=art(text,Label1,"bnazanin",20)
		q.quicsett(Label1,smscontent.sms,20,"bnazanin",Gravity.CENTER,Colors.Black)
		If favmanage.chekfave(smscontent.id,mostar)=True Then
	mycode.setimg(faveimg,"fave")
	Else 
	mycode.setimg(faveimg,"disfave")
		End If
	Panel1.Height=ht+160dip
	PanelHeight=PanelHeight+ht+170dip
	p1.Height=Panel1.Height+160dip
	ScrollView1.Panel.Height=PanelHeight+p1.Height-170dip	
		
End Sub

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

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

یه تاپیک جدید بزنید لطفا دوستان راهنمایی میکنن