پخش اهنگ در مولتی پنل

[davood1382 302]

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

اموزش اقای ارتا رو دیدم اما چیزی دستگیرم نشد لطفا کمک کنید

[dostmobile 329]

سلام دوست عزیز

این برنامه منم همینی که شما میخواین انجام شده یعنی روی هر  باتن که کلیک کنی پخش میشه

https://cafebazaar.ir/app/com.dostmobile.ringtone/?l=fa

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

و توی همون حلقه این کد رو بزارید

Button1.Tag =cur1.GetString("ahang")

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

Dim iz As Button 
iz= Sender
If mp.IsPlaying  Then
mp.stop
Else
mp.Load(File.DirAssets ,(iz.Tag & ".ogg"))
mp.Play
End If
End Sub

امیدوارم متوجه شده باشین

[davood1382 302]

سلام ممنون اگه میشه کد رو بزارید