#副標=Windows Presentation Foudation(下)
#大標=宣告式應用程式開發新境界-MPF
#眉標=Windows Vista開發技術專欄
#作者=文／彭靖灝



===========box 程式1============
<StackPanel xmlns=
"http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" > 
 <Button Width="200" Margin="10"
  Background="#00AAFF" Foreground="#003366"
  FontFamily="Tahoma" FontSize="30">
Hello World
 </Button>
 </StackPanel>

==============end================



===============box 程式2===============
<StackPanel xmlns=
"http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" > 
 <StackPanel.Resources>
   <Style x:Key="CustomButton" TargetType="{x:Type Button}">
     <Setter Property="Width" Value="200" />
<Setter Property="Margin" Value="10" />
<Setter Property="Background" Value="#00AAFF" />
<Setter Property="Foreground" Value="#003366" />
<Setter Property="FontFamily" Value="Tahoma" />
<Setter Property="FontSize" Value="30" />
	</Style>
</StackPanel.Resources>

<Button Style="{StaticResource CustomButton}">
	Hello World
</Button>
<Button Style="{StaticResource CustomButton}">
	Another Button
</Button>
</StackPanel>
====================end=====================
     



============box 程式3============
<Style x:Key="CustomButton" TargetType="{x:Type Button}">
　<Setter Property="Width" Value="200" />
　<Setter Property="Margin" Value="10" />
　<Setter Property="Foreground" Value="#003366" />
　<Setter Property="FontFamily" Value="Tahoma" />
　<Setter Property="FontSize" Value="30" />
   <Setter Property="Background">
<Setter.Value>
 <LinearGradientBrush StartPoint="0,0" EndPoint="0,1">
 <LinearGradientBrush.GradientStops >
    <GradientStop Offset="0" Color="#00AAFF" />
    <GradientStop Offset="1" Color="White" />
 </LinearGradientBrush.GradientStops>
 </LinearGradientBrush>
</Setter.Value>
   </Setter>
</Style>
=============end==============
     




===========box 程式4===========
Public Sub btnHello(ByVal sender As Object, _
ByVal e As System.Windows.RoutedEventArgs)
MessageBox.Show("Yes, hello!")
End Sub
=============end==============



==========box 程式5==========
Dim btn As New Button
  btn.Content = "New Button"
  AddHandler btn.Click, AddressOf btnAnotherHello
  btn.Style = Me.MainPanel.Resources.Item("CustomButton")
Me.MainPanel.Children.Add(btn)
=============end==============



============box 程式6===========
<StackPanel.Resources>
 <Style x:Key="CustomButton" TargetType="{x:Type Button}">
　<Style.Triggers>
<Trigger Property="Button.IsMouseOver" Value="True">
 <Setter Property="Foreground" Value="#FFFFFF" />
   </Trigger>
	<Trigger Property="Button.IsPressed" Value="True">
	  <Setter Property="Background" Value="#FF0000" />
	</Trigger>
 </Style.Triggers>
 <Setter Property="Width" Value="200" />
 <Setter Property="Margin" Value="10" />
 <Setter Property="Background" Value="#00AAFF" />
 <Setter Property="Foreground" Value="#003366" />
 <Setter Property="FontFamily" Value="Tahoma" />
 <Setter Property="FontSize" Value="30" />
　</Style>
</StackPanel.Resources>
==================end==================



==========box 程式7============
<Style.Triggers>
　<Trigger Property="Button.IsMouseOver" Value="True">
<Setter Property="Foreground" Value="#FFFFFF" />
<Setter Property="Width" Value="300" />
　</Trigger>
　<Trigger Property="Button.IsMouseOver" Value="False">
<Setter Property="Width" Value="200" />
　</Trigger>
　<Trigger Property="Button.IsPressed" Value="True">
<Setter Property="Background" Value="#FF0000" />
　</Trigger>
</Style.Triggers>
==============end===============



============box 程式8===========
<StackPanel xmlns=http://schemas.microsoft.com/winfx/2006/xaml/presentation
 xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" > 
　<StackPanel.Resources>
   <Style x:Key="Rec" TargetType="{x:Type Rectangle}">
   <Setter Property="Width" Value="50" />
   <Setter Property="Height" Value="50" />
   <Setter Property="Margin" Value="20" />
   <Setter Property="HorizontalAlignment" Value="Left" />
   <Style.Triggers>
<EventTrigger RoutedEvent="Rectangle.MouseEnter">
 <EventTrigger.Actions>
 <BeginStoryboard>
  <Storyboard>
  <DoubleAnimation To="300" Duration="0:0:1.5" 
    AccelerationRatio="0.10"
    DecelerationRatio="0.25" 
    Storyboard.TargetProperty="(Canvas.Width)" />
   </Storyboard>
  </BeginStoryboard>
  </EventTrigger.Actions>
</EventTrigger>
<EventTrigger RoutedEvent="Rectangle.MouseLeave">
  <EventTrigger.Actions>
  <BeginStoryboard>
    <Storyboard>
    <DoubleAnimation Duration="0:0:1.5" 
      AccelerationRatio="0.10"
　　　DecelerationRatio="0.25" 
      Storyboard.TargetProperty="(Canvas.Width)" />
     </Storyboard>
   </BeginStoryboard>
   </EventTrigger.Actions>
</EventTrigger>
</Style.Triggers>
</Style>
　</StackPanel.Resources>
   <Rectangle Style="{StaticResource Rec}" Fill="Blue" ></Rectangle>
