لود 20تا 20تا از سرور

[mohammada 22]

سلام خسته نباشید خدمت دوستان و اساتید عزیزم!

دوستان با این سورس ارتباط با سرور انلاین چجوری میشه لود از سرور رو 20تا 20تا با اسکرول انجام داد؟؟ ممنون میشم کمک کنید!

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

ببخشید شاید سوالا پیش پا افتاده باشه...تازه کاریم دیگه!*monkey*

[مهدی ایزدی 9,203]

درود

برای 20 تا 20 تا نیاز به LIMIT دارید که باید PHP مربوطش رو آماده کنید

در مورد سوال دومت هم این رو بگم:

فقط کد مربوط به Load اطلاعاتت توی Panel رو بزار تا بهت بگم چه تغییری توش باید اعمال کنی !

البته بنده قصد دارم اگه وقت شد فردا آموزش Multi Panel رو آماده کنم و توی بخش آموزش های تصویری قرار بدم تا همگی استفاده کنن *laie*

[mohammada 22]

عرض سلام مجدد...خدمت شما!

Sub JobDone(Job As HttpJob)


If Job.Success = True AND Job.JobName = "dl" Then


a = Regex.Split("<br>",Job.GetString)
For i= 0 To a.Length-1


Dim pasl As Panel
pasl.Initialize("")
pasl.LoadLayout("panel1")
SV1.Panel.AddView(pasl,0,95dip + i*205dip,SV1.Width,200dip)
Dim id As String
Dim Subt As String
Dim ex As String
Dim telt As String
Dim mob As String
Dim addt As String



Dim jodasazi() As String = Regex.Split("#",a(i))
id = jodasazi(0)
Subt = jodasazi(1)
ex = jodasazi(2)
telt = jodasazi(3)
mob = jodasazi(4)
addt = jodasazi(5)



lsub.Text = Subt
lex.Text = ex
Ltel.Text = telt
Lmob.Text = mob
Ladd.Text = addt

Ltel.Tag = telt
Next
End If

[مهدی ایزدی 9,203]

این خط رو میبینید؟

SV1.Panel.AddView(pasl,0,95dip + i*205dip,SV1.Width,200dip)

شما بیایید به جای 95dip یک متغیر از نوع int تعریف کنید

تغییراتی که الان میگم رو اعمال کنید.

توی Sub Globlas بیایید تعریف کنید:

dim stop as int = 3%y

بعدش توی کد خط اول به جای 95dip بیایید بنویسید stop

خط بعدش هم این کد رو اضافه کنید:

stop = stop + 30%y

برای تنظیم شدن ScrollView هم بیایید بین Ltel.Tag = telt و Next این کد رو تعریف کنید:

ScrollView1.Panel.Height = stop

دیگه تنظیم کردنش با خودتون هست . میتونید اون 30%y رو تغییر بدید به 20 یا هر عدد دیگه که که متناسب با اندازه Panel خودتون هست !

موفق باشید