Get Started with Visual Basic Development for Windows Phone 7: Listing 5.
Detecting the Page Orientation in MainPage.Xaml.vb
Private Sub MainPage_OrientationChanged(ByVal sender As Object,
ByVal e As Microsoft.Phone.Controls.OrientationChangedEventArgs) _
Handles MyBase.OrientationChanged
'Single line format used for brevity - not recommended
Select Case e.Orientation
Case PageOrientation.Landscape : tbPLmode.Text = "Landscape"
Case PageOrientation.LandscapeLeft : tbPLmode.Text = "Landscape Left"
Case PageOrientation.LandscapeRight : tbPLmode.Text = "Landscape Right"
Case PageOrientation.None : tbPLmode.Text = "None" 'Should never happen
Case PageOrientation.Portrait : tbPLmode.Text = "Portrait"
Case PageOrientation.PortraitDown : tbPLmode.Text = "Portrait Down"
Case PageOrientation.PortraitUp : tbPLmode.Text = "Portrait Up"
End Select
End Sub
About the Author
Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].