متوقف کردن پلیر

[iamm7spy 4]

با سلام  و عرض  خسته نباشید 

 

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

 

فایل  پیوست  شد 

 

http://s3.picofile.com/file/8216242218/bosher.zip.html

 

 

[Elyas Erfani 3,582]

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

 

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

 

در ساب دکمه بنویسید :

Dim mp As MediaPlayer
mp.Initialize
mp.Load(File.DirAssets ,"Music.mp3")
If mp.IsPlaying = True Then
mp.Stop
Else 
mp.Play
End If

[iamm7spy 4]

نوشتم همین کد رو   ولی اجرا نمیکنه  که  قطع و وصل کنه  

[iamm7spy 4]

نوشتم همین کد رو   ولی اجرا نمیکنه  که  قطع و وصل کنه  

Sub Button1_Click

Dim mp As MediaPlayer

mp.Initialize

mp.Load(File.DirAssets , "dashtestani.mp3")

If mp.IsPlaying = True Then

mp.Stop

Else

mp.Play

End If

End Sub

[Elyas Erfani 3,582]

خوب ببینید شما کدای زیر رو بذارید داخل Sub Global :

Dim mp As MediaPlayer

("")mp.Initialize

mp.Load(File.DirAssets(dashtestani.mp3")

و حالا کدای زیر رو در ساب دکمه ای میخواین بذارین :

If mp.IsPlayed = False Then

mp.Play

Else If mp.IsPlayed = True Then

mp.Stop

End If

کد بالا رو استفاده کنید و تست کنید و نتیجشو بگید همینجا

[Elyas Erfani 3,582]

اینم سورس :

 

http://s5.picofile.com/file/8216287226/SOURCE_MEDIA_PLAYER_WITH_PAUSE_1BUTTON.rar.html