VB6 TimerRésolu

Question

Salut..

Petite question à propos du Timer

J'ai écrit un message la semaine derniere a cause que mon programme clignote toujours... Si j'ouvre un autre application alors mon porgramme cligne (La barre du Titre clignote)

Je fais démarer mon programme par une image qui dure quelque seconde et ensuite mon programme principale s'ouvre...


Mon bug vient de cette ligne de commande
Ce code est dans la feuille de Démarage soit celle qui dure quelque seconde au démarage.


Private Sub Form_Load()
    TimerDemarrage.Enabled = True
    TimerDemarrage.Interval = 750
    
End Sub

Private Sub TimerDemarrage_Timer()
frmprincipale.Show
frmOuverture.Visible = False
End Sub

Mon mon code fait toujours le Private Sub TimerDermarage
lorsque le code arrive au End Sub ca prend une pause de quelque secondes et il recommence...

Comment je fais pour lui dire d'arretter ????

merci d'avance

PCPT · Accepted Answer

Private Sub Form_Load()
    TimerDemarrage.Interval = 750 'ces 2 lignes sont invers&#233;es. tu n'as pas de raisonde changer le timer en cours d'execution
    TimerDemarrage.Enabled = True 'v&#233;rifie bien qu'il soit sur Flase en conception. pas d'int&#233;r&#234;t sinon
End Sub

Private Sub TimerDemarrage_Timer()
   TimerDemarrage.Enabled = False
   frmprincipale.Show
'A SUPPRIMER : c'est ici que tout d&#233;conne. ton timer est toujours actif mais tu caches la form. regarde dans ton gestionnaire de t&#226;ches, avec un UnLoad sur ton autre Form, le programme n'est jamais termin&#233;
'*** frmOuverture.Visible = False

   UnLoad frmOuverture
End Sub

PCPT

cs_Jack · Answer

Salut
Normal : Un Timer ex&#233;cute le code toutes les 750 millisecondes dans ton cas.
Si tu demandes au Timer de faire un Form.Show &#224; ce rythme, Windows ne va pas l'&#233;taler !
Sans changer grand chose, ajoute juste ceci dans le code de ton Timer, comme &#231;a, il ne le fera qu'une seule fois (mais je ne vois pas l'int&#233;r&#234;t du Timer)

TimerDemarrage.Enabled = False   ' Stoppe le Timer

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_JeffC1977 · Answer

Salut... Pourquoi tu ne vois pas l'interet du Timer... ???

Il y a une meilleur idée ????

Je ne vois pas....

Propose ton idée... ca m'interesse..

merci...

cs_JeffC1977 · Answer

Ca ne fonctionne pas si je mets le code que tu me proposes, l'image de départ ne disparait pas pour faire place au programme...

Je la mets où cette ligne de code ????

TimerDemarrage.Enabled = False   

merci d'avance

VB6 Timer

4 réponses

Discussions similaires