Changer texte sur un label en appuyant sur un boutonRésolu

Question

Bonjour j'aimerais créer un logiciel avec un bouton ou quand on clique le label1 se transforme en une phrase (que j'ai choisis) on attend 5secondes le label2 se modifie, on attend 5secondes le label3 se modifie etc...

Mais sans progressBar est-ce possible ?

Utilisateur anonyme · Accepted Answer

Le plus simple est de créer une structure comprenant un label (Label), un texte (String), et un temps d'intervalle timer (Integer).
Ensuite il faut déclarer une List(Of pour accueillir les instances de ces structures.
Lors du chargement de ton application, tu ajoutes à ta List(Of tes instances de ta structure en prenant soin de lui fournir les paramètres voulus (label concerné, intervalle du timer, texte à afficher).

Dans ton événement timer :
  - on peut facilement récupérer le premier élément de ta liste de structures
  - déterminer quel label il contient
  - faire les modifications du texte du label
  - changer le temps du timer pour le prochain élément.
  - supprimer le premier élément de la liste des structures.
Et en prenant soin que la liste de structures ne soit pas vide (avec un If).

Voilà.

Zookex · Answer

Désoler du double post mais voici un code, pour éclaircir un peu : 


Code button1

Label1.text = ("MonMessage")

Pause de quelques secondes...

Label2.text = ("MonMessage")

Label3.text = ("MonMessage")

Pause de quelques secondes...

Label4.text = ("MonMessage")

cs_dayvid · Answer

Bonjour,

Hum... bon déjà commence par créer t'es Labels, ensuite, ajoute un timer
Ensuite, je te laisse un peut chercher...

Ta fenêtre doit contenir donc 4 Label et un timer
Ensuite c'est pas compliquer, tu prend le non de ton timer, tu met un point après et tu regarde
les différentes propositions...

Quand le timer arrive à expiration, tu change ton texte de ton label de la même façon
tu met le nom de ton label, un point et tu cherche la propriété adéquate pour changer le texte de celui-ci.

Tu pense pouvoir y arriver là ?!
Aller, essaie !

cs_dayvid · Answer

Sinon, tu peut aussi et c'est très conseillé, rechercher sur le forum !
Regarde par exemple à Timer et Label !

Zookex · Answer

Code button1 

Label1.text = ("MonMessage") 

Timer1.Start()
Timer1.Interval = 100

Label2.text = ("MonMessage") 

Timer1.Start()
Timer1.Interval = 100

Label3.text = ("MonMessage") 

Timer1.Start()
Timer1.Interval = 100

Label4.text = ("MonMessage")

J'ai essayer se code mais rien n'y fait en appuyant sur le bouton les 3 labels se change immédiatement et ensemble, sans faire de pause

ucfoutu · Answer

Hum... bon déjà commence par créer t'es Labels, ensuite, ajoute un timer
Ensuite, je te laisse un peut chercher... 
Lu et enregistré dans ma "mémoire" (et elle est excellente.
Tu auras donc TOUJOURS et SYSTEMATIQUEMENT le même "traitement", dayvid, en ce qui concernera tes propres questions. Je m'y emploierai avec le plus grand soin en ce qui me concerne ! 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Zookex · Answer

Voici le code que j'ai créer, mais sa ne marche pas, les labels se changent en même temps, sans faire de pause  : 


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()

        Label1.Text = ("test")
        Timer1.Interval = 200

        Label2.Text = ("test2")
        Timer1.Interval = 200

        Label3.Text = ("test3")
        Timer1.Interval = 200


    End Sub
End Class

Zermelo · Answer

Bonjour Zookex.

Vous pouvez d'abord remarquer que j'ai récupéré votre code pour le mettre en coloration syntaxique (troisième icône à partir de la droite). Cela le rend bien plus lisible.

Dans l'évènement du bouton, vous devez seulement déclencher par Start le démarrage du Timer, qui va alors émettre à intervalles régulier des "impulsions", tant que vous ne l'arrêtez pas par Stop.
Vous pouvez alors récupérer ces "impulsions" dans l'évènement du Timer. Et c'est là, et là seulement, que vous devrez agir sur vos Labels. Comment ? Réfléchissez et testez. Mais sachez que tout ce qui est écrit dans une procédure s'effectue quasi simultanément.

À vos neurones !

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()

Label1.Text = ("test")
Timer1.Interval = 200

Label2.Text = ("test2")
Timer1.Interval = 200

Label3.Text = ("test3")
Timer1.Interval = 200


End Sub
End Class



Étant illettré, je signe d'une croix : ×

Zookex · Answer

Euh... Je suis débutant dans VB... Et même si vous écrivez parfaitement le francais... je n'ai pas compris..

Pouvez vous m'aidez a créer mon code ?

Zermelo · Answer

Je suis tout disposé à vous aider. Petit problème, je ne sais pas à quel point vous êtes débutant en VB. Alors le meilleur conseil que je puis vous donner pour l'instant, c'est de récupérer sur le net le document de Philippe Lasserre, et de l'étudier à fond. Quand vous aurez compris les termes que j'ai employé, il sera temps de s'occuper de votre code.


Cordialement.


Étant illettré, je signe d'une croix : ×

Zookex · Answer

Je suis débutant a quelle point ?

Hum... Vous voyez les vieux ? Sur les ordinateurs, ils arrivent a faire copier coller... 

Je suis un peu de se style sur VB...

Utilisateur anonyme · Answer

Vous voyez les vieux ?Tu vas te faire plein d'amis ici

Zookex · Answer

C'est une menace ?

Utilisateur anonyme · Answer

Non, mais rien que sur ce fil, j'en ai compté 2 déjà

Zermelo · Answer

Elle est bien bonne. J'ai 72 ans. Si c'est trop pour vous, n'ayez pas peur de me le dire. Ah! j'allais oublier. Je sais aussi faire le couper coller. Et vous ?


Vous m'avez fait bien rire. J'aimerais bien voir votre tête en ce moment.


Étant illettré, je signe d'une croix : ×

Zookex · Answer

Bref quelqu'un peut un peu m'aider, en bref je ne comprends pas le langage VB...

Enfin si mais pas comme vous *se met a genou*

Un code avec ma solution + des petites explications de serait pas de trop.

PS : Vive les personnes agées.

Zookex · Answer

Oh mon dieu Zermelo !
Excusez moi, je ne généralise pas, mais toutes les personnes un peu agée ne s'y connaisse pas...

Excusez moi de ma maladresse...

Utilisateur anonyme · Answer

en bref je ne comprends pas le langage VB
Je suis curieux de savoir ce qui t'amènes à poser ta question. Tu programmes par plaisir, pour apprendre, par force (boulot), pour l'école (devoirs) ?

Je t'ai donné une solution. A toi d'essayer de la réaliser. Lorsque tu bloqueras sur un point, poste ici le code réalisé et nous verrons ensemble ce qui coince.

Zermelo · Answer

Bonjour.
Ici Zermelo-le-vieux
Voici l'aide demandée.

Public Class Acceuil
    Private n As Integer = 1

    Private Sub bDém_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bDém.Click
        Tps.Start()
    End Sub

    Private Sub Tps_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tps.Tick
        If n = 1 Then
            Label1.Text "Comment" : n 2
        ElseIf n = 2 Then
            Label2.Text "fabriquer" : n 3
        ElseIf n = 3 Then
            Label3.Text "un vieux con ?" : n 4
        ElseIf n = 4 Then
            Label4.Text "On prend" : n 5
        ElseIf n = 5 Then
            Label5.Text "un jeune con" : n 6
        ElseIf n = 6 Then
            Label6.Text = "et on attend." : Tps.Stop()
        End If
    End Sub

End Class


Cordialement.

Étant illettré, je signe d'une croix : ×

Zookex · Answer

Bonjour problème résolu.

Banana m'a envoyer le code pour que le label change au bout de X secondes.

Il faut des labels, un timer et un bouton voici le code : 

Public Class Form1

    'déclaration d'une structure qui contient un temps, un label et un texte 
    Structure MaStructure
        Public Temps As Integer
        Public LeLabel As Label
        Public Texte As String
    End Structure

    'déclaration d'une liste acceuillant les structures 
    Dim MesStructures As New List(Of MaStructure)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False

        'ajout des éléments à la liste de structures 
        MesStructures.Add(New MaStructure With {.LeLabel Label3, .Temps 5000, .Texte = "VOTRE MESSAGE"})
        MesStructures.Add(New MaStructure With {.LeLabel Label4, .Temps 1000, .Texte = "VOTRE MESSAGE"})
        MesStructures.Add(New MaStructure With {.LeLabel Label5, .Temps 5000, .Texte = "VOTRE MESSAGE"})
        MesStructures.Add(New MaStructure With {.LeLabel Label6, .Temps 1000, .Texte = "VOTRE MESSAGE"})
        MesStructures.Add(New MaStructure With {.LeLabel Label7, .Temps 5000, .Texte = "VOTRE MESSAGE"})
        MesStructures.Add(New MaStructure With {.LeLabel Label8, .Temps 1000, .Texte = "VOTRE MESSAGE"})
        MesStructures.Add(New MaStructure With {.LeLabel Label9, .Temps 500, .Texte = "VOTRE MESSAGE"}) 'Au bout de 500milisecondes le label affiche le texte
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If MesStructures.Count > 0 Then
            'affichage du texte 
            MesStructures(0).LeLabel.Text = MesStructures(0).Texte
            'réglage du temps d'intervalle du timer pour l'affichage suivant 
            Timer1.Interval = MesStructures(0).Temps
            'effaçage de la premiere structure de la liste 
            MesStructures.RemoveAt(0)
        Else
            'arret timer et affichage final 
            Timer1.Stop()
        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        

    End Sub
End Class


Merci à toutes les personnes ayant participé a la discussion.
Un merci particulier a Banana qui a founir le code et a Zermelo et Ucfoutu pour leur sagesse 

Cordialement l'homme joyeux.

Changer texte sur un label en appuyant sur un bouton

37 réponses

Votre réponse

Discussions similaires