Traduction

Introduction

Créez avec ce tutoriel une application « Liste des tâches » pour des todo list basées sur des Listbox avec le support des fonctions Ouvrir / Enregistrer et Ajouter / Retirer des éléments en utilisant LINQ to XML.

Application « Liste des tâches » basée sur XML avec les fonctions « Nouveau », « Ouvrir », « Enregistrer », « Ajouter » et « Retirer » des éléments en utilisant Linq-to-XML et Silverlight

Étape 1

Démarrez Microsoft Visual Web Developer 2010 Express, puis 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 Projet ensuite Ajouter une référence... La fenêtre « Ajouter une référence » devrait apparaître, sélectionnez System.Xml.Linq dans la liste .NET :

Image non disponible

Étape 5

Ajouter la référence à System.Xml.Linq en cliquant sur OK.

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

Image non disponible

Étape 6

Dessinez un Canvas sur la page, ensuite dans le volet XAML au-dessus de </Grid> modifiez la ligne Canvas1 comme ceci :

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

Voir ci-dessous :

Image non disponible

Étape 7

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

Image non disponible

Étape 8

Dessinez cinq boutons sur la « barre d'outils » du Canvas en glissant les contrôles Button de la Boîte à outils sur la page, ou dans le volet XAML, entre les balises <Canvas> et </Canvas> tapez le code suivant :

 
Sélectionnez
<Button Canvas.Left="6" Canvas.Top="6" Height="23" Width="75" Name="Button1" Content="Button"/> 
<Button Canvas.Left="87" Canvas.Top="6" Height="23" Width="75" Name="Button2" Content="Button"/> 
<Button Canvas.Left="168" Canvas.Top="6" Height="23" Width="75" Name="Button3" Content="Button"/> 
<Button Canvas.Left="249" Canvas.Top="6" Height="23" Width="75" Name="Button4" Content="Button"/> 
<Button Canvas.Left="249" Canvas.Top="35" Height="23" Width="75" Name="Button5" Content="Button"/> 

Voir ci-dessous :

Image non disponible

Étape 9

Cliquez sur le premier Button (Button1), ensuite allez dans la boîte Propriétés et changez le Name à New et la propriété Content de Button à New :

Image non disponible

Étape 10

Cliquez sur le deuxième Button (Button 2), puis allez dans la boîte Propriétés et changez le Name à Open et la propriété Content de Button à Open... Ensuite cliquez sur le troisième Button (Button 3) et allez dans la boîte Propriétés et changez le Name à Save et la propriété Content de Button à Save... Cliquez sur le quatrième Button (Button 4) et allez dans la boîte Propriétés et changez le Name à Remove et la propriété Content de Button à Remove. Finalement, cliquez sur le cinquième Button (Button 5) et dans la boîte Propriétés changez le Name à Add et la propriété Content de Button à Add. La page devrait alors apparaître comme ci-dessous :

Image non disponible

Étape 11

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

Image non disponible

Étape 12

Dessinez un TextBox sur la « barre d'outils » du Canvas contenant les boutons et, dans le volet XAML en dessous de la balise <Button> et au-dessus de </Canvas>, modifiez TextBox1 comme ceci :

 
Sélectionnez
<TextBox Canvas.Left="6" Canvas.Top="36" Height="23" Width="237" Name="Subject"/> 

Voir ci-dessous :

Image non disponible

Étape 13

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

Image non disponible

Étape 14

Dessinez un ListBox sur la page, en dessous du Canvas contenant les boutons, et dans le volet XAML au-dessus de </Grid> et en dessous de </Canvas>, modifiez ListBox1 comme ceci :

 
Sélectionnez
<ListBox Height="235" Width="400" Margin="0,65,0,0" HorizontalAlignment="Left" VerticalAlignment="Top" Name="Tasks"/>

Voir ci-dessous :

Image non disponible

Étape 15

Faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Afficher le code. Dans la vue de code, au-dessus de la ligne Partial Public Class MainPage tapez le code suivant :

 
Sélectionnez
Imports System.Xml.Linq
Image non disponible

