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

[sajad325 76]

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

[نیما قبادی 246]

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

خوب

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

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

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

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

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