</StackPanel>
==============end================



==========box 程式9===========
<Grid>
 <Grid.Resources>
   <Style x:Key="StyledList" TargetType="{x:Type ListBox}">
<Setter Property="Template">
　<Setter.Value>
	<ControlTemplate TargetType="{x:Type ListBox}">
		<Border Background=
		"{TemplateBinding Panel.Background}" 
			BorderBrush=
		"{TemplateBinding Border.BorderBrush}"
			BorderThickness=
		"{TemplateBinding Border.BorderThickness}">
			<ScrollViewer 
		HorizontalScrollBarVisibility="Auto">
			<StackPanel x:Name="StackPanel1" 
		IsItemsHost="True"
		   Orientation="Horizontal"/>
		</ScrollViewer>
	  </Border>
	</ControlTemplate>
</Setter.Value>
</Setter>
==============end==============



=========box 程式10=========
<DataTemplate>
　<Grid>
<Grid.ColumnDefinitions>
	<ColumnDefinition Width="Auto" />
 </Grid.ColumnDefinitions>
 <Grid.RowDefinitions>
	<RowDefinition Height="60" />
	<RowDefinition Height="30" />
　</Grid.RowDefinitions>
		…
　<TextBlock Grid.Row="1" FontSize="14" 
	HorizontalAlignment="Center"
	Margin="5" Text="{Binding Name}"
　 FontWeight="Bold"/>
 </Grid>
</DataTemplate>
================end==============



===========box 程式11============
Public Class Userinfo
 Private _Name As String
 Public Property Name() As String
　Get
Return _Name
　End Get
　Set(ByVal value As String)
_Name = value
　End Set
End Property

Public Overrides Function ToString() As String
Return _Name
End Function

  Private _ImagePath As String
　Public Property ImagePath() As String
Get
　Return _ImagePath
 End Get
　　　Set(ByVal value As String)
   _ImagePath = value
  End Set
 End Property

Public Sub New(ByVal Name As String, ByVal ImagePath As String)
 _Name = Name
 _ImagePath = ImagePath
End Sub

　Public Shared users As Userinfo() = _
   {New Userinfo("Arthur Alfredsen", "Images/airplane.bmp"), _
New Userinfo("Brenda Barret", "Images/astro.bmp"), _
New Userinfo("Carl Christiansen", "Images/beach.bmp"), _
New Userinfo("Delia Davis", "Images/butterfl.bmp"), _
New Userinfo("Egbert Evesham", "Images/car.bmp"), _
New Userinfo("Fenella Ferguson", "Images/cat.bmp"), _
New Userinfo("Graham Garden", "Images/chess.bmp"), _
…
New Userinfo("Zaphod Zacharzewski", "Images/soccer.bmp") _
   }
End Class
=============end==========



==========box 程式碼12===========
<Window x:Class="ListBoxForm"
   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
   Title="Listbox Data binding" Height="393" Width="520"
   >
   <Grid>
<ListBox x:Name="MainList" ItemsSource="{Binding}" />
   </Grid>
</Window>
==============end===============



==========box 程式13============
<Window x:Class="ListBoxForm"
 xmlns=
 "http://schemas.microsoft.com/winfx/2006/xaml/presentation"
 xmlns:x=
"http://schemas.microsoft.com/winfx/2006/xaml"
　Title="Listbox Data binding" Height="393" Width="520"
  >
   <Grid>
<Grid.Resources>
 <Style x:Key="StyledList"
  TargetType="{x:Type ListBox}">
　<Setter Property="Template">
	<Setter.Value>
	 <ControlTemplate 
　　　TargetType="{x:Type ListBox}">
	  <Border BorderThickness="2"
           BorderBrush="AliceBlue">
	   <ScrollViewer HorizontalScrollBarVisibility="Auto">
		<StackPanel x:Name="StackPanel1"
　　　　IsItemsHost="True"
		  Orientation="Horizontal"/>
		</ScrollViewer>
	   </Border>
	  </ControlTemplate>
	 </Setter.Value>
　</Setter> 
	<Setter Property="VerticalAlignment" Value="Center" />
　<Setter Property="ItemTemplate">
	<Setter.Value>
	 <DataTemplate>
	   <Grid>
		<Grid.ColumnDefinitions>
		 <ColumnDefinition Width="Auto" />
		</Grid.ColumnDefinitions>
		<Grid.RowDefinitions>
		  <RowDefinition Height="60" />
		  <RowDefinition Height="30" />
		 </Grid.RowDefinitions>
		 <Border Margin="4" Grid.Column="0"
　　　　 BorderThickness="2" CornerRadius="4"
		  HorizontalAlignment="Center">							
		<Grid>
		 <Image Width="48" Margin="2,2,2,1"
         Source="{Binding ImagePath}" />
		 </Grid>
			</Border>
			<TextBlock Grid.Row="1"
            FontSize="14" HorizontalAlignment="Center"
			 Margin="5" Text="{Binding Name}"
　　　　　　FontWeight="Bold"/>
		</Grid>
					</DataTemplate>
				</Setter.Value>
			</Setter>

		<Setter Property="Grid.IsSharedSizeScope" Value="True" />
	</Style>
</Grid.Resources>
<ListBox x:Name="MainList" ItemsSource="{Binding}"
 Style="{StaticResource StyledList}"/>
    </Grid>
</Window>
===============end================