Discussion :

[MADA BLACK]

Bonjour tout le monde
Svp j'ai vraiment besoin d'aide pour resoudre ce probleme
Dans ma Form1 j'ai 3 Timer : TimerR , TimerG , TimerB ( Enable = True - Interval = 20 )
Et voici tout mon code dans ma 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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
    Dim r As Integer = 244
    Dim g As Integer = 65
    Dim b As Integer = 65
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.BackColor = Color.FromArgb(244, 66, 66)
 
    End Sub
    Private Sub Timerr_Tick(sender As Object, e As EventArgs) Handles Timerr.Tick
        If b >= 244 Then
            r -= 1
            Me.BackColor = Color.FromArgb(r, g, b)
        End If
        If r <= 65 Then
            Timerr.Stop()
            Timerg.Start()
 
        End If
        If r >= 244 Then
            Timerr.Stop()
            Timerg.Start()
        End If
        If b <= 65 And r < 244 Then
            r += 1
            Me.BackColor = Color.FromArgb(r, g, b)
        End If
    End Sub
    Private Sub Timerg_Tick(sender As Object, e As EventArgs) Handles Timerg.Tick
        If r <= 65 And g < 244 Then
            g += 1
            Me.BackColor = Color.FromArgb(r, g, b)
        End If
        If g >= 244 Then
            Timerg.Stop()
            Timerb.Start()
        End If
        If r >= 244 Then
            g -= 1
            Me.BackColor = Color.FromArgb(r, g, b)
        End If
        If g <= 65 Then
            Timerg.Stop()
            Timerb.Start()
        End If
    End Sub
    Private Sub Timerb_Tick(sender As Object, e As EventArgs) Handles Timerb.Tick
        If b >= 244 Then
            Timerb.Stop()
            Timerr.Start()
        End If
        If g <= 65 And b < 244 Then
            b += 1
            Me.BackColor = Color.FromArgb(r, g, b)
        End If
        If g >= 244 Then
            b -= 1
            Me.BackColor = Color.FromArgb(r, g, b)
        End If
        If b <= 65 Then
            Timerb.Stop()
            Timerr.Start()
        End If
    End Sub

Tout fonctionne tres tres bien .. je veux uniquement apres une minute de changement du BackColor du Form1 .. on passe au Form2
J'ai pas pu connaitre exactement ou je vais poser ce code :

Code :

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

1
2
Form2.ShowDialog
Me.Close

Merci beaucoup d'avance pour l'aide
Cordialement
MADA

[umfred]

Une façon pourrait être d'avoir un 4ème timer avec un interval de 1 minutes (60 000ms) et arrivé à échéance basculer sur la 2nde Form

[MADA BLACK]

Une façon pourrait être d'avoir un 4ème timer avec un interval de 1 minutes (60 000ms) et arrivé à échéance basculer sur la 2nde Form

Merci infiniment umfred
Svp comment va etre ce 4ème timer

[umfred]

Svp comment va etre ce 4ème timer

Je ne comprends pas la question; il va être comme les autres et bien plus simple dans son fonctionnement.
Il démarre à l'ouverture de From1, comme les autres.
Arrivé à son délai, on stoppe les autres timers, et on ouvre ton Form2 (tu devrais d'ailleurs regarder plus précisément Form.ShowDialog pour être sûr que ce soit la bonne méthode d'affichage que tu désires (un Show est peut-être suffisant)