Mega Code Archive

 

Categories / VB.Net / WPF

 

Use a Frame control to navigate to Web pages and a Extensible Application Markup Language (XAML) page

<Page x:Class="FrameExample.Page1"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">   <StackPanel>         <RadioButton Name="VisualBasic" Checked="BrowseAHomePage" GroupName="HomePages">       Visual Basic         </RadioButton>         <RadioButton Name="VisualCSharp" Checked="BrowseAHomePage" GroupName="HomePages">       Visual C#          </RadioButton>         <RadioButton Name="AnotherPage" Checked="BrowseAHomePage" GroupName="HomePages">       XAML Page         </RadioButton>         <Frame Name = "myFrame" Background="LightBlue"/>     </StackPanel> </Page> //File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Media Imports System.Windows.Navigation Imports System.Windows.Shapes Imports System.Windows.Input Imports System.IO Imports System.Net Namespace FrameExample   Public Partial Class Page1     Inherits Page     Private Sub BrowseAHomePage(sender As Object, e As RoutedEventArgs)       If CType(VisualBasic.IsChecked, [Boolean]) Then         myFrame.Navigate(New System.Uri("http://msdn.microsoft.com/vbasic/"))       ElseIf CType(VisualCSharp.IsChecked, [Boolean]) Then         myFrame.Navigate(New System.Uri("http://msdn.microsoft.com/vcsharp/"))       ElseIf CType(AnotherPage.IsChecked, [Boolean]) Then         myFrame.Navigate(New System.Uri("AnotherPage.xaml", UriKind.RelativeOrAbsolute))       End If     End Sub   End Class End Namespace