Discussion :

[Gualino]

Bonjour à tous,

J'ai un petit soucis.

J'ai fait un form de 150*300 pixel avec un label "Please wait..." et un progressBar.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub OpenProgressBar()
        ProgressBarForm.Show()
        ProgressBarForm.Location = New System.Drawing.Point(CInt(Screen.PrimaryScreen.WorkingArea.Width / 2) - 150, CInt(Screen.PrimaryScreen.WorkingArea.Height / 2) - 25)
    End Sub
 
    Private Sub FillUpProgressBar(ByVal value As Double)
 
        If value >= 1 Then
            ProgressBarForm.Hide()
        End If
 
        ProgressBarForm.ProgressBarYMD.Value = CInt(value * 100)
 
    End Sub

Dans le cas présent (mon premier emploi) le méthode tourne en 3 seconde (calcule et affiche chart).

Le form apparait, le label n'en a pas le temps...la progressBar atteind 20% puis le form disparait...

Je précise que si j'ôte la méthode .Hide, le form reste affiché et la progressbar va au bout. Mais le label met quand même un certain temps à s'afficher.

Quelqu'un a il une suggestion?

[Gualino]

Je me suis amusé avec un timer...

Le form reste affiche jusqu'au bout, mais le label "Please wait..." ne s'affiche qu'après un certain laps de temps.

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
 Private Sub OpenProgressBar()
        ProgressBarForm.Show()
        ProgressBarForm.Location = New System.Drawing.Point(CInt(Screen.PrimaryScreen.WorkingArea.Width / 2) - 150, CInt(Screen.PrimaryScreen.WorkingArea.Height / 2) - 25)
    End Sub
 
    Private Sub FillUpProgressBar(ByVal value As Double)
 
        If value >= 1 Then
            Me.Timer1.Interval = 250
            ticCount = 0
            Me.Timer1.Enabled = True
        End If
 
        ProgressBarForm.ProgressBarYMD.Value = CInt(value * 100)
 
    End Sub
 
    Private Sub CloseProgressBar() Handles Timer1.Tick
 
        ticCount += 1
        If ticCount = 2 Then
            Me.Timer1.Enabled = False
            ProgressBarForm.Hide()
        End If
 
    End Sub
 
    Private ticCount As Integer