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

کلیک امیج ویو در مولتی پنل


omid1377

سوال

سلام

من می خوام یه برنامه رینگتون بسازم با مولتی پنل

تا اینجاشو ساختم

 

http://s6.picofile.com/file/8223644092/Capture.PNG

 

کدهای من بدین صورت است

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
     Dim sql1 As SQL
	Private ScrollView1 As ScrollView
	Dim stop As Int
	Private Label1 As Label
	Private ImageView1 As ImageView
	Dim audio As MediaPlayer
		Dim cur As Cursor
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("sv")
     
	 
	 If File.Exists(File.DirInternal,"ahangtst.db") = False Then
		File.Copy(File.DirAssets,"ahangtst.db",File.DirInternal,"ahangtst.db")
	End If
	If sql1.IsInitialized = False Then
		sql1.Initialize(File.DirInternal,"ahangtst.db",True)
	End If
	

	cur = sql1.ExecQuery("SELECT * FROM asly")
	For i = 0 To cur.RowCount-1
		cur.Position=i
		Dim p As Panel
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
		stop = stop +35%y
		p.LoadLayout("ring")
		Label1.Text = cur.GetString("onvan")
		
	    	audio.Initialize()
	 audio.Load(File.DirAssets,cur.GetString("ahang"))
	    ImageView1.Tag =  cur.GetString("ahang")
       
    
		ScrollView1.Panel.Height = stop
	Next
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ImageView1_Click
    
	
	Dim img As ImageView
	img = Sender
	
	If audio.IsPlaying Then 
audio.Pause

Else
audio.Play

End If
End Sub

حالا نمی دونم وقتی روی ایمیج ویو م کلیک شد چطوری آهنگ رو که کلیک شده پخش کنه

در واقع در تگ و سندر مشکل دارم

لطفا کمک کنید

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

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

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

سلام

دوستان در این باره زیاد بحث شده

نمیدونم دوستان دنبال کد آماده اید یا یادگیری....!

نباید که با توجه تمامی حالات مثال زده بشه.

کلا مبحث تگ چیزی نداره

شما توی تگ ایمیج ویو یا باتون هیچ تفاوتی ندارن چون جفتشون رویداد کلیک دارن و جفتشونم میتونن عکس نمایش بدن ، تگ رو آدرس و یا اسم آهنگ قرار بدید و توی رویداد کلیک هم یک  متغییر از نوعش تعریف و برابر با سندر و بعد آهنگو لود و Play  کنید.

موفق باشید.

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

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

Sub ImageView1_Click
    
	
	Dim img As ImageView
	img = Sender
	
	If audio.IsPlaying Then 
audio.Pause

Else
audio.load 'file'
audio.Play

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

داداش کد خودمو که نوشتی

 

نمیشه ایمیج ویو باشه اخه میخوام حتما امیج ویو باشخ

یعنی کدم درسته و فقط مشکل اینه که باید باتن باشه؟

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

خب ببین عزیز شما یکاری کن!

بیا و یه دکمه تو مولتی پنلت بزار و کدای اسکریپتشو مثل ایمیج ویو بزار!

بعد کلیک باتن رو کنترل کن!

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

اره

کد منم ادیت کن و بجای ایمیج ویو باتون بزار

کیبوردم خرابه و کپی کردم کدت رو و یادم رفت ادیت کنم

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

اقا سوال من اینه که واسه هر باتونی که روش کلیک می کنم چه آهنگ شماره یک چه سه و...   فقط یک آهنگ پاس یا پلی میشه

کد کلیک باتن هم اینه

Sub btn_playpuse_Click
		Dim btn As Button
	btn = Sender
	
	If audio.IsPlaying Then 
audio.Pause

Else
audio.Play

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

تو قسمت اکتیوتی کریت

audio.Initialize()
	 audio.Load(File.DirAssets,cur.GetString("ahang"))
	    btn_playpuse.Tag =  cur.GetString("ahang")

درسته؟

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

اطلاعاتی که توی ستون ahang نوشتید چیه؟ آدرس فایله؟ اسم فایله؟چیه؟

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

تو قسمت اکتیوتی کریت

audio.Initialize()	 audio.Load(File.DirAssets,cur.GetString("ahang"))	    btn_playpuse.Tag =  cur.GetString("ahang")
درسته؟
عزیز تگ رو باید = i بزارین! (تو حلقه)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

آقا برابر i هم کردم همین طوریه

Sub btn_playpuse_Click
		Dim btn As Button
	btn = Sender
	
	If audio.IsPlaying Then 
audio.Pause

Else
audio.Play

End If
End Sub

بعد از این دو کد

Dim btn As Button
    btn = Sender

یه چیزیش کمه مثله

Fasl=btn.Tag

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

اطلاعاتی که توی ستون ahang نوشتید چیه؟ آدرس فایله؟ اسم فایله؟چیه؟

ستون آهنگ از نوع Text

این طوری نوشتم

omid (1).mp3

اینم از ادرس دهیش

audio.Initialize()
     audio.Load(File.DirAssets,cur.GetString("ahang"))

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

لطفا کمک کنید

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

بایگانی شده

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

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

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