استفاده از ProgressBar در دانلود

[reza644 435]

سلام

 

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

 

هر کار کردم نشد

Sub JobDone(Job As HttpJob)                             
If Job.Success = True Then
Select Case Job.JobName
  Case "job1"
  Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
    Case "job2"
    Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
    ToastMessageShow("فایل دانلود و ذخیره شد",True)
mediaplayer1.Initialize2("mediaplayer1")
mediaplayer1.Load(File.DirRootExternal & "/MusicB4A", "shahadat.mp3")
    mediaplayer1.Looping=False
    mediaplayer1.Play
    Case "job3"
    Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release

    ToastMessageShow("فایل دانلود و ذخیره شد",True)
mediaplayer1.Initialize2("mediaplayer1")
mediaplayer1.Load(File.DirRootExternal & "/MusicB4A", "shahadat.mp3")
    mediaplayer1.Looping=False
imageview1.Visible=False
imageview2.Visible=True
imageview3.Visible=False
imageview4.Visible=True
imageview5.Visible=False
 End Select
 Else
ToastMessageShow(hj.ErrorMessage,True)
End If
ProgressDialogHide
End Sub

دکمه دانلــــــــــــــــــــــــود 

Sub imageview1_Click
 If File.Exists(File.DirRootExternal & "/MusicB4A", "shahadat.mp3") = False Then
imageview1.Visible=True
imageview2.Visible=False
imageview3.Visible=False
imageview4.Visible=False
ToastMessageShow("در حال دانلود",False)
name="shahadat.mp3"
dier=File.DirRootExternal& "/MusicB4A"
link="http://cld.persiangig.com/preview/6NnLnR89V3/shahadat.mp3"
hj.Initialize("job3",Me)
hj.Download(link)
ProgressDialogShow2("در حال دانلود فایل...صبر کنید",False)
ToastMessageShow("لطفا منتظر بمانید,",  True)
    Else
    ToastMessageShow("فایل موجود است",  True)
	
mediaplayer1.Initialize2("mediaplayer1")
mediaplayer1.Load(File.DirRootExternal & "/MusicB4A", "shahadat.mp3")
    mediaplayer1.Looping=False

imageview1.Visible=False
imageview2.Visible=True
imageview3.Visible=False
imageview4.Visible=True
imageview5.Visible=False

    End If

End Sub

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

درود

شما میتونید از این روش برای Download کردن و نمایش ProgressBar استفاده کنید :

 

 

LargeFileDownload.zip

 

[reza644 435]

سلام 

 

من 63 تا module دارم

 

واسم سخته اینارو جایگزین کنم

 

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