سیک بار حرفه ای در بیسیک فور اندروید

[MR.B4A 246]

با استفاده از این سورس، یک سیک بار کاستوم برای برنامه خود بسازید.
این سیک بار کاملا سفارشی است و میتوانید جزئی ترین رنگ های اون رو هم تغییر بدید.
در این سورس از سیک بار پیشفرض خود b4a هم استفاده شده تا بتوانید تفاوت را بیشتر درک کنید.
پیشنهاد میکنم فایل تست را نصب کنید و یک بار این سیک بار زیبا را تست کنید.

فایل تستی: https://s34.picofile.com/d/8490535126/e1e53371-d09a-4a55-99c8-cea7028c94a8/seekbar.apk

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

rh_seek.Initialize(Me,"rh_seek",40%x,10%y,Colors.Cyan, _
    Colors.Magenta,Colors.LightGray, _
    Colors.Magenta,5dip,20dip,10dip,10,5)
	rh_seek.SetValue(3)
	rh_seek.SetMax(200)
	
	Activity.AddView(rh_seek.AsView,2%x,10%y,40%x,10%y)
	
	rh_seek2.Initialize(Me,"rh_seek2",40%x,10%y,Colors.RGB(179, 136, 255), _
    Colors.RGB(63, 81, 181),Colors.RGB(144, 202, 249), _
    Colors.RGB(209, 196, 233),5dip,20dip,10dip,10,5)
	rh_seek2.SetValue(5)
	rh_seek2.SetMax(200)
	
	Activity.AddView(rh_seek2.AsView,2%x,rh_seek.AsView.Top+rh_seek.AsView.Height+3%y,40%x,10%y)
	
	rh_seek3.Initialize(Me,"rh_seek3",40%x,10%y,Colors.RGB(216, 27, 96), _
    Colors.RGB(216, 27, 96),Colors.RGB(197, 17, 98), _
    Colors.RGB(136, 14, 79),5dip,20dip,10dip,10,5)
	rh_seek3.SetValue(6)
	rh_seek3.SetMax(200)
	
	Activity.AddView(rh_seek3.AsView,2%x,rh_seek2.AsView.Top+rh_seek2.AsView.Height,40%x,10%y)
	
	rh_seek4.Initialize(Me,"rh_seek4",40%x,10%y,Colors.RGB(66, 165, 245), _
    Colors.RGB(68, 138, 255),Colors.RGB(225, 245, 254), _
    Colors.RGB(13, 71, 161),5dip,20dip,10dip,10,5)
	rh_seek4.SetValue(1)
	rh_seek4.SetMax(300)
	
	Activity.AddView(rh_seek4.AsView,2%x,rh_seek3.AsView.Top+rh_seek3.AsView.Height,40%x,10%y)

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

Private Sub rh_seek_ValueChanged (Value As Int,UserChanged As Boolean)
	Label1.Visible=True
	Label1.Text=Value
End Sub

Private Sub rh_seek2_ValueChanged (Value As Int,UserChanged As Boolean)
	Label1.Visible=True
	Label1.Text=Value
End Sub

Private Sub rh_seek3_ValueChanged (Value As Int,UserChanged As Boolean)
	Label1.Visible=True
	Label1.Text=Value
End Sub

Private Sub rh_seek4_ValueChanged (Value As Int,UserChanged As Boolean)
	Label1.Visible=True
	Label1.Text=Value
End Sub

طراح و تهیه کننده:
مرتضی صباغی
MR.B4A

https://eitaa.com/basic4androidlan

https://t.me/programmingwithb4a