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

Version imprimable

07/10/2007, 13h50
alassanediakite

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

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

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

Bonsoir ..

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

Code:

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...
:arrow: :mrgreen: je plaisante... mais va falloir qu'on se décide à écrire quelque chose la dessus .. ( FAQ.? tuto ... ) qu'en dis tu ?;)

08/10/2007, 12h14
RadPAT
Salut,
Citation:
Envoyé par bbil

Bonsoir ..

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

Code:

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

1 2 document.body.style.cursor = "default"
pour revenir au pointeur initial :lol:

A++
08/10/2007, 12h17
RadPAT

Citation:

Envoyé par bbil

Bonsoir ..

@Omen999 ... : tu vas réussir à le "vendre" ton dynawrap...
:arrow: :mrgreen: 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++
08/10/2007, 13h45
ced600

Citation:

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 ;)
08/10/2007, 16h27
alassanediakite

Salut
Je (ou plutôt nous) vous rermercions tous. Je m'empresse de faire part de tout ça aux autres.
@+
09/10/2007, 00h39
mout1234

Merci de votre aide :king:

ça marche très bien.

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