Microsoft Silverlight 4 - Tutoriel 5 : Liste des tâches

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 :

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 :

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

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 :

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 :

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

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

Voir ci-dessous :

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

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 :

<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 :

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 :

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 :

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

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 :

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

Voir ci-dessous :

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

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 :

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

Voir ci-dessous :

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 :

Imports System.Xml.Linq

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 :

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

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 :

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

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 :

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

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 :

If Tasks.SelectedIndex > -1 Then ' Item Selected
  Tasks.Items.RemoveAt(Tasks.SelectedIndex) ' Remove Selected
End If

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 :

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

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 :

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

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 :

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