جستجو در تالار

در حال نمایش نتایج برای برچسب های 'recycler'.



تنظیمات بیشتر جستجو

  • جستجو بر اساس برچسب

    برچسب ها را با , از یکدیگر جدا نمایید.
  • جستجو بر اساس نویسنده

نوع محتوا


تالار ها

  • اخبار سایت
    • قوانین انجمن
    • اخبار و اطلاعیه ها
    • انتقادات و پیشنهادات
  • بیسیک فور اندروید
    • آموزش ها
    • کتابخانه ها
    • سورس کد ها
    • قطعه کد ها
    • سوالات عمومی
    • معرفی برنامه های شما
    • دانلود نسخه های مختلف
  • اندروید استدیو
    • کتابخانه ها
    • سورس کد ها
    • قطعه کد ها
    • سوالات عمومی
    • معرفی برنامه های شما
  • زبان های برنامه نویسی دیگر
    • PHP
  • بخش گرافیک
    • ابزار های طراحی
    • طرح های لایه باز
    • نمونه رابط کاربری (UI)
  • بخش VIP
    • سورس کد ها
    • کتابخانه ها
    • آموزش ها
    • بخش پشتیبانی
  • متفرقه
    • بحث آزاد

دسته ها

  • بیسیک فور اندروید
    • کتابخانه ها
    • سوس کدها
    • نسخه های مختلف b4a

3 نتیجه پیدا شد

  1. در نسخه ی 6.98 Hitex_RecyclerView میتونید به یک اندازه ی برابر بین آیتم هاتون فاصله بندازید فقط یادتون باشه که حتماً باید عرض Parent رو توی onBindViewHolder برابر با 1- کنید . مثال : با کد زیر میتونید فاصله ی مابین لیست هارو تنظیم کنید (با True کردن پارامتر IncludeEdge اجازه میدید که این فاصله از 4 طرف ایجاد بشه) LV.SpacingItemDecoration(50, True) کد های مربوط به Sub های اولیه Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int) '# onCreate #' Dim lbl As Label : lbl.Initialize("lbl") lbl.TextColor = Colors.Black Parent.AddView(lbl,0,0,-1,20%y) Parent.Color = Colors.RGB(Rnd(0,256),Rnd(0,256),Rnd(0,256)) End Sub Sub LV_onBindViewHolder (Parent As Panel, Position As Int) '* onBind *' Dim lbl = Parent.GetView(0) As Label lbl.Text = "Hello World ! " & Position lbl.Gravity = Gravity.CENTER Parent.Width = -1 Parent.Height = 20%y End Sub Sub LV_GetItemCount As Int '$ ItemCount $' Return 9 'ItemList.Size End Sub نتیجه به صورت زیر خواهد بود :
  2. سلام بر همه توی ریسایلکرر وقتی سرچ میکنم . مواردیی که شامل سرچ من است میاد بالا . ایتم لیست هایی که دربرگیرنده ی سرچ من بوده میاد بالا .. خب به طبع شماره ها از 0 به بالا رقم میخوره . .... وقتی روش کلیک میکنم در حقیقت میشه شماره 0 مثلا .در حالیکه توی لیست قبل از سرچ مثلا شماره 10 بوده . حالا چی کنم ؟ چه راه حلی است ؟ توی رویداد ایتم کلیک چی باید بنویسم ؟ ممنون
  3. مثال ساده اول : Sub Globals Dim RVP As Hitex_RecyclerViewPager End Sub Sub Activity_Create(FirstTime As Boolean) RVP.Initialize("RVP") Activity.AddView(RVP,0,0,100%x,100%y) RVP.Orientation = RVP.HORIZONTAL RVP.SinglePageFling = True RVP.Show End Sub Sub RVP_onCreateViewHolder (Parent As Panel, ViewType As Int) '💎 onCreate 💎' Dim lbl As Label : lbl.Initialize("lbl") lbl.Gravity = Gravity.CENTER Parent.AddView(lbl,0,0,100%x,100%y) Parent.Color = Colors.RGB(Rnd(0,256),Rnd(0,256),Rnd(0,256)) End Sub Sub RVP_onBindViewHolder (Parent As Panel, Position As Int) '💠 onBind 💠' Dim lbl = Parent.GetView(0) As Label lbl.Text = "Text " & Position End Sub Sub RVP_GetItemCount As Int '💯 ItemCount 💯' Return 10 '/ItemList.Size End Sub مثال پیشرفته دوم : Sub Process_Globals Public TYPE_IMAGE = 0, TYPE_TEXT = 1, TYPE_BUTTON = 2 As Int End Sub Sub Globals Dim RVP As Hitex_RecyclerViewPager Type Layout(ViewType As Int, Text As String) Dim ItemList As List End Sub Sub Activity_Create(FirstTime As Boolean) RVP.Initialize("RVP") Activity.AddView(RVP,0,0,100%x,100%y) ItemList.Initialize RVP.Orientation = RVP.HORIZONTAL RVP.SinglePageFling = True RVP.Show AddNewPage(TYPE_IMAGE, "smart1.jpg") AddNewPage(TYPE_TEXT, "Hitex Recycler View") AddNewPage(TYPE_BUTTON, "GOTO Page 1") End Sub Sub RVP_onCreateViewHolder (Parent As Panel, ViewType As Int) '💎 onCreate 💎' Select (ViewType) Case TYPE_IMAGE : Dim img As ImageView : img.Initialize("img") img.Gravity = Gravity.FILL Parent.AddView(img,0,0,100%x,100%y) Case TYPE_TEXT : Dim lbl As Label : lbl.Initialize("lbl") lbl.Gravity = Gravity.CENTER : lbl.TextSize = 22 lbl.Typeface = Typeface.DEFAULT_BOLD Parent.AddView(lbl,0,0,100%x,100%y) Parent.Color = Colors.RGB(Rnd(0,256),Rnd(0,256),Rnd(0,256)) Case TYPE_BUTTON : Dim btn As Button : btn.Initialize("btn") btn.Gravity = Gravity.CENTER Parent.AddView(btn,10%x,30%y,80%x,30%y) Parent.Color = Colors.RGB(Rnd(0,256),Rnd(0,256),Rnd(0,256)) End Select End Sub Sub RVP_onBindViewHolder (Parent As Panel, Position As Int) '💠 onBind 💠' Dim Item = ItemList.Get(Position) As Layout Select (Item.ViewType) Case TYPE_IMAGE : Dim img = Parent.GetView(0) As ImageView img.Bitmap = LoadBitmap(File.DirAssets,Item.Text) Case TYPE_TEXT : Dim lbl = Parent.GetView(0) As Label lbl.Text = Item.Text Case TYPE_BUTTON : Dim btn = Parent.GetView(0) As Button btn.Text = Item.Text End Select End Sub Sub RVP_GetItemCount As Int '💯 ItemCount 💯' Return ItemList.Size End Sub Sub RVP_GetItemViewType (Position As Int) As Int '🎭 GetItemViewType 🎭' Dim Item = ItemList.Get(Position) As Layout Return Item.ViewType End Sub Sub AddNewPage (ViewType As Int, Text As String) Dim Item As Layout Item.ViewType = ViewType Item.Text = Text ItemList.Add(Item) RVP.notifyItemAdded End Sub Sub btn_Click RVP.GotoPage(0,True) End Sub