like input i can use follow code
mybj(some, "input")
some can use button, panel ,edittext .........
but when i used mybj(listview,"input")
is not work
Sub mybj(Control As View, ImageName As String)
Dim r As Reflector
Dim package As String
Dim id11 As Int
package = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
id11 = r.GetStaticField(package & ".R$drawable", ImageName)
r.Target = r.GetContext
r.Target = r.RunMethod("getResources")
Control.Background = r.RunMethod2("getDrawable", id11, "java.lang.int")
End Sub
but when i used mybj(listview,"input")
is not work
can anybody know?
tks all
mybj(some, "input")
some can use button, panel ,edittext .........
but when i used mybj(listview,"input")
is not work
Sub mybj(Control As View, ImageName As String)
Dim r As Reflector
Dim package As String
Dim id11 As Int
package = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
id11 = r.GetStaticField(package & ".R$drawable", ImageName)
r.Target = r.GetContext
r.Target = r.RunMethod("getResources")
Control.Background = r.RunMethod2("getDrawable", id11, "java.lang.int")
End Sub
but when i used mybj(listview,"input")
is not work
can anybody know?
tks all