طریقه رفرش کردن مولتی پنل

[amirjun32 105]

کسی میدونه چطوری باید مولتی پنل رو رفرش یامجدد لود کرذ؟؟

[amirjun32 105]

غیرممکنه امیرجان.

پس چطور برای اولین بار با همون حلقه فور پنل هارو لود میکنه؟؟؟

برای رفرش هم همون کد رو بذارید که لودشون بکنه.

 

کدهای رفرش و لود اولیه رو اینجا قرار بدید ببینیم چیکار کردین.

خدمت شما پژمان جان.

ضمنا اینو هم بگم ک زمانی ک ازبرنامه خارج میشی و دوباره وارد میشی،همه چی درست میشه.

Sub showlist

	Cur = sql.ExecQuery("SELECT * FROM tbl_name")
	For i = 0 To Cur.RowCount - 1
Cur.Position=i
Dim p As Panel
p.Initialize("p")
scrollview1.Panel.RemoveAllViews
ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
Stopint=Stopint+150dip
p.LoadLayout("pnl")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Panel1.Tag=i                         
If (i Mod 2)=1 Then					
			Panel1.Color=Colors.Red		
		Else							
			Panel1.Color=Colors.Blue	
		End If						
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
img1.Tag=i
img2.Tag=i
Label1.Text=Cur.GetString("name")
ScrollView1.Panel.Height=Stopint
Next
End Sub

[porya 959]

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

	sv.Panel.RemoveAllViews
	offsetY = sv.Height - sv.Height
	sv.ScrollPosition = offsetY

 	 Dim Cr As Cursor
	 Cr = MyBank.ExecQuery("SELECT * FROM tbl1  WHERE  matn1 LIKE '%"&EditText1.Text&"%'  ")
 	For i = 0 To Cr.RowCount - 1
  	Cr.Position = i
  	Dim p As Panel
  	p.Initialize("p")
  	sv.Panel.AddView(p,1%x,offsetY,99%x,100%y)
  	offsetY = offsetY + 22%y
  	p.LoadLayout("item")
  	p.Tag = Cr.GetInt("id")
  	Button1.Tag= Cr.GetInt("id")
  	Label1.Text = Cr.GetString("matn1")
 	 fav1.Tag= Cr.GetInt("id")
		
	sv.Panel.Height = offsetY	

	Next

اگه خوب متوجه نشدی میتونی از این تاپیک هم استفاده کنی...

[amirjun32 105]

ببخشید.من مشکلم حل نشد.دوستان کسی نمیتونه کمکی کنه؟

[پژمان نیکروان 6,054]

باید اطلاعات قبلی رو حذف و دوباره لودشون کنید باهمون حلقه فور دیگه.....

 

برای پاک کردن هم

scrollview1.Panel.RemoveAllViews

[amirjun32 105]

 

باید اطلاعات قبلی رو حذف و دوباره لودشون کنید باهمون حلقه فور دیگه.....

 

برای پاک کردن هم

scrollview1.Panel.RemoveAllViews

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

[پژمان نیکروان 6,054]

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

نشون میده منتها میره پایین تر از اونها لود میشه ، اگه یکم اسکرول کنید پایین میبینیدشون.

زیر دستور RemoveView اون متغیری که برای فاصله پنل ها استفاده میکردید صفر کنید.

احتمالا باید اسمش stop باشه.

stop=0

[amirjun32 105]

 

نشون میده منتها میره پایین تر از اونها لود میشه ، اگه یکم اسکرول کنید پایین میبینیدشون.

زیر دستور RemoveView اون متغیری که برای فاصله پنل ها استفاده میکردید صفر کنید.

احتمالا باید اسمش stop باشه.

stop=0

اره،ولی فقط یک پنل رو نشون میدهوکدامم ایناس.ضمناا اون stop رو هم صفر کردم داون یک پنل رو هم دیگه نشون نمیده.اینم کدام.

Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.RemoveAllViews
ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
Stopint=Stopint+150dip
p.LoadLayout("pnl")

[پژمان نیکروان 6,054]

اره،ولی فقط یک پنل رو نشون میدهوکدامم ایناس.ضمناا اون stop رو هم صفر کردم داون یک پنل رو هم دیگه نشون نمیده

غیرممکنه امیرجان.

پس چطور برای اولین بار با همون حلقه فور پنل هارو لود میکنه؟؟؟

برای رفرش هم همون کد رو بذارید که لودشون بکنه.

 

کدهای رفرش و لود اولیه رو اینجا قرار بدید ببینیم چیکار کردین.