barre de chargement vbs

barre de chargement vbs - VB/VBA/VBS - Programmation

Marsh Posté le 18-07-2005 à 17:04:18    

Bonjour je cherche desesperement de faire une barre de chargement
 
Voici les données : j'ai mon vbs qui tourne derriere ma page de chargement (il fait des actions avec word)
 
J'ai mis un petit compteur, a chaque fois que mon vbs avance dans le word il accremente mon compteur.  
Je connais avant le nombre total que mon compteur va atteindre.
Je voudrais donc une barre qui avance a chaque fois que mon compteur s'acremente.
 
Le probleme est que je ne sais pas comment dire a mon vbs de rajouter une barre a chaque fois que mon compteur s'acremente.
Je ne sais pas comment dimensionner ma barre. Car si mon compteur atteint 50 et que ma barre total fait 1000 pixels il faut que ma barre progresse de 20pixels a chaque fois.
Mais ceci doit etre modifiable car mon compteur ne fera pas toujours 50.
 
J'ai trouver quelques script sur le net mais ils correspondait pas tres bien et puis souvent en javascript...
Si quelqu'un a une idée, je suis tres preneur. Merci
Meme un lien m'irai.

Reply

Marsh Posté le 18-07-2005 à 17:04:18   

Reply

Marsh Posté le 18-07-2005 à 19:20:28    

(( valeur_compteur / compteur_max ) x 100 ) x ( largeur_barre / compteur_max )
 
ca c'est ta formule générale
 
valeur compteur : variable
longeur_barre : fixe
compteur_max : fixe


---------------
now : do nothing
Reply

Marsh Posté le 19-07-2005 à 15:10:43    

knakes a écrit :

(( valeur_compteur / compteur_max ) x 100 ) x ( largeur_barre / compteur_max )
 
ca c'est ta formule générale
 
valeur compteur : variable
longeur_barre : fixe
compteur_max : fixe


 
 
Merci pour ta reponse mais c'est pas tout a fait ca que je voulais savoir en fait.
Je v montrer mon code vbs et html pour essayer d'etre plus clair.
 
 
Ma page html :
 
<DIV id=preloadCache  
style="Z-INDEX: 123; LEFT: 50px; WIDTH: 2000px; POSITION: absolute; TOP: 0px; HEIGHT: 2000px;">
<TABLE height= 500px; cellSpacing=0 cellPadding=0 width=500px border=0>
  <TBODY>
  <TR>
    <TD align=left>
      <TABLE cellSpacing=0 cellPadding=1 width=100 border=0>
        <TBODY>
        <TR bgColor=#999999>
          <TD><IMG height=15px; src="C:\Documents and Settings\public\Bureau\Julien1\Dossier Source\Html\green.gif" width=0
            name=vert></TD>
          <TD><IMG height=15px; src="C:\Documents and Settings\public\Bureau\Julien1\Dossier Source\Html\red.gif" width=400
            name=rouge></TD>
       </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
 
 
On a ici deux image une rouge et une verte, une qui fait 0 et l'autre 400 pixels.
Je voudrais incrementer le vert pour qu'il apparaisse au fur et a mesure et decrementer le rouge pour qu'il disparaisse.
 
Voici mon script html qui tente de faire ca (sans succes)
 
Function barrechargement(chiffre)
 
 pourcent = (400*chiffre)/(compt * 7)
 oie.document.all.vert.width = percent
 oie.document.all.rouge.width = 400-percent
 MsgBox pourcent
 
End Function
 
La msgbox m'a permis de me rendre compte que pourcent marchait bien si ya 10 elements il va aller de 10 20 30.... jusqu'a 100
Mais c'est le  
oie.document.all.vert.width = percent
oie.document.all.rouge.width = 400-percent
qui n'a pas l'air de marcher, mon ibjectif etant de remplacer les valeurs de width au fur et a mesure.
 
Je ne sais as si c'est la bonne solution. Si oui dite moi ce qu'il y a modifier si non je suis preneur d'une autre idée.
 
Cordialement julien

Reply

Marsh Posté le 19-07-2005 à 15:35:03    

petite erreur c'etait
 
pourcent = (chiffre / ((compt-1) * 7) ) * 400  
 
mais sans importance pour ce qui nous concerne

Reply

Marsh Posté le 19-07-2005 à 20:23:02    

essaie voir si en mettant des valeurs fixes à ' oie.document.all.vert.width ' et ' oie.document.all.rouge.width ', cela fonctionne.
Si oui, reférifie en profondeur ton script (ca peut servir) si non, faut trouver une autre astuce.
Perso un div à 0 contenant un vert à 100 % de taille et un rouge à 2000 devraient faire l'affaire (en complement des <img> )


---------------
now : do nothing
Reply

Marsh Posté le 21-07-2005 à 15:47:36    

barre.min = 0  
barre.max = 100  
i=1  
While i <= 100  
     barre.value = i  
     i=i+1  
Wend

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed