مشکل در مولتی پنل

[mehrabmmp 528]

درود دوستان

من یه مولتی پنل ساختم که توش 30 تا باتن هست کنار هر باتن یه ایمیج وییو هست و وقتی روش میزنی شکلش تغییر میکنه

من وقتی رو ایمیج وییو هر کدوم از باتن ها میزنم ایمیج وییو باتن اخری شکلش تغییر میکنه

از کدای sender هم استفاده کردم ولی عمل نمیکنه

اگه کسی بلده راهنمایی کنه

[Amir - B 185]

سورس کامل نیست

اگه بلدین کدشو بنویسین

 

 

منظورم کل سورس نیست . 

حلقه فور و ساب کلیک ایمیج ویو 

احتمالا تگ و سندر رو درست وارد نکردید که میگید عمل نمیکنه . 

[mehrabmmp 528]

منظورم کل سورس نیست . 

حلقه فور و ساب کلیک ایمیج ویو 

احتمالا تگ و سندر رو درست وارد نکردید که میگید عمل نمیکنه . 

اهان

activity_create

dim adad as int = 0
Dim top As Int
	top = 0
	Dim a1() As String
	a1 = Array As String("btn1","btn2","btn3","btn4")
	For i=0 To a1.Length -1
		Dim pnl As Panel
		pnl.Initialize("")
		ScrollView1.Panel.AddView(pnl,2%x,top,91%x,30%y)
		pnl.LoadLayout("actlisttarfand")
		anim.InitializeScaleCenter("scale",0,0,1,1,Panel1)
		anim.Duration = 1000
		anim.Start(Panel1)
		Label1.Text = a1(i)
		Label1.Tag = a1(i)
		Label1.Typeface = Typeface.LoadFromAssets("B Ziba.TTF")
		Label1.TextSize = 18
		Label1.TextColor = Colors.Black
		ChangeFontByLabelSize.FitToLabelSize(Label1)
		ImageView1.Bitmap = LoadBitmapSample(File.DirAssets,"Computer-icon.png",ImageView1.Width,ImageView1.Height)
		ImageView2.Bitmap = LoadBitmapSample(File.DirAssets,"heart empty.png",ImageView2.Width,ImageView2.Height)
		ImageView2.Tag = adad
		adad = adad + 1
		top = top + 15%y
		ScrollView1.Panel.Height = top + 3%y

Sub ImageView2_Click

	ImageView2.Bitmap = LoadBitmapSample(File.DirAssets,"heart full.png",ImageView2.Width,ImageView2.Height)
	
End Sub

[pedro 642]

برادر سورس رو دانلود کن    http://answercenter.ir/topic/12435-سورس-طراحی-صفحه-زیبا-ببینید-زیباس/    جوابت توشه، اون قسمتی که نوشتم منو هوریزونتال (توی سورس) و اون قسمتی ک برای کلیک باتن نوشتم 

[mehrabmmp 528]

برادر سورس رو دانلود کن    http://answercenter.ir/topic/12435-سورس-طراحی-صفحه-زیبا-ببینید-زیباس/    جوابت توشه، اون قسمتی که نوشتم منو هوریزونتال (توی سورس) و اون قسمتی ک برای کلیک باتن نوشتم 

نه این یه چیز دیگست 

من میگم وقتی رو ایمیج ویو هر کدوم از باتن ها میزنی باید جلوی همون باتن عکسش تغییر شه این میره رو اخرین باتن اجرا میشه

 

و این عکس مثلا من رو عکس قلب باتن سومی زدم ولی اخری تغییر کرده رو هر کدوم از باتن ها میزنم اینجوری میشه

کسی بلد نیست

[Amir - B 185]

در ساب کلیک ایمیج ویو :

Sub ImageView2_Click
	Dim im2 As ImageView
	im2 = Sender
	im2.Bitmap = LoadBitmapSample(File.DirAssets,"heart full.png",im2.Width,im2.Height)
	
End Sub

adad اینجا کاربرد نداره و می تونیم به جاش بگیم i .

 

