Traduction

Ce tutoriel est la traduction la plus fidèle possible du tutoriel original de Peter Bull, Microsoft Silverlight 4 - Expander Custom Control in Silverlight.

Introduction

Expander Control est un panneau repliable qui, lorsqu'il est réduit, n'affiche que la légende et le bouton, puis affiche son contenu quand il est déplié.

Contrôle Expander personnalisé en Silverlight

Étape 1

Démarrez Microsoft Visual Web Developer 2010 Express, ensuite sélectionnez Fichier puis Nouveau Projet... Sélectionnez Visual Basic ensuite Application Silverlight dans les modèles installés, sélectionnez un emplacement si vous le souhaitez, puis entrez un nom pour le projet et appuyez sur OK :

Image non disponible

Étape 2

Une nouvelle fenêtre Nouvelle application Silverlight devrait apparaître, décochez la case Héberger l'application Silverlight sur un nouveau site Web, puis sélectionnez la Version de Silverlight ciblée :

Image non disponible

Étape 3

Une page vierge nommée MainPage.xaml devrait alors apparaître :

Image non disponible

Étape 4

Sélectionnez Fichier puis Ajouter depuis le menu principal, puis Nouveau Projet… La fenêtre Nouveau Projet devrait apparaître, sélectionnez Bibliothèque de classes Silverlight puis saisissezle Nom « Expander » :

Image non disponible

Étape 5

Dans « Sélectionnez la version de Silverlight à cibler dans la liste des Kits de développement Silverlight SDK installés » choisissez la même version de Silverlight, par exemple Silverlight 4, et cliquez sur OK.

Puis dans l'Explorateur de solutions pour Expander, cliquez sur Class1.vb, ensuite allez dans Propriétés et modifiez le Nom de fichier en Expander.vb :

Image non disponible

Étape 6

Dans « Vous renommez un fichier. Voulez-vous également renommer dans ce projet toutes les références à l'élément de code 'Class1' ? », choisissez Oui.

Faites un clic droit sur le projet Expander (et non sur Expander.vb) dans l'Explorateur de solutions et choisissez Ajouter puis Nouveau dossier, et nommez-le « Themes » (sans les guillemets) :

Image non disponible

Étape 7

Faites un clic droit sur le dossier « Themes » du projet Expander, et choisissez Ajouter, puis Nouvel élément…, sélectionnez Dictionnaire de ressources Silverlight avec le nom Generic.xaml :

Image non disponible

Étape 8

Dans le volet XAML de Generic.xaml, dans la balise ResourceDictionary, tapez le code XAML namespace suivant :

 
Sélectionnez
xmlns:local="clr-namespace:Expander"
Image non disponible

Étape 9

En étant toujours dans le volet XAML de Generic.xaml, au-dessus de la balise </ResourceDictionary> et en dessous de la balise <ResourceDictionary>, tapez le code XAML suivant :

 
Sélectionnez
<Style TargetType="local:Expander">
  <Setter Property="Template">
    <Setter.Value>
      <ControlTemplate TargetType="local:Expander">
        <Grid>
          <VisualStateManager.VisualStateGroups>
            <VisualStateGroup x:Name="ViewStates">
              <VisualStateGroup.Transitions>
                <VisualTransition GeneratedDuration="0:0:0.5"/>
              </VisualStateGroup.Transitions>
              <VisualState x:Name="Expanded">
                <Storyboard>
                  <DoubleAnimation Storyboard.TargetName="ContentScaleTransform"
                      Storyboard.TargetProperty="ScaleY" To="1" Duration="0"/>
                  <DoubleAnimation Storyboard.TargetName="RotateButtonTransform"
                      Storyboard.TargetProperty="Angle" To="180" Duration="0"/>
                </Storyboard>
              </VisualState>
            <VisualState x:Name="Collapsed">
              <Storyboard>
                <DoubleAnimation Storyboard.TargetName="ContentScaleTransform"
                    Storyboard.TargetProperty="ScaleY" To="0" Duration="0"/>
                <DoubleAnimation Storyboard.TargetName="RotateButtonTransform"
                    Storyboard.TargetProperty="Angle" To="0" Duration="0"/>
              </Storyboard>
            </VisualState>
          </VisualStateGroup>
        </VisualStateManager.VisualStateGroups>
          <Border BorderBrush="{TemplateBinding BorderBrush}"
              BorderThickness="{TemplateBinding BorderThickness}"
              CornerRadius="{TemplateBinding CornerRadius}"
              Background="{TemplateBinding Background}">
            <Grid>
              <Grid.RowDefinitions>
                <RowDefinition Height="Auto"/>
                <RowDefinition Height="Auto"/>
              </Grid.RowDefinitions>
              <Grid Margin="3">
                <Grid.ColumnDefinitions>
                  <ColumnDefinition Width="Auto"/>
                  <ColumnDefinition Width="Auto"/>
                </Grid.ColumnDefinitions>
                <ContentPresenter Margin="3" Content="{TemplateBinding HeaderContent}"/>
                <ToggleButton Grid.Column="1" RenderTransformOrigin="0.5,0.5" Margin="3" x:Name="ExpandCollapseButton">
                  <ToggleButton.Template>
                    <ControlTemplate>
                      <Grid>
                        <Ellipse Width="20" Height="20" Stroke="#FFA9A9A9" Fill="AliceBlue"/>
                        <Path RenderTransformOrigin="0.5,0.5" HorizontalAlignment="Center" VerticalAlignment="Center" 
                            Data="M1,1.5L4.5,5 8,1.5" Stroke="#FF666666" StrokeThickness="2"/>
                      </Grid>
                    </ControlTemplate>
                  </ToggleButton.Template>
                  <ToggleButton.RenderTransform>
                    <RotateTransform x:Name="RotateButtonTransform"/>
                  </ToggleButton.RenderTransform>
                </ToggleButton>
              </Grid>
              <ContentPresenter Grid.Row="1" Margin="5" Content="{TemplateBinding Content}" x:Name="Content">
                <ContentPresenter.RenderTransform>
                  <ScaleTransform x:Name="ContentScaleTransform"/>
                </ContentPresenter.RenderTransform>
              </ContentPresenter>
            </Grid>
          </Border>
        </Grid>
      </ControlTemplate>
    </Setter.Value>
  </Setter>
