Bonjour,

j'arrive pas faire listé ma list de mot en cliquant sur 2 bouton pour défiler un par un.
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
Dim CharLetters As String() = {"autres", "un", "Bar", "coin", "dormir"}....etc
Label1.Text = GetMot(CharLetters, " -1") <= decrement du mot un par un
        If Label1.Text = "autres" Then
            Button1.Enabled = False
        Else
            Button1.Enabled = True
        End If
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Label1.Text = GetMot(CharLetters, " 1") <= increment du mot un par un
        If Label1.Text = "dormir" Then
            Button2.Enabled = False
        Else
            Button2.Enabled = True
        End If
    End Sub
 
    Private Function GetMot(CharLetters As String(), counter As String) As String
        Dim arr As String() = New String(CharLetters.Length - 1) {}
        Dim j As Integer = 0
        For i = 0 To CharLetters.Length - 1
            arr(i) = CharLetters(j)
            j += counter
        Next
        Return arr(counter)
    End Function
pouvez-vous m'aider faire défiler un par un ma list de mot avec deux boutons? merci d'avance