Comment faire apparaître un bouton après un certain temps

Question

Je voudrais savoir comment faire pour que mon bouton apparaissent après un certain temps.

David
nhl2001@globetrotter.net

Hx · Answer

'Tu déclares une variable, tout en haut de ta feuille,
' hors procédure

    Dim j
    
'Tu poses ensuite un timer sur ta page (le p'tit chrono),
'et tu règles la propriété interval à 1000 (1 seconde)
'T'en profites pour placer un bouton (command1) et
'positionner la propriété visible à False.
    
'Dans le Form_Load() tu initialises ta variable

    j = 0
    
'Dans le Timer1_Timer() qui est activé toute les seconde
'(cf. paramètrage décrit plus haut), tu incrémente j de 1,
'il suffit ensuite de tester la valeur de j pour faire
'apparaître ou disparaître le bouton. Les lignes qui suivent
'déclenchent le bouton au bout de 5 secondes et le font
'disparaitre au bout de 10
    
j = j + 1If j >5 Then Command1.Visible TrueIf j >10 Then Command1.Visible False

vbtom · Answer

J'ai un petit peu plus simple que l'autre réponse!
[font=Verdana]
>TU mets un timer sur ta form(son nom est "Timer1"). Tu règles sa propriété "Interval"(sachant que c'est en milli-secondes!)
>Tu mets un bouton sur ta form(son nom est "CommandButton1"). Tu règles sa propriété "Visible" à False.

Dans la procédure du Timer tu mets:

CommandButton1.visible = True
Timer1.Enabled = False

vbtom.
/font

Comment faire apparaître un bouton après un certain temps

2 réponses

Discussions similaires