یعنی

	For i=0 To a1.Length -1
		Dim pnl As Panel
		Dim ImageView1,ImageView2 As ImageView

		ImageView1.Initialize("ImageView1")

		ImageView2.Initialize("ImageView1")

		pnl.Initialize("")
		ScrollView1.Panel.AddView(pnl,2%x,top,91%x,30%y)
		pnl.LoadLayout("actlisttarfand")
		
		anim.InitializeScaleCenter("scale",0,0,1,1,Panel1)
		anim.Duration = 1000
		anim.Start(Panel1)
		Label1.Text = a1(i)
		Label1.Tag = a1(i)
		Label1.Typeface = Typeface.LoadFromAssets("B Ziba.TTF")
		Label1.TextSize = 18
		Label1.TextColor = Colors.Black
		ChangeFontByLabelSize.FitToLabelSize(Label1)
		ImageView1.Bitmap = LoadBitmapSample(File.DirAssets,"Computer-icon.png",ImageView1.Width,ImageView1.Height)
		ImageView2.Bitmap = LoadBitmapSample(File.DirAssets,"heart empty.png",ImageView2.Width,ImageView2.Height)
		ImageView2.Tag = i
		top = top + 15%y
		ScrollView1.Panel.Height = top + 3%y
Next

[mehrabmmp 528]

 

در ساب کلیک ایمیج ویو :

Sub ImageView2_Click
	Dim im2 As ImageView
	im2 = Sender
	im2.Bitmap = LoadBitmapSample(File.DirAssets,"heart full.png",im2.Width,im2.Height)
	
End Sub

adad اینجا کاربرد نداره و می تونیم به جاش بگیم i .

 

یعنی

	For i=0 To a1.Length -1
		Dim pnl As Panel
		Dim ImageView1,ImageView2 As ImageView

		ImageView1.Initialize("ImageView1")

		ImageView2.Initialize("ImageView1")

		pnl.Initialize("")
		ScrollView1.Panel.AddView(pnl,2%x,top,91%x,30%y)
		pnl.LoadLayout("actlisttarfand")
		
		anim.InitializeScaleCenter("scale",0,0,1,1,Panel1)
		anim.Duration = 1000
		anim.Start(Panel1)
		Label1.Text = a1(i)
		Label1.Tag = a1(i)
		Label1.Typeface = Typeface.LoadFromAssets("B Ziba.TTF")
		Label1.TextSize = 18
		Label1.TextColor = Colors.Black
		ChangeFontByLabelSize.FitToLabelSize(Label1)
		ImageView1.Bitmap = LoadBitmapSample(File.DirAssets,"Computer-icon.png",ImageView1.Width,ImageView1.Height)
		ImageView2.Bitmap = LoadBitmapSample(File.DirAssets,"heart empty.png",ImageView2.Width,ImageView2.Height)
		ImageView2.Tag = i
		top = top + 15%y
		ScrollView1.Panel.Height = top + 3%y
Next

حل شد مرسی حالا چجوری بکنم که وقتی باز دوباره روش کلیک شد به حالت اولش برگرده یعنی برگرده به همون قلب خالی

[pedro 642]

ب نظرم میتونستی انقد ب خودت سختی ندی وحالت کلیک ایمیج قلبت  رو وابسته میکردی به یه چک باکس ک از دید کاربر مخفیه

[mehrabmmp 528]

ب نظرم میتونستی انقد ب خودت سختی ندی وحالت کلیک ایمیج قلبت  رو وابسته میکردی به یه چک باکس ک از دید کاربر مخفیه

واسش دوتا ایمیج وییو درست کردم که هردوتاش یجان و دومی رو غیرفعال کردم وقتی اولی زده شد دومی فعال میشه

[pedro 642]

n

 

واسش دوتا ایمیج وییو درست کردم که هردوتاش یجان و دومی رو غیرفعال کردم وقتی اولی زده شد دومی فعال میشه

 

درسته این روشم درسته

[Amir - B 185]

اگه میشه سورس رو قرار بدید . 

[mehrabmmp 528]

اگه میشه سورس رو قرار بدید . 

سورس کامل نیست

اگه بلدین کدشو بنویسین