کلیک پخش صدا

[MahdiAbasi 1]

سلام دوستان

من میخواستم توی برنامم یه Button بزارم که هر بار روش کلیک کنی یه صدای کوچیک رو پخش کنه .

مثلا بار اول که روش کلیک میکنی یه موزیک کوتاه بار دوم که روش کلیک میکنی موزیک قبلی قطع و یه موزیک کوتاه دیگه پخش کنه !!

 

مرسی که تجربیاتتونو در اختیارم قرار میدید.

Sub Button1_Click
	
	p.Initialize2("p")
    p.Load(File.DirAssets,"1.mp3")
    p.Play
	
End Sub

[arash127 488]

Dim aval As Boolean = True

Sub Button1_Click

Dim p As MediaPlayer

p.Initialize2("p")

If aval Then

p.Stop

aval = False

p.Load(File.DirAssets,"1.mp3")

p.Play

Else

p.Stop

p.Load(File.DirAssets,"2.mp3")

p.Play

End If

End Sub

[MahdiAbasi 1]

	Dim aval As Boolean = True
	Sub Button1_Click
		Dim p As MediaPlayer
		p.Initialize2("p")
		If aval Then
			p.Stop
			aval = False
    		p.Load(File.DirAssets,"1.mp3")
    		p.Play
		Else
			p.Stop
    		p.Load(File.DirAssets,"2.mp3")
    		p.Play
		End If
	
	End Sub

خب تو این یه مشکلی هست !

وقتی برای بار دوم کلیک میکنی آهنگ اول قطع نمیشه و آهنگ دوم رو همین آهنگ اول پلی میشه !!

[arash127 488]

خوب یکم خودت خلاقیت به خرج بده

 

Dim p As MediaPlayer

اینو ببر توی اکتیوتی کیریت و

p.Stop

بذار اول خط دکمه

[MahdiAbasi 1]

خوب یکم خودت خلاقیت به خرج بده

 

Dim p As MediaPlayer

اینو ببر توی اکتیوتی کیریت و

p.Stop

بذار اول خط دکمه

داداش باز همین مشکله هست !!

[ebham 232]

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

 

 

پیکو