Étape 16

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le contrôle Button « New » et tapez ceci dans le Sub New_Click :

 
Sélectionnez
If MessageBox.Show("Start a New Task List?", "Task List", _
  MessageBoxButton.OKCancel) = MessageBoxResult.OK Then
  Subject.Text = ""
  Tasks.Items.Clear()
End If
Image non disponible

Étape 17

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le contrôle Button « Open... » et tapez ceci dans le Sub Open_Click :

 
Sélectionnez
Dim OpenDialog As New OpenFileDialog
Dim _xml As XElement
OpenDialog.Filter = "Task List Files (*.tsk)|*.tsk"
If OpenDialog.ShowDialog Then
  Try
    If OpenDialog.File.Exists Then
      _xml = XElement.Parse(OpenDialog.File.OpenText.ReadToEnd)
      If _xml.Name.LocalName = "tasklist" Then ' Root
        Tasks.Items.Clear()
        For Each _Task As XElement In _xml.Descendants("task")
          Dim _item As New CheckBox
          _item.IsChecked = _Task.FirstAttribute.Value.ToLower = "checked"
          _item.Content = _Task.Value
          Tasks.Items.Add(_item)
      Next
    End If
  End If
  Catch ex As Exception
    ' Ignore Errors
  End Try
End If
Image non disponible

Étape 18

Retournez encore une fois au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le contrôle Button « Save... » et tapez ceci dans le Sub Save_Click :

 
Sélectionnez
Dim SaveDialog As New SaveFileDialog
Dim _doc As XDocument
SaveDialog.Filter = "Task List Files (*.tsk)|*.tsk"
If SaveDialog.ShowDialog Then
  Try
    Dim _items As New XElement("tasklist")
    For Each _Task As CheckBox In Tasks.Items
      _items.Add(New XElement("task", _Task.Content, _
      New XAttribute("value", IIf(_Task.IsChecked, _
      "checked", "unchecked"))))
    Next
    _doc = New XDocument(New XDeclaration("1.0", "utf-8", "yes"), _items)
  Using FileStream As IO.StreamWriter = New IO.StreamWriter(SaveDialog.OpenFile)
    _doc.Save(FileStream)
  End Using
  Catch ex As Exception
    ' Ignore Errors
  End Try
End If
Image non disponible

Étape 19

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le contrôle Button « Remove » et tapez ceci dans le Sub Remove_Click :

 
Sélectionnez
If Tasks.SelectedIndex > -1 Then ' Item Selected
  Tasks.Items.RemoveAt(Tasks.SelectedIndex) ' Remove Selected
End If
Image non disponible

Étape 20

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le contrôle Button « Add » et tapez ceci dans le Sub Add_Click :

 
Sélectionnez
If Subject.Text <> "" Then ' Has Subject
  Dim _item As New CheckBox
  _item.Content = Subject.Text
  If Tasks.SelectedIndex > -1 Then ' Item Selected
    Tasks.Items.Insert(Tasks.SelectedIndex, _item) ' Insert before Selected
  Else
    Tasks.Items.Add(_item) ' Add to List End
  End If
End If
Image non disponible

Étape 21

Enregistrez le projet maintenant que vous avez terminé l'application Silverlight. Sélectionnez Debug ensuite 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 Web :

Image non disponible

Étape 22

Maintenant tapez dans le TextBox le sujet d'une tâche, ensuite cliquez sur le bouton Add pour ajouter quelques tâches à la liste. Vous pouvez ensuite enregistrer (Save) cette liste pour l'ouvrir (Open) plus tard :

Image non disponible

Étape 23

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

Conclusion

Ceci est une application « Liste des taches » simple avec la possibilité d'ouvrir et d'enregistrer des fichiers de listes de taches sous XML, y compris les éléments cochés et leur ordre d'apparition. Essayez d'ajouter des nouvelles fonctionnalités comme la possibilité de déplacer les éléments vers le haut puis vers le bas de la liste et la possibilité d'éditer des tâches déjà saisies, ou utilisez l'application comme base pour des applications plus complexes basées sur XML !

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 jacques_jean pour sa relecture orthographique et ses propositions.