Discussion :

[Miska59]

Bonsoir,

j'aimerai convertir une classe ChainesData en string. le but par rapport une list nom de de chaine dans combobox1, je voudrais afficher l'image et nom dans listview1.
voir image dans le forum : https://www.developpez.net/forums/d2...mage-listbox1/

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
imgList.Images.Add(ChargerImage((From c As ChainesData In Chaines Where c.LogoURL = ComboBox1.Text Select c).Distinct.ToArray)) <= erreur
        Dim lvi As New ListViewItem("", imgList.Images.Count - 1)
        lvi.ImageIndex = imgList.Images.Count - 1
        lvi.SubItems.Add((From c As ChainesData In Chaines Where  c.GroupTitle = ComboBox1.Text Select c).Distinct.ToArray) <= erreur
        ListView1.Items.Add(lvi)
 
Private Function ChargerImage(ByVal Liens As String) As Image
        Dim client As New WebClient()
        Using str As Stream = client.OpenRead(Liens)
            Return Image.FromStream(str)
        End Using
    End Function

message erreur : Erreur Impossible de convertir une valeur de type 'Tableau à 1 dimension(s) de Player2_M3U.ChainesData' en 'String'.

je suis coincé pour convertir c.GroupTitle = ComboBox1.Text et c.LogoURL = ComboBox1.Text en string. avez-vous une autre solution pour pour convertir en string? merci d'avance

[StringBuilder]

Bonjour,

Tu fais un ToArray, donc forcément en sortie t'as pas une string, puisque tu as un array de ChainesData.

Soit tu écrit un convertisseur pour transformer un array de chainesdata en string, soit tu récupères que la première ligne du array que tu convertis en string (en supposant que tu as déjà un convertisseur de ChainesData en string)

[m4k-Hurrican]

Bonjour,

Le plus simple est à mon avis d'utiliser un truc du genre :

Code :

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

Dim ChaineEnSortie As String = String.Join("CaractereDeSeparation", array)

Où CaractereDeSeparation est le caractère que tu veux mettre entre les différents éléments, une virgule, un point, rien, ce que tu veux...

[Miska59]

Bonjour,

le code fonctionne avec string.join. je vous remercie pour cette avancement. avez-vous plus simple le maitre chaque nom sur une ligne a la fois? merci d'avance

Code :

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

1
2
3
4
Private Function ListChaines2(name As String) As String
        Dim ListName As IEnumerable(Of Object) = (From c As ChainesData In Chaines Where c.GroupTitle = name Select c).Distinct.ToArray
        Return String.Join(" ", ListName)
    End Function

voici en image :

[m4k-Hurrican]

Pas certain que çà fonctionne dans ton interface, mais tu peux essayer de mettre un chr(10) comme séparateur au lieu du blanc.

[Miska59]

Bonsoir,

j'ai refaire mon code pour lire par rapport le nom dans combobox1. mais j'arrive toujours pas à lister le nom par rapport au nom dans combobox1.

Code :

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

1
2
3
4
5
6
7
Private Function ListChaines(Name As String) As String
        Dim str As New List(Of String)
        For Each a As ChainesData In Chaines
            str.AddRange(a.GroupTitle.Where(Function(c) c.Equals(Name)).Distinct.ToArray) <= erreur
        Next
        Return str(str.Count - 1)
    End Function

avec addrange, j'ai un message d'erreur : Impossible d'effectuer un cast d'un objet de type 'System.Char[]' en type 'System.Collections.Generic.IEnumerable`1[System.String]'.

avec add ; rien ce passe dans listview1.

avez-vous une autre solution pour corriger cette erreur? merci d'avance