hitexroid

مدیر کل انجمن
  • تعداد ارسال ها

    204
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    67

آخرین بار برد hitexroid در 26 مرداد 1396

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

اعتبار در سایت

103 Excellent

7 دنبال کننده

درباره hitexroid

  • درجه
    کاربر ماهر
  • تاریخ تولد 8 مرداد 775
  1. میتونید قمری یا میلادی تاریخ هارو با کلیک بگیرید اما کل تقویم رو نمیتونید قمری کنید .
  2. https://github.com/omadahealth/SwipyRefreshLayout
  3. درسته باید پست جدید فروشگاه رو چک میکردید نه تاپیک های تاریخ گذشته ی انجمن رو ریسایکلر خودش رویداد کلیک داره ، توی پلاگین گذاشتن رویداد مجدد امکان پذیر نیست Sub LV_ItemClick (ClickedItem As Panel, Position As Int) '👆 ItemClick 👆' End Sub
  4. فقط برای حالت عمودی وجود دارند . راه دیگری نیست ، مگر اینکه در onBind پوزیشن آخر رو چک کنید .
  5. itemList.Clear itemList.Add(new Item) LV.notifyDataSetChanged
  6. از گذاشتن تاپیک تکراری خودداری کنید درغیر این صورت دسترسی ip شما به سایت (توسط سیستم) بسته خواهد شد .
  7. این نسخه برای آخرین نسخه ی ریسایکلر 7.20 ارائه شده و قبل از اون نبوده ! درگیر کارای سربازی هستم تاریخ 97/04/01 به بعد که کلا نیستم . این مثلا مشکل خنده دار رو باید توی Github مطرح کنید ، من سازنده نیستم فقط تبدیل میکنم https://github.com/leochuan/ViewPagerLayoutManager با کد زیر میتونید فقط روی آیتم وسط صفحه تمرکز کنید (برای زمانی که 3 آیتم قابل مشاهده هستند ، برای موارد دیگه باید تغییرات جزئی بدید) Sub LV_ItemClick (ClickedItem As Panel, Position As Int) '👆 ItemClick 👆' Dim CenterItemPosition = LV.GetVisibleItemPosition(True,True) As Int Dim Left = CenterItemPosition -1, Right = CenterItemPosition +1 As Int If Position <> Left And Position <> Right Then Log("Clicked At " & CenterItemPosition) End If End Sub
  8. سلام خدمت شما باید از Type و List استفاده کنید برای مثال : Sub Globals Dim LV As Hitex_LayoutView Type Model (Title As String, Checked As Boolean) Dim itemList As List End Sub Sub Activity_Create(FirstTime As Boolean) LV.Initializer("LV").ListView.Build Activity.AddView(LV,0,0,100%x,100%y) itemList.Initialize For i = 0 To 29 Dim item As Model item.Initialize item.Title = "Hello World ! " & i item.Checked = False itemList.Add(item) Next LV.Show End Sub Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int) '# onCreate #' Dim Switch As ACSwitch : Switch.Initialize("Switch") Switch.TextColor = Colors.Black : Switch.TextSize = 18 Parent.AddView(Switch,5%x,0,95%x,-2) End Sub Sub LV_onBindViewHolder (Parent As Panel, Position As Int) '* onBind *' Dim item = itemList.Get(Position) As Model Dim Switch = Parent.GetView(0) As ACSwitch Switch.Tag = Position Switch.Text = item.Title Switch.Checked = item.Checked If item.Checked Then Parent.Color = 0xFFc0ca33 Else Parent.Color = 0xFF9e9e9e End If End Sub Sub LV_GetItemCount As Int '$ ItemCount $' Return itemList.Size End Sub Sub Switch_CheckedChange(Checked As Boolean) Dim Switch = Sender As ACSwitch Dim Position = Switch.Tag As Int Dim item = itemList.Get(Position) As Model item.Checked = Checked Sleep(20) LV.notifyItemChanged(Position) End Sub
  9. سلام مجدد شما باید از کتابخونه ی مخصوص این کار استفاده کنید تقویم شمسی Hitex_PersianCalendarView ساختن دستی اون مهارت بسیار بالایی رو میطلبه
  10. خداروشکر خداوند به شما عقل داده و به من درستکاری ! چون اگه قرار بود سرتون رو کلاه بزارم آموزش های ویدئویی رو رایگان در اختیار عموم قرار نمیدادم شما میبایست ظرفیت کلیپ هارو بررسی و سپس اقدام به خرید عاقلانه میکردید . جدای از این ها ، هرگونه سوال یا مشکلی دارید باید تاپیک جداگانه ایجاد کنید.
  11. شما دو قسمت رو با دقت نگاه نکردید ، محاله رویداد کلیک به اون مهمی فراموش بشه درضمن این یک تاپیک عمومی هست ، شما نباید اینجا سوال در مورد نحوه ی عملکرد بنویسید بلکه باید یک تاپیک جدید با عنوان رویداد کلیک ایجاد کنید و سوالتون رو مطرح کنید زمانی که از رویداد زیر استفاده میکنید ; Sub LV_ItemClick (ClickedItem As Panel, Position As Int) '👆 ItemClick 👆' End Sub تمام فضای آیتم رو در بر میگیره اگه قصد دارید محیط کوچکتری رو به کلیک اختصاص بدید علاوه بر اینکه نباید از این رویداد استفاده کنید بلکه باید متد زیر رو هم قبل از LV.Show اجرا کنید LV.Clickable = False همچنین داخل onCreate یک پنل روی Parent اصلی به ابعاد دلخواه ایجاد میکنید Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int) '💎 onCreate 💎' Dim MyPanel As Panel MyPanel.Initialize("MyPanel") MyPanel.Color = Colors.Red Parent.AddView(MyPanel,10dip,10dip,95%x,53dip) End Sub حالا توی onBind همون پنل رو میگیریم بهش Tag میدیم Sub LV_onBindViewHolder (Parent As Panel, Position As Int) '💠 onBind 💠' Dim MyPanel = Parent.GetView(0) As Panel MyPanel.Tag = Position End Sub و حالا توی رویداد کلیک پنل جدیدمون هم خود پنل رو داریم هم موقعیتش رو ( حاشیه ها هم کلیک نمیشن) Sub MyPanel_Click Dim MyPanel = Sender As Panel Dim Position = MyPanel.Tag As Int Log("Clicked At " & Position) End Sub _______________________________________________________________________________________________________________________________________________________________________________ برای رویداد کلیک مابقی ویو های دلخواه مثل دکمه و لیبل و غیره هم ، از همین روش Tag و Sender استفاده میکنید اگه سوال یا مشکلی جدا از کلیک دارید ، فیلم هارو با دقت بیشتری ببینید یا توی انجمن بگردید ، غیر از این موارد بود تاپیک جدیدی ایجاد کنید . موفق باشید
  12. Sub Process_Globals Dim TAG_1 = "TAG_1", TAG_2 = "TAG_2" As Object End Sub Sub Globals Dim Volley As Hitex_VolleyX End Sub Sub Activity_Create(FirstTime As Boolean) Volley.Initialize("Volley") ' *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- First Request Dim Params As Map Params.Initialize Params.Put("Key1", "Value1") Params.Put("Key2", "Value2") StartRequest("http://yourFirstSite.com", Volley.POST, TAG_1, Params) ' *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- Second Request StartRequest("http://yourSecondSite.com", Volley.GET, TAG_2, Null) End Sub Sub StartRequest (Url As String, Method As Int, TAG As Object, Params As Map) Dim Request = Volley.StringRequest(Method,Url) As Hitex_Request If Params.IsInitialized Then Request.SetParams(Params) Request.SetTag(TAG) Volley.AddToRequestQueue(Request) End Sub Sub Volley_onResponse (Response As String) Dim Request = Sender As Hitex_Request Select Request.Tag Case TAG_1 : Log(TAG_1 & " - " & Response) Case TAG_2 : Log(TAG_2 & " - " & Response) End Select End Sub Sub Volley_onErrorResponse (Error As VolleyError) Log(Error) End Sub
  13. سلام ٬ تغییر سرعتش رو ان شاء الله توی نسخه ی بعد اضافه میکنیم در مورد ۲ کلیپ ٬ باید بگم که فقط همون دوتا در دسترس هستند ٬ و ۸ تای قبلی چون سینتکسشون تغییر کرده بود و دیگه روی نسخه ی جدید کاربردی نداشت حذف شدند CreateItems برای نسخه ی قدیمی بوده ٬ الان باید AddItem و Show کنید
  14. کلاس خود ریسایکلر هست ، نیازی به تهیه کتابخانه ی جداگانه نیست .