[VB6] choisir+timer+click+message

Question

Bonsoir, Alors voilà j'ai un petit soucis et après avoir fait une recherche sur le site je n'ai pas trouvé comme faire. 
En effet : J'ai une textbox et un bouton. L'utilisateur rentre QUE DE ENTIERS POSITIFS dans cette textbox. exemple 5.
et quand il click sur le bouton ok, au bout de 5 secondes (pas des millisecondes) il y a un message qui apparaît.
Si il rentre 9, et clique sur ok au bout de 9 secondes un messages apparaît à l'écran.
Merci à vous de m'aider

DarkFel · Answer

dim ok
dim z
z = 15
set ok = CreateObject("Wscript.shell")
wscript.sleep (z)*1000
Msgbox "Bonjour"

Avec vbscript je sais faire, mais pas avec VB6 .
il n'accepte pas le wscript.sleep ...

cs_casy · Answer

"...il n'accepte pas le wscript.sleep ....."

Lequel ? le premier ou le second ?

si c'est le second, ça semble quand même quelque peu logique. Il vaudrait mieux écrire 

ok.sleep(z*1000) 

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

DarkFel · Answer

Merci mais :
J'ai mis : ok.sleep(z*1000)
au lieu de : wscript.sleep (z)*1000
dans VB6 mais ça marche pas, quelqu'un aurait une idée ?

jimy neutron · Answer

Salut,

Utilise un timer avec la propriete Enabled=False, puis

Private Sub Command1_Click()
Timer1.Interval = Val(Text1.Text) * 1000
Timer1.Enabled = True
End Sub

*************************************************

Private Sub Timer1_Timer()
MsgBox "Bonjour"
Timer1.Enabled = False
End Sub

voilou, Jimy

mortalino · Answer

salut,

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

DarkFel · Answer

Merci j'avais essayé avec le timer mais je l'avais pas mis sur False par défaut :)

jimy neutron · Answer

De rien,

Pense a "reponse accepté" pour clore le post..

A +

Jimy

[VB6] choisir+timer+click+message

7 réponses

Votre réponse

Discussions similaires