Structure de donnés + ListView detail

**Nir3x** · 19/07/2013, 01h00

Bonsoir à tous,

Je voudrais savoir si quelqu'un aurait une solution à mon problème.

J'ai ceci :

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
27
28
29
30
31
32
Private Structure Joueur
        Dim pNumero As Integer, pNom As String, pPoint As Integer
End Structure
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        Dim nbTextBox As Integer = CType(Me.TextBox1.Text, Integer)
        Dim player As Joueur
        TextBox1.Enabled = False
        Button1.Enabled = False
        For i As Integer = 1 To nbTextBox
            Dim resultat As String
 
            resultat = InputBox("Quel est le nom du joueur ?", "Nom du joueur") 'La variable reçoit la valeur entrée dans l'InputBox
 
            If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
                ListBox1.Enabled = True
                ListBox1.Items.Add(resultat)
 
                player.pNumero = i
                player.pNom = resultat
                player.pPoint = 0
 
                Dim itm As ListViewItem
                itm = New ListViewItem(player)
 
                ListView1.Items.Add(itm)
 
            End If
        Next
        Button2.Enabled = True
End Sub