Problème de form.show()

**tbdarkspirit** · 07/05/2007, 00h16

Bonjour,

Voilà j'ai un petit problème...

j'ai une application avec 2 form.

dans la form1 se déroule les différentes actions

dans la form2 il y a juste une progressbar pour faire patienter...

lorsque je clique sur le bouton (se trouvant dans la form1) pour lancer l'action je lance la form2. Celle-ci s'ouvre et se fige jusqu'à ce que la suite du code soit executé...

Je sais pas si j'ai été très clair, mais c'est dure à expliquer...

voici un bout de code pour illustrer... :

bouton dans form1

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
Private Sub compressButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles compressButton.Click
        form2.Show()
        Me.Hide()
        System.Threading.Thread.Sleep(4000)
        ' varialbles d'environnements
        Dim i As Integer
        For i = 1 To 255
            If Environ(i) <> "" Then Debug.Print(Environ(i))
        Next
        ' fin varialbles d'environnements
        ' mes docs
        Dim Mydocs As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        If mydocsCheckBox.Checked = True Then
            Shell("rar a -ep1 -sfx " & """" & destRARPath.Text & "\" & NameRAR.Text & """" & " " & """" & Mydocs & """", AppWinStyle.Hide, True)
            ProgressBar1.PerformStep()
        Else
            ProgressBar1.PerformStep()
        End If
        ' favoris
        Dim Favoris As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
        If FavorisCheckBox.Checked = True Then
            Shell("rar a -ep1 -sfx " & """" & destRARPath.Text & "\" & NameRAR.Text & """" & " " & """" & Favoris & """", AppWinStyle.Hide, True)
            ProgressBar1.PerformStep()
        Else
            ProgressBar1.PerformStep()
        End If
        ' autre
        Dim autre As String = FolderBrowserDialog1.SelectedPath
        If AutreCheckBox.Checked = True Then
            Shell("rar a -ep1 -sfx " & """" & destRARPath.Text & "\" & NameRAR.Text & """" & " " & """" & autre & """", AppWinStyle.Hide, True)
            ProgressBar1.PerformStep()
        Else
            ProgressBar1.PerformStep()
        End If
        ' autre 2
        Dim autre2 As String = FolderBrowserDialog2.SelectedPath
        If Autre2CheckBox.Checked = True Then
            Shell("rar a -ep1 -sfx " & """" & destRARPath.Text & "\" & NameRAR.Text & """" & " " & """" & autre2 & """", AppWinStyle.Hide, True)
            ProgressBar1.PerformStep()
        Else
            ProgressBar1.PerformStep()
        End If
        form2.Close()
        Me.show
        MessageBox.Show("L'Archives " & NameRAR.Text & ".exe" & " a été crée correctement dans le répertoire" & vbCrLf & destRARPath.Text, "Jenova Back-up Maker", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        isoPanel.Enabled = True
    End Sub

code de la form2 :

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
    Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Maximum = 100
        ProgressBar1.Minimum = 0
        Timer1.Start()
        Label1.Refresh()
        Me.Refresh()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.ProgressBar1.Increment(1)
        If Me.ProgressBar1.Value >= Me.ProgressBar1.Maximum Then
            Me.ProgressBar1.Value = 0
        End If
        Label1.Refresh()
        Me.Refresh()
    End Sub

Je précise que si je lance la form2 sans qu'une autre action suive cela marche très bien...

Merci d'avance pour votre aide.

**hellspawn_ludo** · 07/05/2007, 01h38

Bonjour tbdarkspirit,

Alors si j'ai bien compris, tu expliques que sur ton Form1 lorsque tu cliques sur un bouton, la Form2 s'affiche et te fait patienter le temps que le code de ta Form1 s'exécute.

C'est bien ça ?

Cependant, je ne vois pas le problème que tu rencontres. Pourrais-tu être un peu plus clair ?

Merci.

**tbdarkspirit** · 07/05/2007, 11h54

oui tu as bien compris...

en fait la form2 se lance, mais se fige jusqu'à ce que le code de la form1 soit terminé...

un petit screen:

form2 figée pendant l'execution du code de la form1 :

form2 qui fonctionne une fois le code de la form1 executé:

Meric pour ton aide!

**The_badger_man** · 07/05/2007, 12h30

Ton but c'est quoi ?
Que les 2 forms déroulent leur code en meme temps ? Que la form 2 déroule le sien avant la form 1 ?

**tbdarkspirit** · 07/05/2007, 12h33

Salut The_badger_man!

le but c'est que les 2 form déroulent leur code en même temps...

**The_badger_man** · 07/05/2007, 13h43

je pense que c'est un problème de Thread. C'est un probleme classic en programmation.

Des tutos ici (car c'est un peu long à expliquer là):

http://drq.developpez.com/dotnet/articles/threads/

http://emerica.developpez.com/csharp/threads/