Pb wait sur VbRésolu

Question

Bonjour
Je voudrais connaitre l'équivalent de l'instruction wait (Vba)Sur visual basic
Victor110

cs_Exploreur · Accepted Answer

Salut et bonjour à tous,

Voici la déclaration de l'api sleep(pause) en Vb :

Public pour l'utiliser dans plusieurs Form, en Private pour l'utiliser que dans une seule Form

' API pause ************************************************
 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' **********************************************************

Utilisation : 

Sleep (1000) ' Pause de une seconde

Si tu veux ene savoir plus sur les Api(certaines), regarde avec ta visionneuse d'api de VB...

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_DARKSIDIOUS · Answer

Sur vb6 ? Il doit s'agir certainement de l'API Sleep (fait une toute petite recherche sur le forum, et tu trouvera).

jrivet · Answer

Salut,
Wait??? c'est en quel VBA tout ca? 

Sinon je rejoints [auteurdetail.aspx?ID=13557 DARKSIDIOUS] pour Sleep.

@+: Ju£i?n
Pensez: Réponse acceptée

jmfmarques · Answer

Salut,

A moins qu'il ne veuille parler d'une attente sans toutefois tout gelet :

Du genre (rentre une foule d'autres) :

debut = timer
do while timer < debut + 1
  doevents
wend

victor110 · Answer

je ne sais pas en quel vba
je pense dans tous

jrivet · Answer

Salut,
Bah tu doit bien savoir en quel VBA tu l'a déjà vu: EXCEL, ACCESS, Outlook, Power Point...

@+: Ju£i?n
Pensez: Réponse acceptée

victor110 · Answer

c était sous excel mais je te remercie explorateur



c'était ce que je chercher

Renfield · Answer

ne pas mettre de parenthèses

Utilisation : 

Sleep 1000 ' Pause de une seconde

Renfield
Admin CodeS-SourceS- MVP Visual Basic

victor110 · Answer

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Pause()
Shell "explorer.exe http://www.equideo.com/"
Sleep 1000
SendKeys "{TAB 3}", True
End Sub
Je fais ce que m'a dit explorateur mais sa ne marche pas

cs_Exploreur · Answer

Salut,

Si tu as déclaré l'api dans ta form, déclare là en "Private" et non en Public

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Lol...Exploreur...pas explorateur

A+
Exploreur

 Linux a un noyau, Windows un pépin

victor110 · Answer

pardon pour la faute de copie

cs_DARKSIDIOUS · Answer

"ca ne marche pas" ??? càd ?

victor110 · Answer

Merci beaucoup ca marché parfaitement c'est juste que je ne metter pas un temps assez long

jmfmarques · Answer

Bonjour,

nous y voilà donc enfin (de retour ici...) !

Ton sleep gèle tout !!!!!

exemple pour accéder à un compte yahoo en se servant d sendkeys (comme tu veux le faire):

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command2_Click()
  ShellExecute 0, vbNullString, "http://fr.f351.mail.yahoo.com/ym/login?.rand=71jl1leo9u1hj", vbNullString, vbNullString, vbNormalFocus
  patience
  depart = Timer
    Do While Timer < depart + 10
    DoEvents
  Loop
  For i = 1 To 2
    SendKeys "nom_utilisateur", True
    SendKeys "{TAB}"
    SendKeys "mot_de_passe"
    SendKeys "{ENTER}"
  Next i
  End
End Sub

tu prends (et adaptes) ou tu laisses ...
Je viens de tester et celà fonctionne, pour autant qu'une connexion internet ait été établie préalablement.

victor110 · Answer

la solution de exploreur marche tres bien et elle est plus courte sa ne gèle pas ma page internet

Pb wait sur Vb

16 réponses

Votre réponse

Discussions similaires