Discussion :

[patrickvier]

Bonsoir à tous,
j'ai un soucis. Je ne vois pas comment puis-je charger les données du xml vers le datarepeater.
Ci dessous mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dsxml As New DataSet()
        dsxml.ReadXml("test_data.xml")
        ' Bind DataSet to DataGridview
        DataGridView1.DataMember = "entry"
        DataGridView1.DataSource = dsxml
 
        Dim bs As New BindingSource
        datarepeater1.DataSource = bs
        bs.DataSource = dsxml
 
        datarepeater1.DataMember = "entry"
 
        MsgBox("apres fin...")
        'dtr.DataSource = dsxml
    End Sub
 
    Private Sub DataRepeater1_DrawItem(ByVal sender As Object, _
                                       ByVal e As Microsoft.VisualBasic.PowerPacks.DataRepeaterItemEventArgs) _
                                   Handles datarepeater1.DrawItem
 
        MsgBox("dans event...")
        e.DataRepeaterItem.Controls("textbox1").Text = "???"
        e.DataRepeaterItem.Controls("textbox2").Text = "toto 222"
        e.DataRepeaterItem.Controls("textbox3").Text = "toto 333"
    End Sub

et le fichier xml de test :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<?xml version="1.0" encoding="utf-8"?>
<root>
  <tweets>
    <entry id="11">
      <author>@patrick</author>
      <text>text du tweet de @patrick</text>
    </entry>
    <entry id="12">
      <author>@moi</author>
      <text>text du tweet de @moi</text>
    </entry>
    <entry id="13">
      <author>@le13</author>
      <text>text du tweet de @le13</text>
    </entry>
    <entry id="14">
      <author>@le14</author>
      <text>text du tweet de @le14</text>
    </entry>
  </tweets>
</root>

je en sais pas comment charger les données dans le repeater un peu à la façon d'un For each...Next ou encore avec une commande LINQ qui serait d'ailleurs le mieux.
Merci de vos lumières
Patrick

[patrickvier]

Bonjour à tous,
je pense avoir une solution... c pas encore mais au moins, j'affiche des choses dans mon datarepeater1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Imports System
Imports System.Data
Imports Microsoft.VisualBasic.PowerPacks

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim dsxml As New DataSet()
        dsxml.ReadXml("test_data.xml")
        ' Bind DataSet to DataGridview
        DataGridView1.DataMember = "entry"
        DataGridView1.DataSource = dsxml
 
        Dim bs As New BindingSource
        DataRepeater1.DataSource = bs
        bs.DataSource = dsxml
 
        DataRepeater1.DataSource = dsxml
 
        id.DataBindings.Add("Text", "", "id")
        author.DataBindings.Add("Text", "", "author")
        message.DataBindings.Add("Text", "", "message")
 
        DataRepeater1.DataMember = "entry"

et le fichier xml :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<?xml version="1.0" encoding="utf-8"?>
<root>
  <tweets>
    <entry id="111">
      <author>@patrick</author>
      <message>text du tweet de @patrick</message>
    </entry>
    <entry id="2222">
      <author>@moi</author>
      <message>text du tweet de @moi</message>
    </entry>
    <entry id="333">
      <author>@le13</author>
      <message>text du tweet de @le13</message>
    </entry>
    <entry id="144">
      <author>@le14</author>
      <message>text du tweet de @le14</message>
    </entry>
  </tweets>
</root>

voila avec ce code c'est le départ vers qlq chose de plus intéressant.
Si d'autres on des idées, ne soyez pas timide
Merci
Patrick
PS : pour tester cet exemple créer un Form avec 1 datagridview et un datarepeater (avec 3 textbox), coller le code dans un bouton...

[Sankasssss]

Tu n'as plus besoin de ton DataRepeater avec ton deuxième code, cela suffit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
            Dim chem As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\testxml.xml"
            Dim ds As New DataSet
            ds.ReadXml(chem)
            DataGridView1.DataSource = ds.Tables("entry")

Simple et efficace...


Si tu veux faire du Linq, il y a Linq To XML qui pourrait t’intéresser.

[patrickvier]

Bonjour Sankasssss

En effet c'est assez simple, et LINQ nous simplifie aussi la vie.
Mais je souhaite utiliser le DataRepeater pour des questions d'affichage des données. Il semble que le dataRepeater soit plus flexible que DataGridView puisque je souhaite agencer le design du contenu (image, auteur, message...) dans une "boite" plutôt que sur une ligne et des colonnes.
Ceci dit, si tu as une autre solution plus simple, je suis preneur.
Merci encore.

Patrick

[Sankasssss]

Je ne connaissais pas ce composant qui fait partie du PowerPack mais il a l'air intéressant. [EDIT] Je ne serais donc pas t'aider à son sujet. Voir Edit plus bas.[/EDIT]

J'arrive au même résultat en faisant des UserControl que je stocke dans une liste.
Ici deux exemples que j'ai réalisé en WPF :



J'avais commencé en WindowsForm mais j'avais constaté des ralentissements lors du scrolling, j'avais donc décidé de passer en WPF. Peut-être que le datarepeater règle le problème de ralentissement que j'avais.

EDIT :

J'ai rapidement testé et ce code fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dsxml As New DataSet()
        dsxml.ReadXml(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\testXML.xml")
        ' Bind DataSet to DataGridview
        DataGridView1.DataMember = "entry"
        DataGridView1.DataSource = dsxml
 
        Dim bs As New BindingSource
        DataRepeater1.DataSource = bs
        bs.DataSource = dsxml
 
        TextBox1.DataBindings.Add("Text", "", "author")
        TextBox2.DataBindings.Add("Text", "", "text")
        TextBox3.DataBindings.Add("Text", "", "id")
 
        DataRepeater1.DataMember = "entry"
 
        Debug.WriteLine("apres fin...")
        'dtr.DataSource = dsxml
    End Sub