فقط کافیه شما بجای Checkbox یه ToggleButton بیارید توی فرم و تابع زیر رو فراخوانی کنید.
دو تا تصویر میخواد یکی برای حالت معمولی و یکی هم برای حالتی که تیک خورده
✨ نکات مهم:
• کد آماده و تست‌شده (1 قطعه‌کد)
• کار با کتابخانه‌های: File
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانه‌های مورد نیاز:
File
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانه‌های اعلام‌شده را تیک بزنید.
| دسته‌بندی | تکه کدها |
| تعداد بازدید | ۳۸ |
| تعداد فروش | ۰ |
| فرمت تحویل | کد نمونهٔ رایگان در همین صفحه |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگی‌های کلیدی
- تکه‌کد آماده B4A
- کاملاً رایگان
- کد تست‌شده با توضیح فارسی
- کتابخانه: File
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)
Sub ChangeCheckBoxImage(chk As ToggleButton)
Dim c1 As StateListDrawable
Dim actColor,hoverColor As BitmapDrawable
actColor.Initialize(LoadBitmapSample(File.DirAssets,"checkbox_on.png",32,32))
hoverColor.Initialize(LoadBitmapSample(File.DirAssets,"checkbox_off.png",32,32))
c1.Initialize
c1.AddState(c1.State_Checked,actColor)
c1.AddState(c1.State_Unchecked,hoverColor)
c1.AddCatchAllState(hoverColor)
chk.Background = c1
End Sub