#眉標=Silverlight 3.0、、 #副標=Silverlight 3.0技術應用(5) #大標=Silverlight應用程式在瀏覽器外執行範例 #作者=文/圖 董大偉 ============= 程式1 '用戶點選安裝鈕 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) '安裝在用戶端 If Application.Current.InstallState = InstallState.NotInstalled Then '安裝 Application.Current.Install() End If End Sub ================ ===<反灰>============= System.Net.NetworkInformation.NetworkInterface.GetIsNetworkAvailable() ================ ===<反灰>============= '當網路狀況改變 AddHandler System.Net.NetworkInformation.NetworkChange.NetworkAddressChanged, AddressOf NetworkAddressChanged '我們可自己安排的函式,Hook在NetworkAddressChanged事件上,當網路連線狀況改變時,會主動調用 ================ ===<反灰>============= Application.Current.IsRunningOutOfBrowser() ================ ===<反灰>============= 程式2 (…略…) (…子場景內容…) ================ ============= 程式3 Partial Public Class Page1 Inherits Page Public Sub New() InitializeComponent() End Sub '當進入此頁面 Protected Overrides Sub OnNavigatedTo(ByVal e As System.Windows.Navigation.NavigationEventArgs) End Sub End Class ================ ===<反灰>============= Me.MainFrame.Navigate(New Uri("/Views/page2.xaml", UriKind.Relative)) ================ ===<反灰>============= .aspx#/Views/Page1.xaml?para1=abc    ================ ============= 程式3 Partial Public Class Page1 Inherits Page (…略…) 'Executes when the user navigates to this page. Protected Overrides Sub OnNavigatedTo(ByVal e As System.Windows.Navigation.NavigationEventArgs) '判斷是否有參數, 注意大小寫有差 If NavigationContext.QueryString.ContainsKey("para1") Then Dim para As String '抓取參數 para = NavigationContext.QueryString("para1") '顯示 MessageBox.Show(para) End If End Sub End Class ================ ============= 程式4 ================