رفرش صفحه با اسکرول کردن و بارگذاری مولتی پنلها(دیتابیس آنلاین)

[koorosh 6]

سلام دوستان...

 

من برنامم 4 تا تب داره که توی یکیش(تب اول و اصلیم) مولتی پنل به صورت آنلاین لود میشه حالا هر وقت اطلاعات جدیدی ثبت میکنم باید حتما از برنامه خارج بشم و دویاره وارد بشم که مطالب جدید بارگذاری شده باشه .......

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

 

پیشاپیش از کمکتون ممونم. 

[shahab.es 5,429]

سلام به نظرم یه ساب درست کن هموطن گلم...

کل کدای لود مولتی پنلت رو بذار توش

فقط قبل لودش، مثل تاپیک زیر، بیا و اطلاعات رو پاک کن...

http://answercenter.ir/topic/13593-معادل-دستور-clear-لیست-ویو-در-اسکرول-ویو/?p=84620

 

این از این

از این به بعد مثلا یه ساب دارید به اسم show

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

اخرش یه 

show

بنویس...

[koorosh 6]

سلام به نظرم یه ساب درست کن هموطن گلم...

کل کدای لود مولتی پنلت رو بذار توش

فقط قبل لودش، مثل تاپیک زیر، بیا و اطلاعات رو پاک کن...

http://answercenter.ir/topic/13593-معادل-دستور-clear-لیست-ویو-در-اسکرول-ویو/?p=84620

 

این از این

از این به بعد مثلا یه ساب دارید به اسم show

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

اخرش یه 

show

بنویس...

 

سلام استاد بزرگوار...

 

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

 

اینم کدهای من که توی اسکرول چنج نوشتم:

Sub sv_ScrollChanged(Position As Int)


sv.Panel.RemoveAllViews
top = sv.Height - sv.Height
sv.ScrollPosition = top
downloader.Initialize("dl",Me)
            downloader.Download("http://otisiran.ir/asan/show.php") 
p1.LoadLayout("scroll")
Dim job1 As HttpJob
'If job1.Success Then
'  If job1.JobName = "dl" Then
   Dim parser As JSONParser
   parser.Initialize(job1.GetString)
   Dim lst As List
   lst.Initialize
   lst = parser.NextArray
   For Each m As Map In lst
    Dim p As Panel
p.Initialize("p")
p.Tag = m.Get("text")
sv.Panel.AddView(p,0,top,100%x,100%y)
top = top + 30%y
p.LoadLayout("multipanel")
Dim dl As ImageDller
dl.Initialize
dl.Download(imgMulti,m.Get("imgname"))
lblMultiTitle.Text= m.Get("title")
lblMultiText.Text = m.Get("text")
lblgheymat.Text = m.Get("gheymat")
lblmakan.Text = m.Get("shahr")
   Next
  sv.Panel.Height = top + 18.5%y
   
'  End If
' 
' End If




End Sub

[shahab.es 5,429]

شما ارورتونم بذار عزیزم..

بعد چرای توی اسکرول چنج؟؟

این هر یه میلی متری که میری پایین این کدارو اجرا میکنه که اصن منطقی نیست عزیزم...

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

این کار باعث میشه وقتی که اسکرول به پایان رسید ، این اتفاق بیافته

البته اگه دوست داشتید...

Sub sv_ScrollChanged(Position As Int)
If sv.ScrollPosition+sv.Height=sv.Panel.Height Then
'rooydade delkhaah'
end if
End Sub

[koorosh 6]

 

شما ارورتونم بذار عزیزم..

بعد چرای توی اسکرول چنج؟؟

این هر یه میلی متری که میری پایین این کدارو اجرا میکنه که اصن منطقی نیست عزیزم...

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

این کار باعث میشه وقتی که اسکرول به پایان رسید ، این اتفاق بیافته

البته اگه دوست داشتید...

Sub sv_ScrollChanged(Position As Int)
If sv.ScrollPosition+sv.Height=sv.Panel.Height Then
'rooydade delkhaah'
end if
End Sub

 

 

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