'B4J and B4A
Sub GetNativeCanvas (b4x As B4XCanvas) As Canvas
Dim jo As JavaObject = b4x
jo = jo.GetFieldJO("cvs")
If XUI.IsB4J Then Return jo.RunMethod("getObject", Null)
Return jo
End Sub
'B4J and B4A
Sub GetNativeCanvas (b4x As B4XCanvas) As Canvas
Dim jo As JavaObject = b4x
Return jo.GetFieldJO("cvs").RunMethod("getObject", Null)
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.