Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
X
Bonjour,
Voici de quoi patienter :o)
Private Declare Function GetTickCount Lib "Kernel32" () As Long Sub Command1_Click() Dim t1 As Long t1 = GetTickCount() t2 = t1 + 3000 ' 3000 millisecondes = 3 secondes Screen.MousePointer = vbHourglass Do While t1 < t2 t1 = GetTickCount() Loop Screen.MousePointer = Default End Sub ---------------
"Mo" a écrit dans le message de news:
| Bonjour, | | je suis sur vb6 et j'aimerais faire patienter un programme via une commande | sleep ou wait mais je netrouve pas, quelqu'un peut-il m'aider? | | merci d'avance, Mo | |
Bonjour,
Voici de quoi patienter :o)
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Command1_Click()
Dim t1 As Long
t1 = GetTickCount()
t2 = t1 + 3000 ' 3000 millisecondes = 3 secondes
Screen.MousePointer = vbHourglass
Do While t1 < t2
t1 = GetTickCount()
Loop
Screen.MousePointer = Default
End Sub
---------------
"Mo" <morad.kalkoul@gmail.google.com> a écrit dans le message de news:
eP0ZzUYzFHA.3312@TK2MSFTNGP09.phx.gbl...
| Bonjour,
|
| je suis sur vb6 et j'aimerais faire patienter un programme via une
commande
| sleep ou wait mais je netrouve pas, quelqu'un peut-il m'aider?
|
| merci d'avance, Mo
|
|
Private Declare Function GetTickCount Lib "Kernel32" () As Long Sub Command1_Click() Dim t1 As Long t1 = GetTickCount() t2 = t1 + 3000 ' 3000 millisecondes = 3 secondes Screen.MousePointer = vbHourglass Do While t1 < t2 t1 = GetTickCount() Loop Screen.MousePointer = Default End Sub ---------------
"Mo" a écrit dans le message de news:
| Bonjour, | | je suis sur vb6 et j'aimerais faire patienter un programme via une commande | sleep ou wait mais je netrouve pas, quelqu'un peut-il m'aider? | | merci d'avance, Mo | |
X
Heu, faut aussi faire dim t2 as long
On peut utiliser le timer de même, mais ma méthode est plus courte :o) -------------
"X" <.> a écrit dans le message de news: uIQJ$ | Bonjour, | | Voici de quoi patienter :o) | | Private Declare Function GetTickCount Lib "Kernel32" () As Long | Sub Command1_Click() | Dim t1 As Long | t1 = GetTickCount() | t2 = t1 + 3000 ' 3000 millisecondes = 3 secondes | Screen.MousePointer = vbHourglass | Do While t1 < t2 | t1 = GetTickCount() | Loop | Screen.MousePointer = Default | End Sub | --------------- | | | "Mo" a écrit dans le message de news: | || Bonjour, || || je suis sur vb6 et j'aimerais faire patienter un programme via une | commande || sleep ou wait mais je netrouve pas, quelqu'un peut-il m'aider? || || merci d'avance, Mo || || | |
Heu, faut aussi faire
dim t2 as long
On peut utiliser le timer de même, mais ma méthode est plus courte :o)
-------------
"X" <.> a écrit dans le message de news:
uIQJ$tYzFHA.596@TK2MSFTNGP12.phx.gbl...
| Bonjour,
|
| Voici de quoi patienter :o)
|
| Private Declare Function GetTickCount Lib "Kernel32" () As Long
| Sub Command1_Click()
| Dim t1 As Long
| t1 = GetTickCount()
| t2 = t1 + 3000 ' 3000 millisecondes = 3 secondes
| Screen.MousePointer = vbHourglass
| Do While t1 < t2
| t1 = GetTickCount()
| Loop
| Screen.MousePointer = Default
| End Sub
| ---------------
|
|
| "Mo" <morad.kalkoul@gmail.google.com> a écrit dans le message de news:
| eP0ZzUYzFHA.3312@TK2MSFTNGP09.phx.gbl...
|| Bonjour,
||
|| je suis sur vb6 et j'aimerais faire patienter un programme via une
| commande
|| sleep ou wait mais je netrouve pas, quelqu'un peut-il m'aider?
||
|| merci d'avance, Mo
||
||
|
|
On peut utiliser le timer de même, mais ma méthode est plus courte :o) -------------
"X" <.> a écrit dans le message de news: uIQJ$ | Bonjour, | | Voici de quoi patienter :o) | | Private Declare Function GetTickCount Lib "Kernel32" () As Long | Sub Command1_Click() | Dim t1 As Long | t1 = GetTickCount() | t2 = t1 + 3000 ' 3000 millisecondes = 3 secondes | Screen.MousePointer = vbHourglass | Do While t1 < t2 | t1 = GetTickCount() | Loop | Screen.MousePointer = Default | End Sub | --------------- | | | "Mo" a écrit dans le message de news: | || Bonjour, || || je suis sur vb6 et j'aimerais faire patienter un programme via une | commande || sleep ou wait mais je netrouve pas, quelqu'un peut-il m'aider? || || merci d'avance, Mo || || | |
Loïc Carrère
Le 10/10/2005, Mo a supposé :
Bonjour,
je suis sur vb6 et j'aimerais faire patienter un programme via une commande sleep ou wait mais je netrouve pas, quelqu'un peut-il m'aider?
merci d'avance, Mo
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sleep 1000 'pause de 1 seconde
Le 10/10/2005, Mo a supposé :
Bonjour,
je suis sur vb6 et j'aimerais faire patienter un programme via une commande
sleep ou wait mais je netrouve pas, quelqu'un peut-il m'aider?
merci d'avance, Mo
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sleep 1000 'pause de 1 seconde
