Silverlight/XAML – Learning by Coding
1: <?xml version="1.0" encoding="UTF-8"?>
2: <!-- coded by Thomas Meinike 08/08 -->
3: <UserControl x:Class="sl2_isolated_storage.Page"
4: xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
5: xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
6: Width="800" Height="600">
7:
8: <Canvas Loaded="SetData">
9:
10: <TextBlock Canvas.Left="30" Canvas.Top="30" FontFamily="Arial" FontSize="18"
11: Foreground="#00C" Text="Lokaler Counter mittels Isolated Storage"/>
12: <TextBlock Canvas.Left="30" Canvas.Top="50" FontFamily="Arial" FontSize="12" Foreground="#00C"
13: Text="(automatische Erhöhung beim Laden (sowie F5) und manuell über Button)"/>
14:
15: <StackPanel Canvas.Left="30" Canvas.Top="80" Height="30" Width="600"
16: Orientation="Horizontal" HorizontalAlignment="Left" VerticalAlignment="Top">
17:
18: <Button Height="30" Width="100" Content="Wert entfernen" Padding="5" Margin="0 0 10 0"
19: FontFamily="Arial" FontSize="12" Click="DeleteData"/>
20:
21: <Button Height="30" Width="100" Content="Wert erhöhen" Padding="5" Margin="0 0 10 0"
22: FontFamily="Arial" FontSize="12" Click="SetData"/>
23:
24: <TextBlock x:Name="counter" FontFamily="Arial" Foreground="#F00" Margin="0 8 0 0" Text="..." />
25:
26: </StackPanel>
27:
28: </Canvas>
29:
30:
31: <!-- // zusätzlich verwendeter VB.NET-Code in Page.xaml.vb:
32:
33: Imports System.IO.IsolatedStorage
34:
35: Partial Public Class Page
36: Inherits UserControl
37: Private appSettings As IsolatedStorageSettings = IsolatedStorageSettings.ApplicationSettings
38:
39: Public Sub New()
40: InitializeComponent()
41: End Sub
42:
43: Private Sub SetData(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
44: If appSettings.Contains("counter") Then
45: appSettings("counter") = appSettings("counter") + 1
46: Else
47: appSettings("counter") = 1
48: End If
49:
50: counter.Text = "counter: " + appSettings("counter").ToString
51: End Sub
52:
53: Private Sub DeleteData(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
54: appSettings.Remove("counter")
55: counter.Text = "counter-Eintrag wurde entfernt!"
56: End Sub
57:
58: End Class
59:
60: -->
61:
62: </UserControl>
[zum Anfang]