Problème texte label

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:

---

lbl_chargement.Text = "Ready"

---

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

Code:

---

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

Tu dois le forcer à se redessiner :

Code:

---

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

---

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