رفتن به مطلب
  • 0

یه مشکل کوچیک با مولتی پنل


محمد نیکدان

سوال

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


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


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


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

8 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

درود

خب مگه شما با Tag و Sender دارید کار نمیکنید ؟

توی همون رویداد کلیک دانلود میتونید ProgressBar رو هم کنترل کنید

Tag ها رو مثل هم قرار بدید که توی Button بتونید از ProgressBar هم استفاده کنید

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

در ضمن تبریک میگم بهتون که تا حد زیادی این آموزش رو یاد گرفتید :write:

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

سلام. خیلی ممنون که پاسخ دادید. لطف دارید.

قسمتی از کدا رو براتون میذارم:

(سعی کردم با تغییر رنگ بعضی موارد، خوندنش رو براتون آسونتر کنم.)

_____________________________________________

این خلاصه ی کد لود مولتی پنل:

For i = 0 To cursor3.RowCount -1
cursor3.Position=i
Dim p As Panel
("p.Initialize("p
(ScrollView1.Panel.AddView(p,0,stop,100%x,80%y
stop = stop + 75.16%x
("p.LoadLayout("Panels
 
dim downl as string
("downl=cursor3.GetString("link
"download.Tag= "www.mobilist.ir" & downl & ".mp3
Next
 
____________________________________________________________________________________
 
 
اینم کد مربوط به باتن کلیک دانلود:
 
Sub download_Click
 
   Dim iss As Button
iss=Sender
   url=iss.tag
 
   (HttpUtils.Download("downloadFile",url
initHttp
 
 
 

______________________________________________

 

 

Sub initHttp
    "HttpUtils.CallbackActivity = "Main
    "HttpUtils.CallbackJobDoneSub = "JobDone
    "HttpUtils.CallbackUrlDoneSub = "UrlDone
    "HttpUtils.CallbackProgressSub="ProgressHTTP
End Sub
__________________________________________________________
 
و در نهایت این ساب پایینی که پروگرس بار رو ست میکنه: 
 
(Sub ProgressHTTP (tmp As ProgressStatus
(ProgressBar1.progress=Round((tmp.downloaded*100)/tmp.total
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

من دقیق متوجه مشکلت نشدم ولی پیشنهاد میدم از  Map استفاده کنه و کلید مپ رو حلقه for بذاری

مثال

dim mymap as map

اول از همه اون رو اینیشیالایز کن

mymap.Initialize

حالا در این خط اطلاعات رو وارد کن

mymap.Put(i,"www.mobilist.ir/" & downl & ".mp3
download.Tag= i

برای فراخوانیشم اینطور عمل کن

Dim iss As Button
iss=Sender
   url=iss.tag
   HttpUtils.Download("downloadFile",mymap.Get(url))

کدهارو دستی نوشتم چک کن نتیجه رو گزارش کن در ضمن حواست به / در آدرس اینترنتی باشه

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

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

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

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

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

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

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

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...