amiro72

مشکل در رفرش ریسایکلر

7 ارسال در این موضوع قرار دارد

سلام من یه مشکل توی رفرش کردن لیست دارم کد ها رو میزارم ممنون میشم راهنمایی کنید دوستان

دیتابیس من انلاینه و اطلاعات رو به صورت جیسون دریافت میکنم 

کد

Sub jobdone(job As HttpJob)
	
Try
	If job.success = True Then
			Select Case job.JobName
	

			Case "job_comment"
				'
				Dim total() As String
				total=Regex.Split("<hr>",job.GetString)
		
				For i =0 To  total.Length -1
					Dim json As JSONParser
					json.Initialize(total(i))
				
	
					Dim list As List
					list=json.NextArray

					Dim item As model2
				
					item.id1= list.Get(0)
					item.user1= list.Get(1)
					item.cod1= list.Get(2)
					item.name1= list.Get(3)
					item.text1= list.Get(4)
	
	
					itemlist.Add(item)
		
				Next
					
				LV.Ripple.Alpha(180)
				LV.CardView.CardElevation(2dip).Radius(1dip)
				LV.Show
				
				
				
				
				
'				LV.Divider.Add1(Colors.Gray,1dip)
'				LV.Divider.Add2(Colors.Gray,1dip,8dip,8dip)
				
				ProgressDialogHide
				
				
			Case "ersalcomment"
				prt.Visible = False
				
'				LV.notifyDataSetChanged
				
				

			End Select
				
	
	Else
	
			
	End If
Catch
	End Try	
job.Release
End Sub

,تا اینجا درست یه باتن گذاشتم براا ارسال کامنت وقتی کامنت رو ارسال میکنم با متد پست اطلاعات رو پست میکنم به لینک مورد نظر که بلافاصله بعد از ثبت کامنت کامنت توی دیتابیس اینسرت میشه 

کد ارسال 

Sub bco_Click
	ersalcomment.PostString("http://www.php","user="&iduser&"&cod="&show.code2&"&text="&eco.Text)
End Sub

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

کد اظلاع از ثبت شدن کامنت که توی جابدان هست بعد از ثبت شدن پنل ارسال کامنت رو مخفی میکنم 

			Case "ersalcomment"
				prt.Visible = False

 

تمام

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام

اول از همه اینکه نباید کدهای show و غیره رو داخل سابی بجز Activity_Create قرار داد توی ساب jobDone باید notifyDataSetChanged کنید

LV.Ripple.Alpha(180)
LV.CardView.CardElevation(2dip).Radius(1dip)
LV.Show

درضمن میزان Alpha برای Ripple باید بین 0 تا 1 باشه که مابینشون میشه 0.5f

LV.Ripple.Alpha(0.5f)

توی قسمت زیر

در 25 دقیقه قبل، amiro72 گفته است :

Case "ersalcomment" prt.Visible = False ' LV.notifyDataSetChanged End Select

چیزی به لیست اضافه نشده فقط notify خالی گذاشتید

باید کامنت به itemList اضافه بشه با add کردن بعد سعی کنید notify کنید

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در 14 دقیقه قبل، hitexroid گفته است :

سلام

اول از همه اینکه نباید کدهای show و غیره رو داخل سابی بجز Activity_Create قرار داد توی ساب jobDone باید notifyDataSetChanged کنید


LV.Ripple.Alpha(180)
LV.CardView.CardElevation(2dip).Radius(1dip)
LV.Show

درضمن میزان Alpha برای Ripple باید بین 0 تا 1 باشه که مابینشون میشه 0.5f


LV.Ripple.Alpha(0.5f)

توی قسمت زیر

چیزی به لیست اضافه نشده فقط notify خالی گذاشتید

باید کامنت به itemList اضافه بشه با add کردن بعد سعی کنید notify کنید

ممنون مشکلای دیگه رو رفع کردم 

 

حالا دوتا سوال 

اول این که این  0.5f  این f چی هست ؟

 

دوم این که اینجا که گفتین 

 

توی قسمت زیر

چیزی به لیست اضافه نشده فقط notify خالی گذاشتید

باید کامنت به itemList اضافه بشه با add کردن بعد سعی کنید notify کنید

 

مشکلم همون اضافه کردن هست نمیدونم چطوری اضافه کنم کامنتی که ارسال میشه رو

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

اون f نشانه ی float اعشاری بودن هست توی بیسیک گذاشتن یا نذاشتنش مهم نیست .

در 17 دقیقه قبل، amiro72 گفته است :

مشکلم همون اضافه کردن هست نمیدونم چطوری اضافه کنم کامنتی که ارسال میشه رو

وقتی کامنت رو پست میکنید نتیجش میاد توی jobDone

اگه نتیجه رو با job.GetString میتونید بگیرید که با itemList.Add کردن به لیست اضافش کنید

Dim item As model2
				
item.id1= list.Get(0)
item.user1= list.Get(1)
item.cod1= list.Get(2)
item.name1= list.Get(3)
item.text1= list.Get(4)
itemlist.Add(item)

اگه نمیده باید موارد بالا رو دستی وارد کنید و کامنت رو از editText.Text بگیرید

درنهایت itemlist.Add(item) و notify کنید

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

یا این که یه کار دیگه کنیم وقتی کامنت جدید ارسال شد و ثبت شد بیایم لیست رو از اول لود کنیم ؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در 2 دقیقه قبل، hitexroid گفته است :

اون f نشانه ی float اعشاری بودن هست توی بیسیک گذاشتن یا نذاشتنش مهم نیست .

وقتی کامنت رو پست میکنید نتیجش میاد توی jobDone

اگه نتیجه رو با job.GetString میتونید بگیرید که با itemList.Add کردن به لیست اضافش کنید


Dim item As model2
				
item.id1= list.Get(0)
item.user1= list.Get(1)
item.cod1= list.Get(2)
item.name1= list.Get(3)
item.text1= list.Get(4)
itemlist.Add(item)

اگه نمیده باید موارد بالا رو دستی وارد کنید و کامنت رو از editText.Text بگیرید

درنهایت itemlist.Add(item) و notify کنید

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

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در در 3/1/2018 در 16:55، amiro72 گفته است :

Dim item As model2

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری