comment afficher le sablier lors d'une exécution?

**alassanediakite** · 07/10/2007, 13h50

Salut
Suite à cette contribution très importante, nous avons bésoin de votre aide.
Comment chaner le curseur en sablier?
Merci et @+

**omen999** · 07/10/2007, 19h46

salut,
un peu de lecture: http://groups.google.com/group/micro...d06d869be53d5d

**SfJ5Rpw8** · 07/10/2007, 21h20

Bonsoir ..

on peu aussi faire appel à une fenêtre d'IE .. pour patienter..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Option Explicit
Dim IE
MsgBox "C'est parti"
Patientez
Wscript.Sleep 2000 '2 s de pause
FermezPatientez
msgBox "c'est Fini"
Sub Patientez
 Dim doc 
 Set IE = CreateObject("InternetExplorer.Application")
 
 IE.Navigate "about:blank"
 IE.Height = 90
 IE.Width = 300
 IE.MenuBar = False
 IE.Toolbar = False
 IE.StatusBar = False
 IE.Resizable = False
 Set doc = IE.Document
 doc.write "<head><title>Sauvegarde en cours</title></head>"
 doc.write "<body style=""color: rgb(255, 255, 0); background-color: rgb(51, 102, 255);"" alink=""#000099"" link=""#000099"" vlink=""#990099"">"
 doc.write "Sauvegarde en cours patientez .....<span style=""color: rgb(51, 102, 255);"">rs&nbsp;</span><br /></body>"
 doc.body.Style.Cursor = "wait" ' ==> LE Fameux sablier 
 IE.Visible = True
end sub
 
Sub FermezPatientez
  IE.Quit
  set ie = Nothing
end sub

@Omen999 ... : tu vas réussir à le "vendre" ton dynawrap...

je plaisante... mais va falloir qu'on se décide à écrire quelque chose la dessus .. ( FAQ.? tuto ... ) qu'en dis tu ?

**RadPAT** · 08/10/2007, 12h14

Salut,

Envoyé par bbil

Bonsoir ..

on peu aussi faire appel à une fenêtre d'IE .. pour patienter..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 doc.body.Style.Cursor = "wait" ' ==> LE Fameux sablier

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
document.body.style.cursor = "default"

pour revenir au pointeur initial

A++

**RadPAT** · 08/10/2007, 12h17

Envoyé par bbil

Bonsoir ..

@Omen999 ... : tu vas réussir à le "vendre" ton dynawrap...

je plaisante... mais va falloir qu'on se décide à écrire quelque chose la dessus .. ( FAQ.? tuto ... ) qu'en dis tu ?

Ouaip, entierement d'accord, en plus bbil et moi on est des vieux, on ne comprends pas tout du 1 er coup !!

A++

**ced600** · 08/10/2007, 13h45

Envoyé par RadPAT

Ouaip, entierement d'accord, en plus bbil et moi on est des vieux, on ne comprends pas tout du 1 er coup !!

A++

Ho mais non, vous êtes encore jeune

**alassanediakite** · 08/10/2007, 16h27

Salut
Je (ou plutôt nous) vous rermercions tous. Je m'empresse de faire part de tout ça aux autres.
@+

**mout1234** · 09/10/2007, 00h39

Merci de votre aide

ça marche très bien.

Grace au code de bbil, j'ai mis à jour mon script ici

comment afficher le sablier lors d'une exécution?

VBScript

Discussions similaires

Partager

Partager