Dim but As Button = DetailsDialog.GetButton(DialogResponse.POSITIVE)
Dim container As Panel = but.Parent
container.Color = Colors.White
Color_All(container)
Dim container1 As Panel = container.Parent
container1.Color = Colors.White
Color_All(container1)
Dim container2 As Panel = container1.Parent
container2.Color = Colors.White
Color_All(container2)
End sub
Sub Color_All(p As Panel)
For Each v As View In p.GetAllViewsRecursive
v.Color = Colors.White
Next
End Sub
Dim cd As InputDialog
.....
Dim sf As JavaObject = cd.ShowAsync("","","Ok","","Annulla",Null,True)
Dim cs As CSBuilder
sf.RunMethod("setTitle", Array(cs.Initialize.Color(Color.azzurro).Append("Title").PopAll))