محمدرضا شاهپیری 5,579 ارسال شده در 6 خرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 6 خرداد، ۱۳۹۵ سورس اضافه شد و ارور کتابخانه 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 ارسال شده در 7 خرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 7 خرداد، ۱۳۹۵ تشکر ویژه از آقای شاهپیری عزیز بابت قرار دادن این آموزش عالی لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
MoniSoft 14 ارسال شده در 12 خرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 12 خرداد، ۱۳۹۵ سلام اقا محمدرضا من در صفحه ای که مطالب رو نشون میده یه 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 ارسال شده در 12 خرداد، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 12 خرداد، ۱۳۹۵ دوست عزیز این مطلب ربطی به این تاپیک نداره که مشکل از لیستتونه یه تاپیک جدید بزنید لطفا دوستان راهنمایی میکنن لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.