Discussion :

[Attila54]

Bonjour,
J'ai une appli pour laquelle je voudrais lancer une sub environ 3 secondes apres le demarrage de l'appli
J'ai donc mis un timer (timer1) sur mon form1 (formulaire de lancement de l'appli)
au monformulaire.load, je mets juste dessous timer1.start
a la fin de cette même sub, je mets timer1.stop

dans mon timer1.tick, je mets download() la sub que je veux lancer et bien sur je mets l'interval du timer avec la durée adequate.

Code :

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

1
2
3
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        download()
    End Sub

Pourtant, ma sub download ne se lance pas.
J'ai fait une boulette dans le positionnement de mon timer1.stop ?

Merci

[asmduty]

Est-il possible de voir tout le code concerné ?

[Pelote2012]

t'as pas une fonction sleep au lieu du timer pour faire ça?

Sinon en mode pas à pas est-ce que tu passe dans ta fonction timer_tick

[silace]

essaye de mettre le timer1.stop dans le timer1_tick juste avant ta fonction download

parce que si j'ai bien compris se que tu fait
tu charge ta forme lance le timer1.start et toujours dans le chargement de la form tu fait timer1.stop
du coup tu lance et arrete le timer

[Attila54]

pour BROWNIE, j'avais initialement fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  ' lancement du formulaire vision de loin (demarrage du logiciel par defaut) 
    Private Sub monform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Flap.Text = "110"
        RadioButton2.Checked = True
        RadioButton1.Checked = False
        RadioButton4.Checked = False
 
        'si des process sont deja lances on ferme
        If TestSiDejaLance() = True Then End
        .......
        Initialisernouveaupatient()
        System.Threading.Thread.Sleep(3000)
        download()

mais ca ne lance pas plus download que le timer

avec le timer ca donnait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  ' lancement du formulaire vision de loin (demarrage du logiciel par defaut) 
    Private Sub monform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        timer1.start
        Flap.Text = "110"
        RadioButton2.Checked = True
        RadioButton1.Checked = False
        RadioButton4.Checked = False
 
        'si des process sont deja lances on ferme
        If TestSiDejaLance() = True Then End
        .......
        Initialisernouveaupatient()
        timer1.stop

avec

Code :

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

1
2
3
 Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        download()
    End Sub

voili voila

[Attila54]

ouiii bien sur tu as raison silace, ca fonctionne impeccablement maintenant.
Merci a tous pour vos suggestions et aides