تغییر عکس

[1234 51]

سلام دوستان

این کد منه واسه پخش موزیک ولی نمی دونم چی کار کنم که بعد از اینکه موسیقی تموم شد عکسش از pause به play تغییر کنه*dntknow*

اگه ممکنه کمکم کنید

Sub Globals

Dim MediaPlayer1 As MediaPlayer

Private play1 As Button

Private pause1 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub play1_Click

MediaPlayer1.Initialize( )

MediaPlayer1.Load(File.DirAssets,"ali.mp3")

MediaPlayer1.play

pause1.Visible=True

play1.Visible=False

End Sub

Sub pause1_Click

MediaPlayer1.Stop

play1.Visible=True

pause1.Visible=False

End Sub

[sganji 678]

ببین اول از همه تو بخش اینشیالایز کردن ایونت نیم رو md بزار.

به این شکل:

MediaPlayer1.Initialize( "md")

بعد:

Sub md_Complete
codes
End Sub

بجای codes هر کدی که میخوای برا تعویض هر چی بذار!

[1234 51]

برای کد MediaPlayer1.Initialize("md")

خطا می ده یعنی زیرش خط قرمز می کشه

[Mohsen27 199]

این کد رو بنویس

mediaplayer1.initialize

[sganji 678]

ببخشید کد رو اشتباه داده بودم:

MediaPlayer1.Initialize2("md")

ولی بقیش درسته.

[1234 51]

ممنون

مشکل حل شد