</Style>
Image non disponible
Image non disponible

Étape 10

Double-cliquez sur la classe Expander.vb dans l'Explorateur de solutions du projet Expander.

Dans la vue de code pour Expander, au-dessus de la ligne Public Class Expander, tapez le code suivant :

 
Sélectionnez
Imports System.Windows.Controls.Primitives
<TemplateVisualState(Name:="Collapsed", GroupName:="ViewStates"),
TemplateVisualState(Name:="Expanded", GroupName:="ViewStates"),
TemplatePart(Name:="Content", Type:=GetType(FrameworkElement)),
TemplatePart(Name:="ExpandCollapseButton", Type:=GetType(ToggleButton))>
Image non disponible

Étape 11

Puisque nous en sommes à la vue de code pour Expander.vb, en dessous de la ligne Public Class Expander, tapez le code suivant :

 
Sélectionnez
Inherits ContentControl

Private _useTransitions As Boolean = True
Private _collapsedState As VisualState
Private _toggleExpander As ToggleButton
Private _contentElement As FrameworkElement
Image non disponible

Étape 12

Toujours dans la vue de code pour Expander.vb, au-dessus du End Class pour Public Class Expander, tapez les propriétés de dépendance suivantes :

 
Sélectionnez
Public Shared ReadOnly HeaderContentProperty As DependencyProperty =
DependencyProperty.Register("HeaderContent", GetType(Object),
GetType(Expander), Nothing)

Public Shared ReadOnly IsExpandedProperty As DependencyProperty =
DependencyProperty.Register("IsExpanded", GetType(Boolean),
GetType(Expander), New PropertyMetadata(True))

Public Shared ReadOnly CornerRadiusProperty As DependencyProperty =
DependencyProperty.Register("CornerRadius", GetType(CornerRadius),
GetType(Expander), Nothing)
Image non disponible

Étape 13

Puisque nous en sommes toujours à la vue de code pour Expander.vb, au-dessus du End Class pour Public Class Expander, tapez les propriétés suivantes :

 
Sélectionnez
Public Property HeaderContent() As Object
  Get
    Return GetValue(HeaderContentProperty)
  End Get
  Set(ByVal value As Object)
    SetValue(HeaderContentProperty, value)
  End Set
End Property

Public Property IsExpanded() As Boolean
  Get
    Return CBool(GetValue(IsExpandedProperty))
  End Get
  Set(ByVal value As Boolean)
   SetValue(IsExpandedProperty, value)
  End Set
End Property

Public Property CornerRadius() As CornerRadius
  Get
    Return CType(GetValue(CornerRadiusProperty), CornerRadius)
  End Get
  Set(ByVal value As CornerRadius)
    SetValue(CornerRadiusProperty, value)
  End Set
End Property
Image non disponible

Étape 14

En étant toujours dans la vue de code pour Expander.vb, au-dessus du End Class pour Public Class Expander, tapez le constructeur et le Sub suivants :

 
Sélectionnez
Public Sub New()
  DefaultStyleKey = GetType(Expander)
End Sub

