[VB.net] listbox elements selectionnes ?

Version imprimable

13/04/2007, 16h52
Slumpy

[VB.net] listbox elements selectionnes ?

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 ... :?
14/04/2007, 12h29
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:

Citation:

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à?
16/04/2007, 10h21
Slumpy

Coucou,

desole de pas avoir repondu plus tot, gt en weekend :king:

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:

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

Bonjour,

Tu peux faire un truc du style
Code:

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é

17/04/2007, 10h52
Slumpy

Salut,

merci pour ton aide. Apparemment il n aime pas

Code:

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

Bonjour,

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

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

17/04/2007, 11h13
Slumpy

Salut Lunelame,

une foi de plus tu viens a mon secours lol merci :yaisse2:

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 :(
17/04/2007, 11h38
Lunelame

Tu peux me faire voir ton code ? STP

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

Code:

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

Tu es en option strict ?

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

Code:

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

@ +

18/04/2007, 14h37
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'."

:bug:

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

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