Discussion :

[Boisjanvers]

Bonjour,
Je prépare une page .aspx qui comportera trois "label" où s’inscriront successivement les trois parties d’un texte (exciter la curiosité du lecteur et l’amener à envisager lui même la suite). je souhaite que le passage d’un label au suivant se fasse au rythme de ce lecteur qui aura à cliquer sur un bouton pour faire apparaître la suite du texte.
Je ne sais pas résoudre le problème de boucle : dans la page.aspx.vb j’ai tapé les lignes ci-dessous :

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
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Private Property ValueType As Object
    Dim value As Integer = 0
    Sub button1_Click(sender As Object, e As EventArgs)
        For i = 1 To 3
 
        Next
        value = value + 1
 
        If value = 1 Then Label1.Text = "Premier label!!"
 
        If value = 2 Then Label2.Text = "Deuxième label."
 
        If value = 3 Then Label3.Text = "Troisième label."
 
 
    End Sub
End Class

Mais alors si le 1° label est convenablement rempli, les deux suivants restent vides malgré des clics sur le bouton.
Si je déplace le mot « Next » les labels 1 et 3 se remplissent d’eux-mêmes dès le premier clic, le deuxième reste ignoré.
Je saurai gré de tout conseil.
Cordialement

[kevin254kl]

Bonjour, la boucle for sert à quoi car vous n'utilisez pas la variable i? pouvez- vous lors des cliques afficher la valeur de votre variable value?

[linke]

ton next n'est pas a la bonne place.
pour ton problème, je te conseil du html et du javascript.

[Boisjanvers]

Bonjour Kevin254kl et bonjour Linke,
je vous remercie de vos réponses. Je vais reprendre mon projet à la lumière de vos suggestions ; naturellement je vous rendrai compte de l'avancement de mes travaux.
Cordialement

[Boisjanvers]

Bonjour,
je pense avoir trouvé une rédaction convenable, je vous la soumets ci-après :
code :

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
 
 
Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Label1.Text = Label1.Text + 1
 
        If Label1.Text = 1 Then Label2.Text = "Premier label!!"
 
        If Label1.Text = 2 Then Label3.Text = "Deuxième label!!"
 
        If Label1.Text = 3 Then Label4.Text = "Troisième label!!"
 
        If Label1.Text = 4 Then Label1.Text = "0"
 
    End Sub

Je vous renouvelle mes remerciements.
Cordialement

[Dokho1000]

Bonjour,
je pense avoir trouvé une rédaction convenable, je vous la soumets ci-après :
code :

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
 
 
Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Label1.Text = Label1.Text + 1
 
        If Label1.Text = 1 Then Label2.Text = "Premier label!!"
 
        If Label1.Text = 2 Then Label3.Text = "Deuxième label!!"
 
        If Label1.Text = 3 Then Label4.Text = "Troisième label!!"
 
        If Label1.Text = 4 Then Label1.Text = "0"
 
    End Sub

Je vous renouvelle mes remerciements.
Cordialement

Ça ne fonctionnera pas car a chaque passage ton label aura un 1 de plus (donc 1 puis 11 ensuite 111 etc).
Tu n'atteindras donc jamais le 2...

Je changerais déjà ton label 1 en champ caché et je convertirais la valeur de ce champ en entier. De cette facon tu auras quelque chose qui pourrait fonctionné mais qui sera vraiment pas performant.