موزیک پلیر

[مجتبی قاسمی 53]

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

خیلی ممون میشم کمکم کنین

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

[مجتبی قاسمی 53]

سلام . از اساتید محترم درخواست دارم اگه میشه راهنمایی کنن

[Elyas Erfani 3,582]

سلام

 

ابتدا اهنگ هارو از منوی Files به پروژتون ادد کنید

Sub Globals
Dim mp As MediaPlayer
Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("test")
mp.Initialize("mp")
ListView1.AddSingleLine("AHANGE 1")
ListView1.AddSingleLine("AHANGE 2")
ListView1.AddSingleLine("AHANGE 3")
ListView1.AddSingleLine("AHANGE 4")
End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
    Select Position
    	Case 0
		mp.Load(File.DirAssets , "AHANGE1.MP3")
		mp.Play
		Case 1
			mp.Stop
			mp.Load(File.DirAssets,"AHANGE2.MP3")
			mp.Play
			Case 2
				mp.Stop
				mp.Load(File.DirAssets."AHANGE3.MP3")
				mp.Play
				Case 3
					mp.Stop
					mp.Load(File.DirAssets,"AHANGE4.MP3")
					mp.Play
End Select
End Sub

[مجتبی قاسمی 53]

خیلی ممنون از پاسختون .

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

[akbaria556 3]

سلام وقتی بخایم تمام اهنگ های موجود تو حافظه رو بیاریم تو لیستمون باید چییکار کنیم؟