Sub btn1_Click
'' a1 = xml.LoadAnimation("anim_animation", "in")
''a1.Duration = 2000
''a1.Start(pnl1)
Private NativeMe As JavaObject
NativeMe.InitializeContext
Dim Distance As Float = 5000
Log("distance: " & Distance)
Log("scale0: " & GetDeviceLayoutValues.Scale)
Dim scale As Float = NativeMe.RunMethod("Scale", Null)
Log("scale: " & scale)
increaseCameraDistance(pnl1, Distance, scale)
If direction = False Then
flip.Flip3DView("flip", pnl1, 180, 700, flip.FLIP_HORIZONTAL)
''a1.InitializeRotate("a1", 0, 180)
''a1.InitializeRotateCenter("a1", 0, 180, pnl1)
pnl1.SetColorAnimated(700, Colors.blue, Colors.Green)
''a1.Duration = 2000
''a1.InitializeAlpha("a1", 0, 1)
''a1.Duration = 1000
''a1.Start(pnl1)
Else
flip.Flip3DView("flip", pnl1, 180, 700, flip.FLIP_HORIZONTAL)
''a1.InitializeRotate("a1", 0, 180)
''a1.InitializeRotateCenter("a1", 0, 180, pnl1)
pnl1.SetColorAnimated(700, Colors.green, Colors.blue)
'' a1.Duration = 2000
''a1.InitializeAlpha("a1", 1, 0)
''a1.Duration = 1000
''a1.Start(pnl1)
'' pnl1.Color = Colors.blue
End If
''float scale = context.getResources().getDisplayMetrics().density;
''view.setCameraDistance(Distance * scale);
If a1.IsInitialized Then
a1.Stop(pnl1)
pnl1.Invalidate
a1.Start(pnl1)
End If
flip.StartAnim(pnl1)
''
End Sub
Sub increaseCameraDistance(v As View, Distance As Float, scale As Float)
Dim jo = v As JavaObject
Log("camera distance: " & Distance)
jo.RunMethod("setCameraDistance", Array(Distance * scale))
End Sub