تغییر دکمه ها هنگام پخش در Multi Panel

[HS71 78]

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

همونطور که میبینید دو دکمه گذاشته شده روی هم برای پخش، اما چطوری وقتی یکی از دکمه های پخش رو بزنیم اونوقت دکمه استاپ ترو بشه و دکمه پلی فالز؟

Sub stop_Click
	
	Dim d As Button
	d = Sender

	butstop.Visible = False
	musicicon.Visible = True
	
	media.Stop
	
End Sub

Sub play_Click
	musicicon.Visible = False
	butstop.Visible = True
	
	Dim c As Button
	c = Sender
	
	media.Load(File.DirAssets,c.Tag& ".mp3")
	media.Play
	
End Sub

در کد بالا تنها آخرین دکمه از لیست استاپش نمایان میشه لطفا راهنمایی کنید چطور تنظیم کنیم که هر وقت دکمه پلی رو زدیم همون یکی فقط دکمش به دکمه استاپ تغییر کنه ؟

[مهدی ایزدی 9,203]

درود

این رو ببینید :

 

 

 

 

Sub Globals

	Private Label1 As Label
	Private Panel1 As Panel
	Private ScrollView1 As ScrollView
	Dim sql1 As SQL
	Dim cur1 As Cursor
	Dim stop As Int = 3%y
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Scroll")
	If File.Exists(File.DirInternal,"panelx.db") = False Then
	File.Copy(File.DirAssets,"panelx.db",File.DirInternal,"panelx.db")
	End If
	sql1.Initialize(File.DirInternal,"panelx.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM tbl")
	
	For i = 0 To cur1.RowCount-1   
	cur1.Position=i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	p.LoadLayout("Layout1")
	Label1.Text = cur1.GetString("txt")
	stop = stop + 35%y
	Button1.Tag = cur1.GetString("ez")
	ScrollView1.Panel.Height = stop
	Next
End Sub

Sub Button1_Click
	Dim iz As Button
	iz = Sender
	If iz.Text = "open url" Then
		iz.Text = "play"
	Else
		iz.Text = "open url"
	End If
End Sub

 

[HS71 78]

ممنون از پاسخ، تستی که کردم نتونستم ....

وقتی دو تا دکمه روی هم گذاشته شده و یکیش از اول فالز هست که همون دکمه استاپه .....

اما با توجه به کد شما نتوستم پیاده کنم لطفا ببینید مشکل کجاست (کدهای اصلی رو فقط نوشتم)

Sub Activity_Create(FirstTime As Boolean)	
	For i = 0 To cur.RowCount -1
		
		play.Tag = cur.GetString("ez")
		stop.Tag = cur.GetString("ez")
		stop.Visible = False

	Next
End Sub


Sub stop_Click
		media.Stop
End Sub


Sub play_Click
					'''''''	play.Visible = False
					'''''''	stop.Visible = True

	Dim c As Button
	c = Sender
	
	If c.Visible = True Then
		play.Visible = True
		stop.Visible = False
	Else
		play.Visible = False
		stop.Visible = True
		
	End If
	
	media.Load(File.DirAssets,c.Tag& ".mp3")
	media.Play
	
End Sub

 

[Hamed Sabet Farhadi 707]

در 31 دقیقه قبل، HS2002 گفته است :

ممنون از پاسخ، تستی که کردم نتونستم ....

وقتی دو تا دکمه روی هم گذاشته شده و یکیش از اول فالز هست که همون دکمه استاپه .....

اما با توجه به کد شما نتوستم پیاده کنم لطفا ببینید مشکل کجاست (کدهای اصلی رو فقط نوشتم)

 

کدی که آقای ایزدی دادن جواب نداد؟ چی شد دقیقا؟

[مهدی ایزدی 9,203]

عزیزم شما نیازی نیست دو تا دکمه بزارید... یک دکمه بزارید با عملکردهای متفاوت !

مثل کاری که بنده انجام دادم...

[HS71 78]

در 2 ساعت قبل، مهدی ایزدی گفته است :

عزیزم شما نیازی نیست دو تا دکمه بزارید... یک دکمه بزارید با عملکردهای متفاوت !

مثل کاری که بنده انجام دادم...

ممنون مهدی جان، با این کد درست شد:

Sub play_Click

	Dim c As Button
	c = Sender

	If c.Text = "play" Then
		media.Load(File.DirAssets,c.Tag& ".mp3")
		media.Play
		c.Text = "stop"
	Else 
		c.Text = "play"
		media.Stop	
	End If

End Sub

اما تنها مشکلی که مونده اینه که وقتی یکی کلیک شد و سپس دکمه دیگه کلیک شد قبلی متنش برنمیگرده به پیشفرض که "پلی" هست باید حتما دوباره اون قبلی رو بزنیم تا متنش برگرده ، 

اما میخوام هرکدوم که کلیک شد فقط متنش عوض بشه به "استاپ" و بقیه همون "پلی" باشه............برای یک پلیر موسیقی حتما باید هرکدوم که کلیک شد فقط تغییر کنه دیگه... ............... لطفا این تیکه آخرشو هم کمک کنید با تشکر.