Ouvrir formulaire principal après 3 secondes

**aus3004** · 24/05/2010, 17h30

Bonsoir,

Le titre est assez explicite, je suis un débutant en vb.net et j'aimerais qu'après un délai de 3 secondes ma form principale s'affiche.

J'ai essayé d'employer l'opacité qui passe de 0 à 100 après le Timer mais j'arrive pas à configurer le Timer à 3 secondes.

N'oubliez surtout pas que je suis un débutant, merci pour votre aide.
@++

**zarohn** · 24/05/2010, 17h36

Code :

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

1
2
3
4
5
6
Private Sub attente(duree)
  depart = Timer
  While Timer < depart + duree
   DoEvents
  Wend
End Sub

**StormimOn** · 24/05/2010, 17h41

C'est pas très propre de procéder ainsi, il vaut mieux utiliser un Timer.

aus3004 pour configurer ton timer tu indiques la durée du timer avec la propriété Interval, la durée étant en millisecondes. Et les méthodes Start() et Stop() pour démarrer/arrêter le timer.
Après tu t'abonnes à l'événement Tick pour faire ton traitement lorsque le timer se déclenche.

http://msdn.microsoft.com/fr-fr/libr...rms.timer.aspx

**zarohn** · 24/05/2010, 17h43

Et le sleep c'est pas bien ?
http://vb.developpez.com/faq/?page=Systeme#sleep

**aus3004** · 24/05/2010, 17h46

J'aurais préféré utiliser la vraie methode avec start et stop comme le dit StormimOn mais si je poste un message dans ce forum c'est que je galère pour utilser le Timer.

T'aurais pas du code svp ?

**StormimOn** · 24/05/2010, 17h47

Envoyé par zarohn

Et le sleep c'est pas bien ?

Pas si pendant le délai il se passe quelque chose, ce qui est fort probable.
Et c'est un forum VB.Net ici, pas VB. Donc attention au lien que tu donnes

Envoyé par aus3004

T'aurais pas du code svp ?

Regarde le lien que j'ai donné un peu plus haut, l'exemple te suffira peut être

**aus3004** · 24/05/2010, 17h54

Je sais pas pourquoi mais je hais les codes de microsoft...
Peut être parce qu'il sont trop longs et commentés en anglais...

**StormimOn** · 24/05/2010, 18h00

Envoyé par aus3004

Je sais pas pourquoi mais je hais les codes de microsoft...
Peut être parce qu'il sont trop longs et commentés en anglais...

L'anglais est incontournable quand on est développeur, il faut faire avec

Sinon qu'est ce que tu ne comprends pas dans l'exemple ?

**aus3004** · 24/05/2010, 18h08

Je sais que vous connaissez le code mais que vous essayez de faire travailler mes méninges, comme depuis 1h je cherche à résoudre moi même ce problème, peut-on pas faire exception à la règle ?

Le code de Microsoft fait un peu 10 kilomètres, c'est ca qui va pas chez eux.

En gros s'est ca qui nous interesse :
myTimer.Interval = 5000
myTimer.Start()
myTimer.Stop()
myTimer.Enabled = True
avec un If timer = 3 secondes alors form1 = visible

Mais je débute en vb.net depuis moins d'un moins... et j'arrive pas trop à mettre tous ca dans l'ordre...

Est-il possible d'abréger mes souffrances ? Si oui, comment ?

**StormimOn** · 24/05/2010, 18h15

Tu mets ça dans le même ordre que l'exemple si tu regardes le Main ^^

D'abord tu crées un timer et tu d'abonnes à l'événement Tick du timer

Code :

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

1
2
3
Private Shared myTimer As New System.Windows.Forms.Timer()
...
AddHandler myTimer.Tick, AddressOf TimerTick)

Ensuite tu fixes le délai du timer et tu le démarres

Code :

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

1
2
3
' Timer de 5 secondes
myTimer.Interval = 5000
myTimer.Start()

Et lorsque le timer se déclenche tu commence par l'arrêter avec

Code :

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

1
2
3
4
Private Shared Sub TimerTick(myObject As Object, myEventArgs As EventArgs)
    myTimer.Stop()
    ...
End Sub

Et ensuite tu fais ce que tu as à faire.

**zarohn** · 24/05/2010, 18h20

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
Public Class Form1
 
    Private Shared myTimer As New System.Windows.Forms.Timer()
    Private Shared exitFlag As Boolean = False
 
    Private Shared Sub TimerEventProcessor(ByVal myObject As Object, _
                                           ByVal myEventArgs As EventArgs)
        myTimer.Stop()
        exitFlag = True
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler myTimer.Tick, AddressOf TimerEventProcessor
 
        myTimer.Interval = 3000
        myTimer.Start()
        While exitFlag = False
            Application.DoEvents()
        End While
    End Sub
End Class

Je viens de tester, avec ce code Form1 s'affiche après 3 secondes.

**Danyel** · 24/05/2010, 18h25

Je pense reellement qu'il faut faire le plus petit effort de recherche et d'initiative !!!

Demander comment fonctionne un timer (ou n'importe quel autre objet) c'est vraiment limite.
Sur msdn (accessible gratuitement) on trouve toutes les commandes avec toutes les explications sur l'objet, son fonctionnement, ses conditions, ses reactions, comment l'attaquer et le gerer. (souvent meme avec plusieurs exemples plus faciles les uns que les autres)
Et sans aller aussi loin, tu cliques ici sur tutoriel et tu auras ta reponse dans la minute.
Et encore plus, si tu fais juste une petite recherche ici sur le mot timer, tu vas trouver plus de mille reponses à ta question.

Alors merci de prendre le temps de chercher juste un peu avant de poster ou d'envoyer directement des mps

**aus3004** · 24/05/2010, 18h29

J'ai mis Timer1 dans ma solution puis le code de zarohn mais ma form principale (form1) s'ouvre toujours à la même vitesse

Je sais pas si j'ai bien fait de voter positivement au post du modo...

**zarohn** · 24/05/2010, 18h37

Crée un nouveau projet avec juste Form1

Puis tu crée un évènement load (fais le toi même depuis les propriétés car
des fois copier coller directement ce genre d'évènement ne fonctionne pas)

Ensuite tu met exactement le code que j'ai mis et tu exécutes,
Form1 se lancera après 3 secondes