نحوه ی استفاده از Refresh در ریسایکلر ویو

[hitexroid 105]

نحوه ی استفاده از Refresh برای ریسایکلر ویو (نسخه 6+)

Sub Globals
	Dim LV As Hitex_LayoutView
	Dim RL As Hitex_RefreshLayout
End Sub

Sub Activity_Create(FirstTime As Boolean)
	LV.Initializer("LV").ListView.RefreshLayout.ReverseLayout.Build
	Activity.AddView(LV,0,0,100%x,100%y)
	
	RL.Initialize(LV, "RL")
	RL.Direction = RL.DIRECTION_TOP
	RL.SchemeColors = Array As Int (Colors.Red, Colors.Black, Colors.Blue)
	
	LV.Show

End Sub
Sub RL_onRefresh (Direction As Int)

	Select (Direction)
		Case RL.DIRECTION_TOP:
			Log("TOP")
		Case RL.DIRECTION_BOTTOM:
			Log("BOTTOM")
	End Select

End Sub
Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int)      '# onCreate #'
	Dim lbl As Label: lbl.Initialize("lbl")
	lbl.TextColor = -2 : lbl.TextSize = 18
	Parent.AddView(lbl,0,0,100%x,10%y)
End Sub

Sub LV_onBindViewHolder (Parent As Panel, Position As Int)         '* onBind *'
	Dim lbl = Parent.GetView(0) As Label
	lbl.Text = "Hello World ! " & Position
End Sub

Sub LV_GetItemCount As Int 								        '$ ItemCount $'
	Return 100 'ItemList.Size
End Sub

 

[hamed anary 0]

سلام با چه کدی میتونم rfresh رو غیر فعال کنم که دیگه نمای داده نشه.

من الان کد بالا رو نوشتم و رفرش بالای صفحه میاد و دیگه ناپدید نمیشه

ممنون

[hamed anary 0]

حل شد ممنون

[msajad 0]

سلام دوتا کار میخوام انجام بدم ولی تا این نسخه ریسایکلر امکانش نیست یا اگه هست راهنمایی کنید
1-برنامه من اطلاعات رو از دیتابیس انلاین میخونه و لیمیت داره میخوام ببینم میشه به جای این که کاربر رفرش کنه وقتی به اخر لیست رسیدیم اطلاعات جدید رو لود بشه(مثل کافه بازار یا گوگل پلی که یک فوتر لودینگ میاره و اطلاعات جدید ادد میشه)

2-میخوام ریسایکلر رو داخل ویو پیجر استفاده کنم ولی رفرش با ویو پیجر(به دلیل چند ریسایکلر تو یه صفحه) نمیشه همزمان استفاده کرد

 

[hitexroid 105]

If (Position = itemList.Size -1) Then
	'End
End If

کد بالا توی ساب onBind

[sfrsfre 1]

سلام وتشکر از ارائه کتابخانه خوب هایتکس ریسایکلرویو

این دستورات مربوط به رفرش در ریسایکلر افقی کارنمیکنه! اصلا گزینه DIRECTION_LEFT   , DIRECTION_RIGHT   درش نیست!

این مشکلو چه کارکنم؟ 

[sfrsfre 1]

سلام آقای نامنی عزیز 

برای این مشکل بنده راهکاری ندارید بفرمایید؟ کارم گیره اینه! 

اگر راهنمایی بفرمایید ممنون میشم 

[saeed saeedi 0]

سلام خدمت اساتید. می خواستم رفرش با زدن دکمه انجام بشه. راهی هست؟

[hitexroid 105]

در 12 ساعت قبل، saeed saeedi گفته است :

سلام خدمت اساتید. می خواستم رفرش با زدن دکمه انجام بشه. راهی هست؟

itemList.Clear

itemList.Add(new Item)

LV.notifyDataSetChanged

 

[hitexroid 105]

در در 3/10/2018 در 23:35، sfrsfre گفته است :

سلام وتشکر از ارائه کتابخانه خوب هایتکس ریسایکلرویو

این دستورات مربوط به رفرش در ریسایکلر افقی کارنمیکنه! اصلا گزینه DIRECTION_LEFT   , DIRECTION_RIGHT   درش نیست!

این مشکلو چه کارکنم؟ 

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

در در 2/4/2018 در 09:19، hitexroid گفته است :

If (Position = itemList.Size -1) Then
	'End
End If

کد بالا توی ساب onBind

 

[sfrsfre 1]

در 4 دقیقه قبل، hitexroid گفته است :

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

 

متشکرم

ادرس گیت هاب کتابخانه رو هم میتونید لطف کنید؟

 

[hitexroid 105]

https://github.com/omadahealth/SwipyRefreshLayout

[reza1360 0]

با سلام...در کد زیر چرا هر کاری میکنم lable.text دیده نمیشه تو صفحه

Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int)      '# onCreate #'
           Parent.LoadLayout("l1")
		   Dim img1 As ImageView
		   img1.Initialize("")
	       img1.Bitmap = LoadBitmap(File.DirAssets,"8.jpg")
	       img1.Gravity = Gravity.FILL
	       Parent.AddView(img1,0,0,30%x,20%y)
End Sub

Sub LV_onBindViewHolder (Parent As Panel, Position As Int)         '* onBind *'
	Dim img As ImageView = Parent.GetView(0)
	Dim lbl As Label = Parent.GetView(1)
	lbl.Text = "بخش عفونی و جراحی " & Position
	lbl.Typeface = Typeface.LoadFromAssets("B Yekan.TTF")
	Parent.Width = -1
	Parent.Height = 20%y
	
End Sub

Sub LV_GetItemCount As Int 								        '$ ItemCount $'
	Return 21 'ItemList.Size
End Sub

Sub LV_ItemClick (ClickedItem As Panel, Position As Int)		'👆 ItemClick 👆'
	ToastMessageShow("کلیک شد"&Position,False)
	
End Sub

 

[irangold 0]

در در 11/7/2018 در 00:14، reza1360 گفته است :

با سلام...در کد زیر چرا هر کاری میکنم lable.text دیده نمیشه تو صفحه

Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int)      '# onCreate #'
           Parent.LoadLayout("l1")
		   Dim img1 As ImageView
		   img1.Initialize("")
	       img1.Bitmap = LoadBitmap(File.DirAssets,"8.jpg")
	       img1.Gravity = Gravity.FILL
	       Parent.AddView(img1,0,0,30%x,20%y)
End Sub

Sub LV_onBindViewHolder (Parent As Panel, Position As Int)         '* onBind *'
	Dim img As ImageView = Parent.GetView(0)
	Dim lbl As Label = Parent.GetView(1)
	lbl.Text = "بخش عفونی و جراحی " & Position
	lbl.Typeface = Typeface.LoadFromAssets("B Yekan.TTF")
	Parent.Width = -1
	Parent.Height = 20%y
	
End Sub

Sub LV_GetItemCount As Int 								        '$ ItemCount $'
	Return 21 'ItemList.Size
End Sub

Sub LV_ItemClick (ClickedItem As Panel, Position As Int)		'👆 ItemClick 👆'
	ToastMessageShow("کلیک شد"&Position,False)
	
End Sub

 

شما لیبل رو در ساب onCreateViewHolder تعریف نکردین!