Discussion :

[StyxArts]

Bonjour,
voila j'ai encore un petit soucis.
Je vais vous expliquer ce que je souhaite.

Une foi le formulaire soumit, ma form success.vb s'ouvre pour executer mon code. (tout va bien)
Mais j'aimerai que cette dernière ce ferme au bout de 3 secondes plutot que l'on doit cliquer sur la croix fermer.
Sa serait donc beaucoup plus simple pour l'utilisateur que la form se ferme d'elle même 3 seconde après quel ce soit ouvert.

Je pensé à utiliser des timer(), mais je ne voit pas du tout comment faire.

J'ai d'abord essayé de parametrer un premier timer() avec un interval de 3000 et faire un condition que si timer1.interval = 3000 sa ferme ma form, mais sa la ferme direct.

Je ne voit pas du tout comment faire.
Quelqu'un à t'il une idée ?

Merci

[boubounne]

essaye ca je regarde car j'avais fait un truc ressemblant mais je ne trouve plus mes sources

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
 
Private Sub InitializeTimer()
        Timer1 = New Timer
        ' Run this procedure in an appropriate event.
        ' Set to 1 second.
        Timer1.Interval = 10000
        ' Enable timer.
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal Sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        ' Set the caption to the current time.
        Label1.Text = DateTime.Now
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Stop" Then
            Button1.Text = "Start"
            Timer1.Enabled = False
        Else
            Button1.Text = "Stop"
            Timer1.Enabled = True
        End If
    End Sub

[Pol63]

timer.interval = 3000 ca c'est bon
par contre ce qu'il te faut c'est
au moment de l'ouverture de la fenetre : timer.start

et dans l'evenement tick du timer :
timer.stop
me.dispose

[boubounne]

Ah oui, y'en manque un bout ^^

[StyxArts]

Wep merci à vous sa fonctionne impec.
J'ai fait :

Code :

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

1
2
3
4
5
6
7
8
    Private Sub succes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Me.Dispose()
    End Sub

Puis sa fonctionne
Merci en tout cas !