در خواست رهنمایی جهت کلید playوpuseدر روی یک دکمه

[siroos12 14]

سلام علیکم،دوستان میشه منو راهنمایی کنید؟؟؟؟؟

[siroos12 14]

سلام علیکم،دوستان میشه منو راهنمایی کنید،که چطور ی دکمه باشه که با زدن playآهنگ پخش بشه و با زدن همون دکمه puse??????

[abbas2142 557]

بفرما

 

اول یه موزیک به برنامه اضافه می کنیم بعد

Sub Globals
Dim MediaPlayer1 As MediaPlayer
End Sub

Sub Activity_Create(FirstTime As Boolean) 

MediaPlayer1.Initialize( )
		MediaPlayer1.Load(File.DirAssets, "esmemozic.MP3")

End Sub

Sub Button1_Click
    If (MediaPlayer1.IsPlaying) Then
	    MediaPlayer1.Pause
	   Button1.SetBackgroundImage(LoadBitmap(File.DirAssets,"play.png"))
    Else
	    MediaPlayer1.Play
		Button1.SetBackgroundImage(LoadBitmap(File.DirAssets,"pause.png"))
	End If
End Sub