Silverlight/XAML – Learning by Coding

[ sl2_slider.xaml --> Grafik anzeigen ]

 1: <?xml version="1.0" encoding="UTF-8"?>
 2: <!-- coded by Thomas Meinike 08/08 -->
 3: <UserControl x:Class="sl2_slider.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>
 9: 
10:     <Slider Canvas.Left="30" Canvas.Top="30" Width="300" Orientation="Horizontal" 
11:       Minimum="0" Maximum="100" SmallChange="1" LargeChange="10"
12:       IsDirectionReversed="False"/>
13: 
14:     <Slider Canvas.Left="30" Canvas.Top="110" Width="300" Orientation="Horizontal" 
15:       Minimum="0" Maximum="100" SmallChange="1" LargeChange="10"
16:       IsDirectionReversed="True"/>
17: 
18:     <Slider Canvas.Left="380" Canvas.Top="30" Height="100" Orientation="Vertical"
19:       Minimum="0" Maximum="100" SmallChange="1" LargeChange="10"
20:       IsDirectionReversed="True"/>
21: 
22:     <Slider Canvas.Left="460" Canvas.Top="30" Height="100" Orientation="Vertical"
23:       Minimum="0" Maximum="100" SmallChange="1" LargeChange="10"
24:       IsDirectionReversed="False"/>
25: 
26:     <Line X1="20" Y1="160"  X2="500" Y2="160" Stroke="#CCC"/>
27:     
28:     <Image x:Name="bild" Source="media/blaetter.jpg" Width="284" Height="125"
29:       Canvas.Left="110" Canvas.Top="190"/>
30: 
31:     <Slider x:Name="op_slider" Width="290" Minimum="0" Maximum="1" Value="1"
32:       Canvas.Left="105" Canvas.Top="320" IsDirectionReversed="False"/>
33: 
34:     <TextBlock Canvas.Left="115" Canvas.Top="340" Text="0"/>
35:     <TextBlock Canvas.Left="200" Canvas.Top="340" Text="&lt;&lt; Opacity &gt;&gt;"/>
36:     <TextBlock Canvas.Left="385" Canvas.Top="340" Text="1"/>
37: 
38:   </Canvas>
39: 
40: 
41:   <!-- // zusätzlich verwendeter VB.NET-Code in Page.xaml.vb:
42: 
43:   Partial Public Class Page
44:     Inherits UserControl
45: 
46:     Public Sub New()
47:       InitializeComponent()
48:     End Sub
49: 
50:     Private Sub SetOpacity(ByVal sender As ObjectByVal e As  _
51:       System.Windows.RoutedPropertyChangedEventArgs(Of Double)) Handles op_slider.ValueChanged
52:       bild.Opacity op_slider.Value
53:     End Sub
54: 
55:   End Class
56: 
57:   -->
58: 
59: </UserControl>

[zum Anfang]