Discussion :

[Slumpy]

Bonjour,

ma question est plus que basique desole. Mais curieusement je viens d y passer un petit moment dessus et du coup suis un peu ... confu now.

J ai une Listbox, dans laquelle j ai authorise le choix multiple.

je lance l appli, l utilisateur peut effectivement selectionner plusieurs elements, mais je m interroge sur le fait que la list selectionnee est automatiquement mise a jour ou faut il ecrire un bout de code.

Et si elle est automatiquement mise a jour comment avoir acces aux Strings selectionnes dans ma liste ?

Merci, et encore sorry pour cette question a deux balles ...

[Poulain]

Non, c'est normal qu'il y ait des questions basique, il faut bien commencer un jour !

Sinon, pour répondre à ta question, je ne comprend pas la partie où tu parles d'automatisation:

mais je m interroge sur le fait que la list selectionnee est automatiquement mise a jour ou faut il ecrire un bout de code.

que veux-tu dire par là?

[Slumpy]

Coucou,

desole de pas avoir repondu plus tot, gt en weekend

Je vais essayer d eclaircir ce que je voudrais faire :

A l heure actuelle l utilisateur peut selectionner seulement un element de ma listbox. Lorsque je veux enregistrer sa valeur je fais :

Code :

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

VScenario =lstScenario.SelectedItem.ToString

VScenario prend donc la valeur de l element selectionne par l utilisateur.

Mais je voudrais permettre a l utilisateur de selectionner plusieurs elements et affecter c elements a une variable. L algo que j essaye de faire est donc en gros :

Pour chaque element selectionne faire :
...
VScenario prend la valeur d un des elements selectionnes
Console.WriteLine(VScenario)
...
fin de ma boucle

C est tout con, mais honnettement j y arrive pas ...

Merci

[pinson]

Bonjour,

Tu peux faire un truc du style

Code :

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

1
2
3
4
5
6
7
8
 
i = 0
Do while i < MaListBox.Items.count
   if MaListBox.items(i).selected then
      'Ton traitement
   end if
   i = i + 1
loop

Désolé mais le code n'est pas testé

[Slumpy]

Salut,

merci pour ton aide. Apparemment il n aime pas

Code :

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

if MaListBox.items(i).selected then

il me sort ca comme message : Public member 'selected' on type 'String' not found

je capte tjs po comment fonctionne c Listbox avec un multichoix

[Lunelame]

Bonjour,

Tu peut essayer (si tu ne modifie pas ta sélection pendant la boucle)

Code :

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

1
2
3
4
5
 
    Dim item As ListViewItem
    For Each item In MaListBox.SelectedItems
            'Ton traitement
    Next

@ +

[Slumpy]

Salut Lunelame,

une foi de plus tu viens a mon secours lol merci

par contre, je viens d essayer ton bout de code et j ai aussi une erreur :

Unable to cast object of type 'System.String' to type 'System.Windows.Forms.ListViewItem'.

bref, je capte po

[Lunelame]

Tu peux me faire voir ton code ? STP

[Slumpy]

heu ... qu est ce que tu voudrais voir exactement ?

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
Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click
        Dim myfile As New RainsimFile(VRegion, VScenario, VLength, VDisaggregation, VPath)
        Console.Write(VRegion & "  " & VScenario & "  " & VLength & "  " & VDisaggregation & "  " & lblFolderpath.Text)
        Console.WriteLine()
 
 
        'Dim icount As Integer = 0
        'Do While icount < lstScenario.Items.Count
        '    If lstScenario.Selected.is.Item(icount) Then
        '        Console.WriteLine(VRegion & "  " & VScenario & "  " & VLength & "  " & VDisaggregation & "  " & lblFolderpath.Text)
        '    End If
        '    icount = icount + 1
        'Loop
 
        Dim item As ListViewItem
        For Each item In lstScenario.SelectedItems
         Console.WriteLine(VRegion & "  " & VScenario & "  " & VLength & "  " & VDisaggregation & "  " & lblFolderpath.Text)
        Next
 
        myfile.constructavg(VAverage)
 
    End Sub

[Lunelame]

Tu es en option strict ?

Visiblement, il n'arrive pas à effectuer une convertion.
Debug, pas à pas.
Ou essai, à tout hasard

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
 
Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click
 
Try
       Dim myfile As New RainsimFile(VRegion, VScenario, VLength, VDisaggregation, VPath)
        Console.Write(VRegion & "  " & VScenario & "  " & VLength & "  " & VDisaggregation & "  " & lblFolderpath.Text)
        Console.WriteLine()
 
        Dim item As SelectedItem
        For Each item In lstScenario.SelectedItems
         Console.WriteLine(VRegion & "  " & VScenario & "  " & VLength & "  " & VDisaggregation & "  " & lblFolderpath.Text)
        Next
 
        myfile.constructavg(VAverage)
Catch ex as Exception
     Debug.writeLine ex.toString
End Try 
 
End Sub

@ +

[Slumpy]

Yo yo yo,

c encore moi avec mon probleme.

Oui Lunelame je suis en option strict. (J avoue que je ne c pas trop pourquoi, je me dis juste qu il est plus "serieux, precis" de travailler comme ca.)

L element lstScenario.SelectedItems a bien la propriete egale au nombre de string selectionne dans ma listbox, par contre, item est egal a nothing.
J ai l exception : "Unable to cast object of type 'System.String' to type 'System.Windows.Forms.ListViewItem'."




Bon, voila un code qui fonctionne. Il me renvoit bien les elements de ma listbox youppii.

Code :

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

1
2
3
4
5
 
            For icount = 0 To lstScenario.SelectedItems.Count - 1
                 Console.WriteLine(lstScenario.SelectedItems(icount))
            Next
        Next

Merci a tout ceux qui sont venu voir ce post ^^ et specialement Lunelame qui vient tjs a mon secours