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

درصدی شدن دانلود اهنگ با کتابخانه استریم


mahdig502

سوال

سلام خدمت دوستان استادان گرامی
من یه سری اهنگ دارم که توی هاست اپلود کردم و با کتابخونه استریم
دانلود و پخششون میکنم
الان میخام موقع دانلود درصد دانلود اهنگ را هم نشون بدم 
کل کد مربوطه هم اینه:

sub butten_click 
   t.Initialize("t",30000)
      t.Enabled = True
   mp.Initialize("mp")
   mp.Load("http://developerland.ir/dislove/folanfolan.mp3")
ProgressDialogShow("در حال دانلود...") 
   
End Sub


Sub mp_StreamReady   
    ProgressDialogHide
   ToastMessageShow("شروع پخش",False)
   bpouse.Visible = True
    mp.Play  
End Sub


Sub mp_StreamError (ErrorCode As String, ExtraData As Int)
ToastMessageShow("لطفا به اینترنت وصل شده و دوباره امتحان کنید",True)
End Sub


Sub t_tick
If isProgressRunnig Then
ProgressDialogHide
isProgressRunnig = False
'ToastMessageShow("لطفا به اینترنت وصل شده و دوباره امتحان کنید",True)
End If
T.enabled = False
End Sub


Sub bpouse_Click
mp.Pause
bplay.Visible = True
End Sub


Sub bplay_Click
mp.Play
bplay.Visible = False
End Sub

:53:

 

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

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

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

بایگانی شده

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

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

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