Sub ShowPageWithTransition(NavigationControl As NavigationController,PageToShow As Page,TransitionType As String, FromDirection As String)
Dim no As NativeObject=Me
no.RunMethod("trans:::",Array(NavControl,TransitionType,FromDirection))
NavigationControl.ShowPage2(PageToShow,False)
End Sub
#if OBJC
-(void) trans: (UINavigationController*)nav :(NSString*)tp :(NSString*)from
{
CATransition *transition = [CATransition animation];
transition.duration = 0.3f;
transition.timingFunction = [CAMediaTimingFunction functionWithName:kCAMediaTimingFunctionEaseInEaseOut];
transition.type = tp;
transition.subtype = from;
[nav.view.layer addAnimation:transition forKey:nil];
}
#End If