با سلام خدمت شما دوست عزیز
خوب
اول یه تایمر و یه سیک بار ادد میکنی
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
امیدوارم قابل درک باشه
اگه مشکلی بود درخدمت هستیم
به امید پیشرفت