inserer de nouveaux items dans une listbox

Version imprimable

15/03/2007, 20h06
Juho06

inserer de nouveaux items dans une listbox

Hello!

J'ai un problème assez particulier, je sais qu'on peut inserer plusieurs items en faisant

listbox.items.add("item1")
listbox.items.add("item2")
listbox.items.add("item3")
listbox.items.add("item4")

etc,

Mais j'aurai besoin de pouvoir inserer tous ces items en une seule ligne...

Comment serait il possible...?

Genre : listbox.items.add("item1", "item2", "etc...")

mais ca marche pas, il doit exister un truc du même genre qui fait ca, non?

Merci de m'aider je trouve rien à ce sujet ;)
15/03/2007, 20h07
Zyth

Il devrait y avoir une méthode .AddRange où que tu pourrais écrire tous tes items entre guillemets séparés par des virgules.
15/03/2007, 20h39
Juho06

Ouah, merci à toi! :)

Tu peux pas savoir comment elle va me servir cette source!

En cherchant un peu sur la proprieté addrange que tu m'as dite j'ai donc trouvé la synthaxe exacte, je la met ici, si ca pourra venir en aide à quelqu'un dans le futur :

Code:

ListBox1.Items.AddRange(New String() {"France", "Germany", "Italy", "UK", "USA"})"

Encore merci! ;)
15/03/2007, 21h22
Juho06

Euh, en fait j'ai encore un problème...

Code:

ListBox1.Items.AddRange(New String() {"item1", "item2", " "})

Fonctionne parfaitement et me crée bien mes 3 items (le dernier est un simple espace)

Mais si j'ai une variable "list" sous la forme string qui contient ce texte :

"item1", "item2", " "

et que je fais

Code:

ListBox1.Items.AddRange(New String() {liste})

ou

Code:

ListBox1.Items.AddRange(New String() {"" & liste & ""})

ou encore

Code:

ListBox1.Items.AddRange(New String() { & liste & })

ca ne marche pas et me crée une listbox avec un seul item qui a pour texte "item1", "item2", " " ... d'ou vient le problème?

Ca doit etre un tout petit soucis de guillemet de pas grand chose, je suis sur......

:?

Code:

1
2
3
4
Dim liste As New List(Of String)
liste.Add("toto")
liste.Add("titi")
ListBox1.Items.AddRange(liste.ToArray())

C'est ça que tu veux faire ?

15/03/2007, 22h06
Juho06
Citation:
Envoyé par Cardi

Code:

1 2 3 4 Dim liste As New List(Of String) liste.Add("toto") liste.Add("titi") ListBox1.Items.AddRange(liste.ToArray())

C'est ça que tu veux faire ?
En gros, grace à une page php reliée à une base de données SQL, je recupere un texte sous la forme

"nom_dun_item", "nom_dun_item2", (et ainsi de suite jusqu'à ce qu'il n'y ai plus d'items renvoyés par SQL)

la page en question est ici :

http://www.gestibulles.kalikoba.com/base/series_sel.php

Elle ne contient que 3 items car la base est toute jeune et n'est pas encore remplie.

Maintenant dans VBNET, grace à
Code:

1 2 3 4 Dim Webser As New Net.WebClient Dim Strser As New IO.StreamReader(Webser.OpenRead("http://www.gestibulles.kalikoba.com/base/series_sel.php")) Dim series_selec As String = Strser.ReadToEnd
Je recupère le texte généré par la page php sous forme de string.

J'ai fait un test par une msgbox ( msgbox (series_selec) ) pour vérifier si la valeur retournée est correcte, et elle l'est.

Maintenant que j'ai donc series_selec qui contient un string sous la forme "item1", "item2", " " par exemple. Je souhaite tout simplement m'en servir pour definir les items d'une listbox.

donc je fais

ListBox1.Items.AddRange(New String() {series_selec})

en voulant que VB interprete la chaine "item1", "item2", " " recuperrée de la page php pour ajouter des items dans la listbox, exactement comme si j'aurai fait

ListBox1.Items.AddRange(New String() {"item1", "item2", " "})

sauf que je veut passer par une variable. (la variable series_selec)

Le deuxième code fonctionne mais pas le premier, alors que le contenu de la variable series_selec est exactement le même que celui qu'il y a entre les deux { } au deuxième code...

Je sais pas si j'explique super bien mon problème, je dois etre assez embrouillé, mais je suis sur que c'est un soucis de guillemets...

Je sais qu'on peut se connecter directement à SQL via Vb ce qui serait plus simple, mais ca m'est impssible, donc je passe par le php.

Voila, merci d'avoir lu ca jusqu'au bout parce qu'à mon avis, mon problème est pas évident à comprendre, surtout comment je l'explique...:?
16/03/2007, 00h05
Juho06

Personne n'a d'idée? :(

N'hesitez pas à me le dire si c'est trop embrouillé, je me suis très mal exprimé, mai j'ai du mal à expliquer...

On dirait que VB ne considère pas les caractères spéciaux dans la chaine... Ils les prend comme des caractères normaux...

Et si je double les guillemets, ca ne change rien...

Peut-être ?

Ceci répond peut-être à ton problème ?
Bien sur, il y a plus qu'une ligne de VB !!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim t() As String
        Dim i As Integer
        Dim z As String = """Rocquepine"",""Upsalin"",""Toscan"",""Idéal du Gazeau"",""Avec, virgule"",""Avec """" double quote"""
        Dim zz As String = Nothing
        z = z.Replace("""""", "|")     'Cas ou il y a des éléments contenant ""
        t = z.Split(""""c)
        ListBox3.Items.Clear()
        For i = 0 To t.Length - 1
            If t(i).Length > 0 Then
                t(i) = t(i).Trim(" ")
                If t(i) <> "," Then    'Elimine le séparateur
                    t(i) = t(i).Replace("|", """")
                    ListBox3.Items.Add(t(i))
                End If
            End If
        Next
    End Sub
End Class