شخصی سازی ویو ها

[ali8008 26]

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

این موضوع در یک سایت دیگه مورد بررسی قرار گرفت و صحبت هایی هم درموردش شد در انتها یکی از دوستان اونجا (آقای Farzin-PC) با استفاده از رفلکشن یه نمونه کد قرار دادن که مربوط به شخصی سازی EditText میشه ، حالا میخواستم بپرسم اگه بخوایم با استفاده از رفلکشن به طور مثال اسکرول لیست ویو رو تغییر بدیم (مثل شکل زیر) باید چه کار کنیم؟؟؟

Sub CustomizeEditText(ET As EditText, DisabledImage As String, FocusedImage As String, SelectedImage As String)	Dim r As Reflector
Dim package As String
Dim idDefault, idFocused, idSelected As Int
package = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
idDefault = r.GetStaticField(package & ".R$drawable", DisabledImage)
idFocused = r.GetStaticField(package & ".R$drawable", FocusedImage)
idSelected = r.GetStaticField(package & ".R$drawable", SelectedImage)
r.Target = r.GetContext
r.Target = r.RunMethod("getResources")
Dim sd As StateListDrawable
sd.Initialize
sd.AddState(sd.State_Disabled, r.RunMethod2("getDrawable", idDefault, "java.lang.int"))
sd.AddState(sd.State_Pressed, r.RunMethod2("getDrawable", idFocused, "java.lang.int"))
sd.AddState(sd.State_Focused, r.RunMethod2("getDrawable", idSelected, "java.lang.int"))
sd.AddCatchAllState( r.RunMethod2("getDrawable", idDefault, "java.lang.int"))
ET.Background = sd End Sub

[ali8008 26]

آقا یکم همکاری کنید ، پس این اساتید کجان؟؟؟ نکنه رفتن عید دیدنی؟! *زبونک**چشمک*

[ali8008 26]

کسی نبود؟؟؟ بریم؟؟؟ *اشک کوچک*