رفتن به مطلب
  • 0

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


HS71

سوال

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

rings.jpg

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

درود

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

 

GIFplay.gif

 

 

 

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...