This question is locked. New answers and comments are not allowed.
Im trying to get an orientation changing animation working with your RadPhoneApplicationFrame class. Previously I was using the code below that worked. Using the RadPhoneApplicationFrame as the root frame for the application makes this code not work. Are there any modifications that can be made to regain the desired functionality?
Protected
Friend
Sub
FacilityAddMod_OrientationChanged(sender
As
Object
, e
As
Microsoft.Phone.Controls.OrientationChangedEventArgs)
Handles
MyBase
.OrientationChanged
Dim
newOrientation
As
PageOrientation = e.Orientation
FlipPage(
DirectCast
(
DirectCast
(Application.Current.RootVisual, PhoneApplicationFrame).Content, PhoneApplicationPage), newOrientation, lastOrientation)
lastOrientation = newOrientation
End
Sub
Public
Sub
FlipPage(page
As
PhoneApplicationPage, newOrientation
As
PageOrientation, lastOrientation
As
PageOrientation)
Dim
transitionElement
As
New
RotateTransition
Select
Case
newOrientation
Case
PageOrientation.Landscape, PageOrientation.LandscapeRight
' Come here from PortraitUp (i.e. clockwise) or LandscapeLeft?
If
lastOrientation = PageOrientation.PortraitUp
Then
transitionElement.Mode = RotateTransitionMode.In90Counterclockwise
Else
transitionElement.Mode = RotateTransitionMode.In180Clockwise
End
If
Exit
Select
Case
PageOrientation.LandscapeLeft
' Come here from LandscapeRight or PortraitUp?
If
lastOrientation = PageOrientation.LandscapeRight
Then
transitionElement.Mode = RotateTransitionMode.In180Counterclockwise
Else
transitionElement.Mode = RotateTransitionMode.In90Clockwise
End
If
Exit
Select
Case
PageOrientation.Portrait, PageOrientation.PortraitUp
' Come here from LandscapeLeft or LandscapeRight?
If
lastOrientation = PageOrientation.LandscapeLeft
Then
transitionElement.Mode = RotateTransitionMode.In90Counterclockwise
Else
transitionElement.Mode = RotateTransitionMode.In90Clockwise
End
If
Exit
Select
Case
Else
Exit
Select
End
Select
' Execute the transition
Dim
transition
As
ITransition = transitionElement.GetTransition(page)
transition.Begin()
End
Sub