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

پخش آهنگ به همراه بار


sajad325
 اشتراک گذاری

سوال

سلام میخوام وقتی آهنگ پخش میشه یک سیک بار (seekbar) با آن آهنگ باشه و بشه با آن آهنگ را عقب وجلو کرد

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

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

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

  • 0

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

خوب

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

Sub Globals
 Dim timer1 As Timer
Private SeekBar1 As SeekBar

End Sub

وبعد میای اونو استارت میکنی

Sub Activity_Create(FirstTime As Boolean)
timer3.Initialize("timer3", 1000)
timer3.Enabled = True

End Sub

وبعد میای این اینارو میزاری

Sub Timer3_Tick ' Evente Marbot Be Timer
  If MediaPlayer1.IsPlaying Then
      SeekBar1.Value = MediaPlayer1.Position / MediaPlayer1.Duration * 100

   End If
End Sub

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
If UserChanged = False Then Return 'the value was changed programmatically
   MediaPlayer1.Position = Value / 100 * MediaPlayer1.Duration
   Timer3_Tick 'immediately update the progress label
End Sub

امیدوارم قابل درک باشه

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

به امید پیشرفت

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

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

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

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