Mthzf1384

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

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

سلام من چند وقت پیش با کتابخونه آقای شاهپیری کار میکردم منم همین مشکل رو داشتم (فکر میکنم مشکل توی لود کردن لیوته وقتی لیوت لود کنی دیگه نمیتونی به اون صورت ویو رو بگیری و روش کار انجام بدی) در هر صورت من اومدم دستی ویو ها رو اضافه کردم و درست شد شما هم یک امتحانی بکن

خیلی ممنون

سلام خدمت آقای شاهپیری بزرگوار آقای شاهپیری عزیز من یه کتاب نوشتم که می‌خوام آخرین مشاهده داشته باشه چجوری پوزیشن آخرین آیتمی رو که کاربر دیده ذخیره کنم با تشکر

ممنون مشکل حل شد

سلام آقای شاهپیری عزیز فکر می کنم شما منظور منو درست متوجه نشدید من آموزش هاتون رو نگاه کردم ولی داخل آموزش ها کلیک بر روی یک آیتم بوده مثل اینکه به جای لیست ویو از ریسایکلر ویو استفاده شده باشه شما به عکس توجه کنید این برنامه ی منه حالا من میخوام مثلا روی دکمه ی قلبه کلیک کنم باید چه کار کنم که ساب مربوط به خودش فراخوانی بشه؟ این OnItemClick من حتی اگر روی نوشته هم کلیک کنم ساب فراخوانی میشه ولی من میخوام هر دکمه یه کار خاصی انجام بده با دستور ایف هم هر چی فکر کردم نفهمیدم چجوری بزارم در هر صورت ممنون از کتابخانه ی خوبتون و پاسخگوییتون

سلام به همه اساتید و دوستان خوشبختانه مشکل قبلیم حل شد اما متاسفانه مشکل دیگری به مشکلاتمان اضافه شد من داخل برنامم دارم از ریسایکلر ویو استفاده می کنم و داخل این ریسایکلر ویو دارم یه پنل که داخلش دو تا لیبل و 5 تا دکمه هست رو لود می کنم . من دو تا سوال دارم: اگر بخوام روی یکی از این دکمه ها کلیک کنم آیا باید از رویداد کلیک دکمه استفاده کنم؟(من اومدم از این طریق رفتم ولی اصلا وقتی روی دکمه کلیک می کنم رویداد کلیک دکمه فراخوانی نمیشه و اصلا کد های این رو نمیخونه) اگر جوابتون به سوال اولم نه هست پس من چجوری باید کد های مربوط به کلیک روی دکمه رو بنویسم منظورم اینه که کجا؟ با تشکر از همه اساتید و دوستان انسر سنتری

سلام من کد هامو عوض کردم ولی همون مشکل قبلی رو دارم Sub Process_Globals Dim sql As SQL End Sub Sub Globals Type mymodel(Text As String) Dim l As List Dim pr As PersianRecyclerLayout Dim su As StringUtils Dim cur As Cursor Private lblpyamaktext As Label Private lbltitr As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") If(File.Exists(File.DirInternal , "book10v(2.0.2)") = False)Then File.Copy(File.DirAssets , "book10v(2.0.2).db" , File.DirInternal , "book10v(2.0.2).db") End If sql.Initialize(File.DirInternal , "book10v(2.0.2).db" , True) l.Initialize gettext pr.Builder("pr").NormalRecycler.BALayout.ListView.RecyclerView.Build Activity.AddView(pr , 0 , 0 , 100%X , 100%Y) pr.ShowRecycler End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub pr_getItemCount As Int Return l.Size End Sub Sub pr_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object Dim mainpanel As Panel = layoutitem mainpanel.LoadLayout("l") Return Null End Sub Sub pr_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int) As Object Dim mainpanel As Panel = layoutitem mainpanel.Width = 100%X mainpanel.Height = 200dip Dim model As mymodel model.Initialize model.Text = l.Get(position) lblpyamaktext.Text = model.Text lblpyamaktext.TextColor = Colors.Black lblpyamaktext.Height = su.MeasureMultilineTextHeight(lblpyamaktext , lblpyamaktext.Text) Log(position) Log(model.Text) Return mainpanel End Sub Private Sub gettext cur= sql.ExecQuery("SELECT * FROM TblText WHERE IDzFasl = 2 AND IDzGoftar = 1 AND IDzBakhsh = 1") For i = 0 To cur.RowCount - 1 cur.Position = i l.Add(cur.GetString("Text")) Next این هم کد هام هستش یه چیزی هم که فهمیدم این بود که متن ها رو تا آیتم 6 درست لود می کنه و آیتم 7 رو هم وقتی اسکرول می کنم درست نشون میده اما وقتی که اسکرول می کنم میام رو آیتم 8 به جای اینکه متن آیتم 8 رو عوض کنه میاد متن آیتم 7 رو پاک میکنه و متن آیتم هشت رو داخلش میریزه و آیتم 8 هم انگار اینکه آیتم 1 رو از بالا گرفته باشن آورده باشنش پایین خیلی ممنون میشم راهنمایی کنید البته ببخشید که من اینقدر سوال میکنم

خیلی ممنون از پاسخگوییتون

ببخشید من خیلی مبتدیم اگر میشه این قسمت رو برام بیشتر توضیح بدید و اگر میشه مثال هم برام بزنید

خیلی ممنون

سلام من از کتابخانه خوبتون استفاده میکنم. فقط الان یه مشکل برام پیش اومده اونم اینه که متن هایی رو که میخوام به ترتیب لود کنه رو به ترتیب لود نمی کنه Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim sql As SQL End Sub Sub Globals Dim pr As PersianRecyclerLayout Dim su As StringUtils Dim cur As Cursor Private lblpyamaktext As Label Private lbltitr As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") If(File.Exists(File.DirInternal , "book10v(2.0.2)") = False)Then File.Copy(File.DirAssets , "book10v(2.0.2).db" , File.DirInternal , "book10v(2.0.2).db") End If sql.Initialize(File.DirInternal , "book10v(2.0.2).db" , True) cur= sql.ExecQuery("SELECT * FROM TblText WHERE IDzFasl = 2 AND IDzGoftar = 1 AND IDzBakhsh = 1") pr.Builder("pr").NormalRecycler.BALayout.ListView.RecyclerView.Build Activity.AddView(pr , 0 , 0 , 100%X , 100%Y) pr.ShowRecycler End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub pr_getItemCount As Int Return cur.RowCount End Sub Sub pr_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object Dim mainpanel As Panel = layoutitem mainpanel.LoadLayout("l") cur= sql.ExecQuery("SELECT * FROM TblText WHERE IDzFasl = 2 AND IDzGoftar = 1 AND IDzBakhsh = 1") Return Null End Sub Sub pr_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int) As Object Dim mainpanel As Panel = layoutitem mainpanel.Width = 100%X mainpanel.Height = 50%Y cur.Position = position lblpyamaktext.Text = cur.GetString("Text") lblpyamaktext.TextColor = Colors.Black lblpyamaktext.Height = su.MeasureMultilineTextHeight(lblpyamaktext , lblpyamaktext.Text) Log(position) Log(cur.GetString("Text")) Return mainpanel End Sub Sub pr_OnItemClick(ItemTag As Object,viewclicked As Object,position As Int) Log(ItemTag) End Sub این هم کد هام هست در ضمن لاگ هم که می گیرم لاگ ها هیچ مشکلی نداره و کاملا درسته منتهااشتباه در لیبل لود میکنه دلیلش رو نمیدونم. ممنون میشم راهنمایی کنید