استفاده از Tag و Sender در Multi Panel

[mohammad-alone 564]

ممنون محمد جان ولی آقای ایزدی تمی این آدرس به خوبی راهنمایی کرد :

 

http://answercenter.ir/topic/4246-%D9%85%D9%88%D9%84%D8%AA%DB%8C-%D9%BE%D9%86%D9%84/

 

 

چیزی که جناب ایزدی در این آموزش گفتن ، برای مواقعی خوبه که شما نیاز به کنترل کردن هیچ ویویی نداشته باشید ، زمانی که کاربر بروی کلید کلیک کرد ، خوب ؟؟

 

ولی اگر میخواستید که وقتی روی اون کلیک کرد همون کلید مثلآ محو بشه هیچ کدی و هیچ تگی بدردتون نمیخوره

[حمید زارع 331]

سلام دوستان

 

بازم یه مشکل دیگه که من با Tag و Sender دارم

 

لطفاً راهنمایی کنید

 

من توی پنلم یه CheckBox دارم میخام وقتی کاربر روی پنل کلیک کرد CheckBox تیک بخوره

 

اگه ممکنه با کد ، نشد همینجوری راهنمایی کنید

 

خیلی ممنونم

[حمید زارع 331]

این موضوع حل شد لطفا مطلب بالا رو جواب بدید

[حمید زارع 331]

دوستان خواهشا اگه راهی داره راهنمایی بفرمایید ...

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

سلام دوستان

 

بازم یه مشکل دیگه که من با Tag و Sender دارم

 

لطفاً راهنمایی کنید

 

من توی پنلم یه CheckBox دارم میخام وقتی کاربر روی پنل کلیک کرد CheckBox تیک بخوره

 

اگه ممکنه با کد ، نشد همینجوری راهنمایی کنید

 

خیلی ممنونم

Dim check As CheckBox
check = Sender
check.Checked = True

[حمید زارع 331]

ممنون

الان جایی نیستم که تست کنم

من میخام روی پنل که کلیک شد چک باکس تیک بخوره ها !!!

[حمید زارع 331]

جناب مهندس ایزدی ، نمیشه ...

 

من هنگام ساخت ملتی پنل میگم :

 

Panel.Tag=i

Chckbox.Tag=i

 

وبعد هم توی Panel.Click کدی که شما گفتید می نویسم

 

ولی همونجور که فکر می کردم خطا میده ...

[مجید آرتا 5,874]

http://s3.picofile.com/file/8200995600/Multi_Panel_va_CheckBox.rar.html

[حمید زارع 331]

میدونم اسپم حساب میشه ولی واسه این جوابی که استاد آرتا دادن فقط دکمه پسندیدم کافی نیست

 

خیلی عالی بود ...

 

دم شما گرم ...  

[sinaparsian 29]

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

 

راهنامیی کنید لطفا

این دستور رو واسه کلیک در مولتی پنل نوشتم من 20 تا mp3 دارم نمی خوام و اسه همه 20 تا یکی یکی این دستور رو بنویسم کمک کنید لطفا

mp3 ها هم از 1 تا 20 نامگذاری شدن و 20 تا هم case داریم
Sub Button3_Click
 
Button3 = Sender

        If Button3.Tag = 0 Then
                 
m.Load(File.DirAssets, "1.mp3")
            Select Button3.Tag
                Case 0

              End Select
                                  
                                
        Else If Button3.Tag = 1 Then
       
m.Load(File.DirAssets, "2.mp3")
    
            Select Button3.Tag
                Case 1
              End Select
              End If
End Sub

[sinaparsian 29]

لطفا جواب بدین

[مجید آرتا 5,874]

سوالتون رو توی  تاپیک جداگانه مطرح کنی.

ممنون

[arastooms 1,046]

دوست عزیز من نفهمیدم میشه با مثال کد توضیح بدین

سلام دوست عزیز 

میشه کدی که باید بدیم به کرسور تا بره به آیدی خاصی رو برای من بنویسید؟

این راهنمایی که نوشتید کد نویسی چه طور میشه؟

مرسی 

[salar_blackdroid 408]

برادر ایزدی بنظرم بهتره تدبیراتی بیندیشید که تاپیک آموزش ها بعدش

 

قفل بشن چون این تاپیک صرفا اختصاص به آموزش داره و جالب نیست که

 

توش سوال بازی بشه.

 

ارادت./

[arastooms 1,046]

