Discussion :

[didpoy]

Bonjour,

Je rencontre un soucis de base pour afficher un label. Voici ce que je veux faire:
1) j'ouvre un Form avec un bouton visible et un Label+ProgressBar visible = False
1) Je clique sur un bouton pour lancer un calcul
2) Le bouton est caché et le Label visible = True
3) La boucle de calcul s'effectue....

Mon problème:
- Le label ne s'affiche pas avant le lancement de la boucle de calcul et n'apparait pas dans le Form !!!!

Je mets en joint un petit programme pour montrer mon soucis.
ESSAI.zip

Merci de vos aides pour résoudre ce soucis.

Cordialement.

[Delaney]

Bonjour

Utilise Me.Refresh() après avoir rendu ton label visible et avant ta boucle.

sincèrement

[Miska59]

Bonsoir,

au sinon vous pouvez utiliser un thread dans votre Button1_Click :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Imports System.Threading
 
Public Class Form1
    Dim worker As Thread
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Visible = False
        ProgressBar1.Visible = False
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        worker = New Thread(AddressOf CopyFile)
        worker.Start()
    End Sub
 
    Private Sub CopyFile()
        Me.Invoke(Sub() Button1.Visible = False)
        Me.Invoke(Sub() Label1.Visible = True)
        ' Préparation Progresse Barre
        ' Minimum à 1 
        Me.Invoke(Sub() ProgressBar1.Minimum = 0)
        ' Maximum= nombre total de fichier à copier.
        'ProgressBar1 = filenames.Length
        ' On initialise la ProgressBar.
        Me.Invoke(Sub() ProgressBar1.Value = 0)
        ' On indique le pas.
        Me.Invoke(Sub() ProgressBar1.Step = 1)
        Me.Invoke(Sub() ProgressBar1.Style = ProgressBarStyle.Continuous)
        Me.Invoke(Sub() ProgressBar1.Visible = True)
        'Boucle de calcul
        For i = 1 To 1272
            ' Barre de progression
            ProgressBar1.Invoke(New Action(Sub()
                                               ProgressBar1.PerformStep()
                                           End Sub))
            'Ici, normalement, c'est ma boucle avec
            'calculs différents remplacé par une tempo
            'La Progessbar1 s'affiche bien
            'Mais le Label1 ne s'affiche pas !!!!!!!
            '----------------------------------------
            System.Threading.Thread.Sleep(1500)
            '----------------------------------------
        Next
    End Sub
 
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        worker.Abort()
    End Sub
End Class

cordialement,

[didpoy]

Re,

Merci à tous les deux pour le coups de mains.

J'ai essayé les deux solutions qui sont OK.

Bravo à vous.

Bye.