تغییر رنگ، سایز و .... اسکرول بار

[Salar82 919]

سلام

قطعه کدهایی برای تغییر برخی از مشخصات اسکرول بار در اسکرول ویو براتون آماده کردم. امیدوارم بدرد بخوره:

 

1- تغییر رنگ و  Radius اسکرول بار اسکرول ویو:

Private Sub SetScrollbarColor(Sv As ScrollView, Color As Int , CornerRadius As Int)
	Dim r As Reflector
	r.Target = Sv
	r.Target = r.GetField("mScrollCache")
	r.Target = r.GetField("scrollBar")
	Dim cd As ColorDrawable
	cd.Initialize(Color, CornerRadius)
	r.RunMethod4("setVerticalThumbDrawable", Array(cd), Array As String("android.graphics.drawable.Drawable"))
End Sub

Sv ----------------------> نام اسکرول ویو

Color -----------------> رنگ اسکرول بار

CornerRadius ----> گردی گوشه های اسکرول بار

 

2- تغییر عرض اسکرول بار برای ویوهایی که اسکرول ویو دارند:

Sub SetScrollBarSize(v As View, Size As Int)
    Dim jo = v As JavaObject
    jo.RunMethod("setScrollBarSize", Array As Object (Size))
End Sub

V --------------> نام ویو

Size ---------> عرض اسکرول بار

 

3- تغییر موقعیت اسکرول ویو (چپ یا راست بودن):

Sub SetVerticalScrollbarPosition(v As View, Position As Int)
    Dim jo = v As JavaObject
    jo.RunMethod("setVerticalScrollbarPosition", Array As Object (Position))
End Sub

V --------------> نام ویو

Position --------------> سمت چپ = 1  ،  سمت راست = 2  ،  پیشفرض = 0

 

4- پنهان کردن اسکرول بار:

Sub SetVerticalScrollBarEnabled(v As View, Enabled As Boolean)
    Dim jo = v As JavaObject
    jo.RunMethod("setVerticalScrollBarEnabled", Array As Object (Enabled))
End Sub

V --------------> نام ویو

Enabled --------> پنهان = False

 

 

موفق باشید.