Discussion :

[Miska59]

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

[Thumb down]

Bonjour,
pour info un if test si une condition est vraie ou fausse True/False il n'est pas utile de la tester pour en affecter un Boolean de la même valeur ou de son contraire Not True!

Code :

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

1
2
 
Button1.Enabled = Label1.Text <> "autres"

pour le reste je ne comprends pas ce qu'est sensé faire la fonction GetMot!

[Miska59]

Bonjour, merci d'avoir répondu

pour le reste je ne comprends pas ce qu'est sensé faire la fonction GetMot!

le but c'est faire défiler la list de mot un par un dans CharLetters en cliquant sur les boutons.

exemple suivant en affichant sur label1 : autres aprés un aprés bar ....etc

exemple arrière en affichant sur label1 : bar aprés un aprés autres. <=fin

es ce que vous avez compris?

[Thumb down]

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
Dim CharLetters As String() = {"autres", "un", "Bar", "coin", "dormir"} '....etc
    Dim Itm As Integer=0
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)  Handles Button1.Click
       Label1.Text = GetMot(CharLetters, Itm, -1)   ' <= decrement du mot un par un
      End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) ' Handles Button2.Click
        Label1.Text = GetMot(CharLetters, Itm, 1)    
    End Sub
 
    Private Function GetMot(CharLetters As String(), ByRef Itm As Integer, IncreM As Integer) As String
        Itm+=IncreM
        Button1.Enabled = CharLetters(Itm) <> "autres"
        Button2.Enabled = CharLetters(Itm) <> "dormir"
        Return CharLetters(Itm)
    End Function

[Miska59]

merci pour ton aide Thumb down ça fonctionne très bien. merci encore pour ton soutien

[popo]

Sérieusement !

Code :

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

1
2
Button1.Enabled = CharLetters(Itm) <> "autres"
Button2.Enabled = CharLetters(Itm) <> "dormir"

Tester des valeurs en dur, ce n'est pas très malin.

Code :

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

1
2
Button1.Enabled = CharLetters(Itm) <> CharLetters.First()
Button2.Enabled = CharLetters(Itm) <> CharLetters.Last()

[Thumb down]

Bonjour,
Effectivement popo , j'ai simplifié le code originel mais j'ai pas pensé à ça !