سلام و تشکر بابت آموزش ها وراهنمایی ها 
من همه آموزش ها رو دیدم ولی الان به این مشکل برخوردم که یک هفته هرچی کد ها رو تغیر میدم درست نمیشه
/////////////////
اکتیویتی یک " لیست کتاب " هست با مولتی پنل طبق آموزش های عزیزان درست کردم با دکمه علاقه مندی ها 
دکمه رو که میزنم به راحتی دیتا بیس قسمت fave تغیر میکنه و میره برای اکتیوتی علاقه مندی ها که اونجا هم به درستی و با ستاره روشن نمایش داده میشه
ولی 

مشکل اینجاست که در همین قسمت وقتی روی "ستاره خاکستری" گزینه اول کلیک میکنم 
سه تاره روشن نمیشه و در عوض میاد ستاره گزینه آخر روشن میشه
روی هر گدوم کلیک کنم ستاره آخری روشن میشه!!!
( البته به درستی دیتابیس تغیر میکنه ولی متاسفانه هر چی تلاش میکنم نمی تونم این باگ رو بگیرم )
فکر میکنم محتوای کرسور در جریان for روی آخر میمونه و من نمی دونم چه طور عوضش کنم
لطفا راهنمایی کنید 
مرسی از همه اساتید
این عکسها و کد ها 
http://s3.picofile.com/file/8212493726/2222.png

