استفاده از چک باکس به جای باتن در علاقه مندی

[bakhtiaran 84]

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

Sub CheckBox1_CheckedChange(Checked As Boolean)
	Dim cur As Cursor
	cur = sql1.ExecQuery("SELECT * FROM tbl")
	
	Dim fav As Int = cur.GetInt("fav")
	Dim num As Int = cur.GetInt("id")
	If fav = 0 Then		
			sql1.ExecNonQuery("UPDATE tbl SET fav = 1 WHERE id=" & num)
			ToastMessageShow("به علاقه مندی ها اضافه شد!!!",False)
	Else
			sql1.ExecNonQuery("UPDATE tbl SET fav = 0 WHERE id=" & num)
			ToastMessageShow("از علاقه مندی ها حذف شد!", False)
	End If	
End Sub

[Gray Mind 913]

این رو امتحان کن ببین کار میکنه؟

Sub CheckBox1_CheckedChange(Checked As Boolean)
	Dim CheckBox1 As CheckBox
	Dim cur As Cursor
	cur = sql1.ExecQuery("SELECT * FROM tbl")
	
	Dim fav As Int = cur.GetInt("fav")
	Dim num As Int = cur.GetInt("id")

	If Checked = True Then	
			sql1.ExecNonQuery("UPDATE tbl SET fav = 1 WHERE id=" & num)
			ToastMessageShow("به علاقه مندی ها اضافه شد!!!",False)
	Else
			sql1.ExecNonQuery("UPDATE tbl SET fav = 0 WHERE id=" & num)
			ToastMessageShow("از علاقه مندی ها حذف شد!", False)
	End If	

End Sub

[Negan 1,300]

اینطور فایده نداره که دوستان گلم

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

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

اینی ک شما گذاشتین فقط چک میکنه م چک باکس فعاله یا نه

کاربر نمیتونه تغیرش بده ک

[Gray Mind 913]

چرا نشه داداش گلم   

اصل کار چک باکس اینه که اگه تیک خورده باشه یه کاری کنه اگه نخورده باشه یه کار دیگه

خوب ماهم با ساب checkedchange میایم با متغیری که داده خودش میگیم اگه تیک خورده بود

این خونه از دیتابیس رو 1 کن اگه برداشته شد تیکش 0 کن

[Negan 1,300]

چرا نشه داداش گلم   

اصل کار چک باکس اینه که اگه تیک خورده باشه یه کاری کنه اگه نخورده باشه یه کار دیگه

خوب ماهم با ساب checkedchange میایم با متغیری که داده خودش میگیم اگه تیک خورده بود

این خونه از دیتابیس رو 1 کن اگه برداشته شد تیکش 0 کن

 

 

پوووووووووووووف خخخ حواسم نبود تو سابه خخخخ

الان دیدمش خخخ

[bakhtiaran 84]

پوووووووووووووف خخخ حواسم نبود تو سابه خخخخ

الان دیدمش خخخ

کسی بلده با چک باکس علاقه مندی بسازه؟

[Gray Mind 913]

همونطور که تو ساب بهتون داده باید از این متغیر Checked استفاده کنید که اگر Checked برابر با true بود

بذاره جزو علاقه مندی ها(اگه ستون fav دارید باید اپدیتش بکنید به مثلا 1)

اگه برابر با false بود باید مثلا عدد ستون fav رو بکنه 0

[bakhtiaran 84]

همونطور که تو ساب بهتون داده باید از این متغیر Checked استفاده کنید که اگر Checked برابر با true بود

بذاره جزو علاقه مندی ها(اگه ستون fav دارید باید اپدیتش بکنید به مثلا 1)

اگه برابر با false بود باید مثلا عدد ستون fav رو بکنه 0

ستون fav دارم الا اون کد رو دقیقا باید کجا ینویسم؟

[Gray Mind 913]

خوب ببین وقتی دیتابیس رو ساختی باید برای ستون Fav مقدار پیشفرض رو 0 قرار بدی

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

If fav = 0 Then		
			sql1.ExecNonQuery("UPDATE tbl SET fav = 1 WHERE id=" & num)
			ToastMessageShow("به علاقه مندی ها اضافه شد!!!",False)
	Else
			sql1.ExecNonQuery("UPDATE tbl SET fav = 0 WHERE id=" & num)
			ToastMessageShow("از علاقه مندی ها حذف شد!", False)
	End If

به جای اینکه بگی اگه 0 بود 1 کنه و اگه 1 بود 0 کنه بگو

اگه Checked مقدارش true بود 1 کنه اگه false بود 0 کنه

فقط کافیه شرط رو عوض کنی

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

 

موفق باشی

[bakhtiaran 84]

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

Sub CheckBox1_CheckedChange(Checked As Boolean)
	Dim CheckBox1 As CheckBox
	Dim cur As Cursor
	cur = sql1.ExecQuery("SELECT * FROM tbl")
	
	Dim fav As Int = cur.GetInt("fav")
	Dim num As Int = cur.GetInt("id")

	If CheckBox1.Checked = True Then	
			sql1.ExecNonQuery("UPDATE tbl SET fav = 1 WHERE id=" & num)
			ToastMessageShow("به علاقه مندی ها اضافه شد!!!",False)
	End If
	If CheckBox1.Checked = False Then
			sql1.ExecNonQuery("UPDATE tbl SET fav = 0 WHERE id=" & num)
			ToastMessageShow("از علاقه مندی ها حذف شد!", False)
	End If	

End Sub