<Page x:Class="CookiesSampleCSharp.HomePage"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
WindowTitle="Cookies Sample">
<StackPanel>
<Label>Set Cookie Value:</Label>
<TextBox Name="setCookieValueTextBox">Cookie1=Value1</TextBox>
<Button HorizontalAlignment="Right" Name="setCookieButton" Click="setCookieButton_Click">Set Cookie</Button>
<Label>Get Cookie Value:</Label>
<TextBox Name="getCookieValueTextBox"></TextBox>
<Button HorizontalAlignment="Right" Name="getCookieButton" Click="getCookieButton_Click">Get Cookie</Button>
</StackPanel>
</Page>
//File:Window.xaml.vb
Imports System
Imports System.ComponentModel
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Interop
Imports System.Windows.Navigation
Namespace CookiesSampleCSharp
Public Partial Class HomePage
Inherits System.Windows.Controls.Page
Public Sub New()
InitializeComponent()
End Sub
Private Sub setCookieButton_Click(sender As Object, e As RoutedEventArgs)
Try
Application.SetCookie(BrowserInteropHelper.Source, Me.setCookieValueTextBox.Text)
Catch ex As Win32Exception
MessageBox.Show(ex.Message & " (Native Error Code=" & ex.NativeErrorCode & ")")
End Try
End Sub
Private Sub getCookieButton_Click(sender As Object, e As RoutedEventArgs)
Try
Me.getCookieValueTextBox.Text = Application.GetCookie(BrowserInteropHelper.Source)
Catch ex As Win32Exception
MessageBox.Show(ex.Message & " (Native Error Code=" & ex.NativeErrorCode & ")")
End Try
End Sub
End Class
End Namespace
|