کد ها قسمت اکتیویتی و کلیک این عکس
 

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("fehrest")
	ScrollView1.Initialize(2000dip)				
	Activity.AddView(ScrollView1,0%x,15%y,100%x,90%y)			
	
	If File.Exists(File.DirInternal,"khoon.db")=False Then		
	File.Copy(File.DirAssets,"khoon.db",File.DirInternal,"khoon.db")		
	End If
	
	sql1.Initialize(File.DirInternal,"khoon.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,7%x,ertefa,86%x,60%Y)			
	ertefa=ertefa+10%y
	'ertefa=ertefa+50dip										 
	
	p.LoadLayout("layoutpanelfehrest")							

	img1.Tag=i												
	img2.Tag=i											
	Label5.Tag=i

	Label5.Text="Name: "&Cur1.GetString("ID")&"  "&Cur1.GetString("name")	

	If Cur1.GetInt("fave") = 1 Then 
	img2.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_sta2.png")
	Else 		
	img2.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_star.png")							
	End If

	ScrollView1.Panel.Height=ertefa	 
	Next
	
End Sub

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

Sub img2_Click	
		
	Cur1=sql1.ExecQuery("SELECT * From tbl")
	Dim Send As ImageView
	Send=Sender  
	
    Cur1.Position = Send.Tag
	
	If Cur1.GetInt("fave") = 1 Then 	
		
	sql1.ExecNonQuery("UPDATE tbl SET fave= 0 where ID=" &Cur1.GetInt("ID"))
	img2.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_sta2.png")
	
	Msgbox("از لیست علاقه مندی ها حذف شد",True)
	Else
		
	
	sql1.ExecNonQuery("UPDATE tbl SET fave= 1 Where ID=" &Cur1.GetInt("ID"))
	img2.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_star.png"
	Msgbox("به لیست علاقه مندی ها اضافه شد",True)
		
	End If
End Sub

[arastooms 1,046]

برادر ایزدی بنظرم بهتره تدبیراتی بیندیشید که تاپیک آموزش ها بعدش

 

قفل بشن چون این تاپیک صرفا اختصاص به آموزش داره و جالب نیست که

 

توش سوال بازی بشه.

 

ارادت./

به نظر من اگر سوال مربوط به تاپیک باشه خیلی میتونه مفید باشه 

تا اینکه برای هر سوال مربوط به تگ و سندر یک تاپیک داشته باشیم 

ولی خوب کاربر باید دقت کنه که سوال هر تاپیک رو در خودش مطرح کنه

[arastooms 1,046]

 

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

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

/////////////////

اکتیویتی یک " لیست کتاب " هست با مولتی پنل طبق آموزش های عزیزان درست کردم با دکمه علاقه مندی ها 

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

ولی 

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

سه تاره روشن نمیشه و در عوض میاد ستاره گزینه آخر روشن میشه

روی هر گدوم کلیک کنم ستاره آخری روشن میشه!!!

( البته به درستی دیتابیس تغیر میکنه ولی متاسفانه هر چی تلاش میکنم نمی تونم این باگ رو بگیرم )

فکر میکنم محتوای کرسور در جریان for روی آخر میمونه و من نمی دونم چه طور عوضش کنم

لطفا راهنمایی کنید 

مرسی از همه اساتید

این عکسها و کد ها 

http://s3.picofile.com/file/8212493726/2222.png

کد ها قسمت اکتیویتی و کلیک این عکس

 

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("fehrest")
	ScrollView1.Initialize(2000dip)				
	Activity.AddView(ScrollView1,0%x,15%y,100%x,90%y)			
	
	If File.Exists(File.DirInternal,"khoon.db")=False Then		
	File.Copy(File.DirAssets,"khoon.db",File.DirInternal,"khoon.db")		
	End If
	
	sql1.Initialize(File.DirInternal,"khoon.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,7%x,ertefa,86%x,60%Y)			
	ertefa=ertefa+10%y
	'ertefa=ertefa+50dip										 
	
	p.LoadLayout("layoutpanelfehrest")							

	img1.Tag=i												
	img2.Tag=i											
	Label5.Tag=i

	Label5.Text="Name: "&Cur1.GetString("ID")&"  "&Cur1.GetString("name")	

	If Cur1.GetInt("fave") = 1 Then 
	img2.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_sta2.png")
	Else 		
	img2.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_star.png")							
	End If

	ScrollView1.Panel.Height=ertefa	 
	Next
	
End Sub

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

Sub img2_Click	
		
	Cur1=sql1.ExecQuery("SELECT * From tbl")
	Dim Send As ImageView
	Send=Sender  
	
    Cur1.Position = Send.Tag
	
	If Cur1.GetInt("fave") = 1 Then 	
		
	sql1.ExecNonQuery("UPDATE tbl SET fave= 0 where ID=" &Cur1.GetInt("ID"))
	img2.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_sta2.png")
	
	Msgbox("از لیست علاقه مندی ها حذف شد",True)
	Else
		
	
	sql1.ExecNonQuery("UPDATE tbl SET fave= 1 Where ID=" &Cur1.GetInt("ID"))
	img2.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_star.png"
	Msgbox("به لیست علاقه مندی ها اضافه شد",True)
		
	End If
End Sub

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

[آوای دل 38]

چطوری میشه وقتی روی Button در MultiPanel کلیک کرد Button تشخیص بده که کدوم متن رو نشون بده و چی عملی رو انجام بده ... *fekr*

 

ببخشید تایپیک رو بالا میارم ولی برنامه گیر همین مشکله !

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

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

 

یه تایپیک هم برای این مشکل زدم و کدهام رو نیز قرار دادم  :

http://answercenter.ir/topic/7661-%D9%85%D8%B4%DA%A9%D9%84-%D8%AF%D8%B1-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%B3%D8%A7%D8%B2%DB%8C-%D9%81%DB%8C%D9%84%D9%85-%D9%BE%D8%B3-%D8%A7%D8%B2-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF/

[_Ali.Destroyer_ 7]

از اموزشای ارزشمندتون ممنونم

[amirsafari 116]

درود خدمت تمامی کاربران عزیز انجمن ، بخصوص کاربرانی که فعالیت میکنند *laie*

خب توی دوره http://answercenter.ir/thread2360.html یاد گرفتیم که چطوری اطلاعات دیتابیس آفلاین رو

توی Multi Panel و همراه با ScrollView نمایش بدیم ...

بعد از اون شاید بیشتر از 20 بار سوال شد که چطوری میشه وقتی روی Button در MultiPanel کلیک کرد Button تشخیص بده

که کدوم متن رو نشون بده و چی عملی رو انجام بده ... *fekr*

توی این دوره ی آموزشی ما این موضوع رو با استفاده از Tag و Sender یاد میگیریم *like*

امیدوارم که فیلم رو با دقت نگاه کنید

این رو هم فقط برای تعداد کمی از کاربران میگم: دست از حفظی بازی بردارید

برنامه نویسی رو باید یاد گرفت ، برنامه نویسی کتاب شیمی دبیرستان نیست که یاد بگیری مونوکسید اسید فرمولش چیه و سال تحصیلی که تموم شد

برات فرق نکنه که فرمولش یادش باشه یا نه *fekr* عجب مثالی زدم *laugh2*

شرمنده حجم فیلم هم یک خورده زیاد شده . نزدیک 17 مگابایت حجم داره

هرکه را طاووس خواهد جور هندوستان کشد !

لینک دانلود از سرور پیکوفایل

اختصاصی از انجمن Basic4Android.org

موفق باشید

آقا واقعا مچکرم ولی لینکی که گذاشتید کار نمیکنه. خرابه

اگه میشه ی آموزش از ابتدا ب من معرفی کنید