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].

comments powered by Disqus


  • Windows Forms Lives On in .NET 6

    Windows Forms would like you to know that the reports of its death are greatly exaggerated.

  • Uno Platform 4.0 Adds Visual Studio Code Plugin

    Uno Platform 4.0 is out, highlighted by a new extension for working in Microsoft's Visual Studio Code editor.

  • .NET 6 Support Leads New GA Features in Azure Functions Fall Update

    Microsoft announced several new features that are now generally available in the fall update of Azure Functions, used for event-driven serverless computing in the cloud.

  • Teams Toolkit 3.0 Boosts Multiple Developer Collaboration

    Microsoft's Teams Toolkit 3.0 has debuted with several new features, including better multiple developer collaboration and improved multi-environment management.

Upcoming Events