Private Sub ChangeVisualState(ByVal useTransitions As Boolean)
  If IsExpanded Then
    If _contentElement IsNot Nothing Then
      _contentElement.Visibility = Visibility.Visible
    End If
    VisualStateManager.GoToState(Me, "Expanded", useTransitions)
  Else
    VisualStateManager.GoToState(Me, "Collapsed", useTransitions)
    _collapsedState = TryCast(GetTemplateChild("Collapsed"), VisualState)
    If _collapsedState Is Nothing Then
      If _contentElement IsNot Nothing Then
        _contentElement.Visibility = Visibility.Collapsed
      End If
    End If
  End If
End Sub
Image non disponible

Étape 15

Encore une fois, en étant toujours dans la vue de code pour Expander.vb, au-dessus du End Class pour Public Class Expander, tapez les gestionnaires d'événements suivants :

 
Sélectionnez
Private Sub Toggle_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
  IsExpanded = Not IsExpanded
  _toggleExpander.IsChecked = IsExpanded
  ChangeVisualState(_useTransitions)
End Sub

Private Sub Collapsed_Completed(ByVal sender As Object, ByVal e As EventArgs)
  _contentElement.Visibility = Visibility.Collapsed
End Sub

Public Overrides Sub OnApplyTemplate()
  MyBase.OnApplyTemplate()
  _toggleExpander = TryCast(GetTemplateChild("ExpandCollapseButton"), ToggleButton)
  If _toggleExpander IsNot Nothing Then
    AddHandler _toggleExpander.Click, AddressOf Toggle_Click
  End If
  _contentElement = TryCast(GetTemplateChild("Content"), FrameworkElement)
  If _contentElement IsNot Nothing Then
    _collapsedState = TryCast(GetTemplateChild("Collapsed"), VisualState)
    If (_collapsedState IsNot Nothing) AndAlso (_collapsedState.Storyboard IsNot Nothing) Then
      AddHandler _collapsedState.Storyboard.Completed, AddressOf Collapsed_Completed
    End If
  End If
  ChangeVisualState(False)
End Sub
Image non disponible

Étape 16

Sélectionnez Debug, puis l'option Build Expander du menu :

Image non disponible

Étape 17

Retournez au concepteur de vues de MainPage.xaml en sélectionnant l'onglet MainPage.xaml, ou double-cliquez sur MainPage.xaml dans l'Explorateur de solutions pour le projet principal.

Puis dans la section Tous les contrôles Silverlight de la Boîte à outils, sélectionnez le contrôle Canvas :

Image non disponible

Étape 18

Dessinez un Canvas qui remplit toute la page ou dans le volet XAML entre les lignes <Grid> et </Grid>,tapez le code XAML suivant :

 
Sélectionnez
<Canvas Height="300" Width="400" HorizontalAlignment="Left" VerticalAlignment="Top" Name="Page">
</Canvas>

Voir ci-dessous :

Image non disponible

Étape 19

Puis dans la section Contrôles Expander de la Boîte à outils, sélectionnez le contrôle Expander :

Image non disponible

Étape 20

Dessinez un Expander sur la page (Canvas) en le glissant de la Boîte à outils sur le Canvas, ensuite dans le volet XAML, entre les balises <Canvas> et </Canvas>, modifiez le code XAML my:Expander comme ceci :

 
Sélectionnez
<my:Expander Canvas.Left="75" Canvas.Top="25" Height="250" Width="250" HeaderContent="Expander">
  <my:Expander.Content>
    <StackPanel>
      <Button Margin="4" Padding="4" Content="Button One"/>
      <Button Margin="4" Padding="4" Content="Button Two"/>
      <Button Margin="4" Padding="4" Content="Button Three"/>
      <Button Margin="4" Padding="4" Content="Button Four"/>
    </StackPanel>
  </my:Expander.Content>
</my:Expander>

Voir ci-dessous :

Image non disponible

Étape 21

Enregistrez le projet maintenant que vous avez terminé l'application Silverlight. Sélectionnez Debug puis Démarrer le débogage ou cliquez sur Démarrer le débogage :

Image non disponible

Une fois que vous l'aurez fait, ce qui suit apparaîtra dans une nouvelle fenêtre du navigateur :

Image non disponible

Étape 22

Cliquez sur le bouton rond avec la flèche pour plier ou déplier l'Expander :

Image non disponible

Étape 23

Fermez l'application et la fenêtre du navigateur en cliquant sur le bouton Fermer Image non disponible en haut à droite de la fenêtre de l'application et du navigateur Web pour Arrêter l'application.

Conclusion

Ceci est un exemple simple de comment créer un Expander, il peut être étendu pour prendre en charge davantage de propriétés telles que la couleur de fond d'un HeaderContent par exemple. Essayez d'ajouter des fonctionnalités supplémentaires à votre Expander puis personnalisez-le !

Liens

Remerciements

Je tiens ici à remercier Peter Bull de m'avoir autorisé à traduire son tutoriel.
Je remercie tomlev pour sa relecture technique et ses propositions.
Je remercie également f-leb pour sa relecture orthographique et ses propositions.