Discussion :

[GuillaumeNcy]

Bonjour à tous,

Je souhaite changer le texte d'un label durant l'exécution d'une procédure.
Je veux juste que, au moment ou je clique sur le bouton qui lance la procédure, le texte du label prenne la valeur "Calculating", et que quand la procédure se termine, le texte du label prenne la valeur "Ready".

Dans mon évenement Form1.load j'ai écris :

Code :

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

 lbl_chargement.Text = "Ready"

et dans le code du bouton qui gère ma procédure j'ai écris ceci :

Code :

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

1
2
3
4
5
Private Sub BT_Presence_Click(sender As Object, e As EventArgs) Handles BT_Presence.Click
        lbl_chargement.Text = "Calculating..."
        createtblpresence() 'C'est la procédure durant laquelle je souhaite que mon label prenne la valeur "calculating"
        lbl_chargement.Text = "Ready" 'une fois la procédure terminée, retour à la valeur Ready
    End Sub

Le problème c'est que rien ne se passe, et je n'ai aucune erreur...
J'ai essayer également de donné la valeur texte souhaitée a mon label dans le code de la procédure mais rien ne se passe..
Une aide serais la bienvenu

Merci d'avance

[_Ez3kiel]

Tu dois le forcer à se redessiner :

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
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Label1.Text = "Calculating..."
        Label1.Refresh()
        For i As Double = 0 To 99999
 
            Label2.Text = i.ToString
            Label2.Refresh()
 
        Next
 
        Label1.Text = "Ready" 'une fois la procédure terminée, retour à la valeur Ready
 
    End Sub

[GuillaumeNcy]

Parfait, c'était donc le Refresh qui me manquait!
Merci!