NGSoft-fr.com > MenusLAB.com : LAB - créateur de menus !


 
NGSoft-fr.com I Accueil I Téléchargements I Trucs et astuces I F.A.Q. I Centre d'aide
Forum I Suport/Contact I Livre d'or I Diffusions I Dons I Plan
Rejoindre les 10996 utilisateurs priviliègés gratuitement

Afficher une image/un écran pendant x secondes au démarrage


En fait c'est très simple, créez un bouton 'Code VBS', lorsque qu'on vous demande les 3 images (normal, survol, clique), indiquez toujours la même, c'est cette image qui sera affichée au démarrage.

Placez ce bouton n'importe sur le feuille, cela n'a aucune importance.

Ensuite choisissez 'Exécuter du code VBS' dans la liste 'Actions à effectuer au démarrage' (dans les paramètres de la feuille de travail). Une fenêtre s'ouvre, entrez y alors ceci sans vous poser de question :-) :

'########Début - configuration########

'bouton qui contient l'image à utiliser
set BT=bouton1

'durée d'affichage en seconde
Duree_Affichage=2

'########Fin - configuration########



'########Ne rien modifier########
Public Sub attendre(Temps)
Dep=timer
DO WHILE timer < Dep + Temps
loop
End Sub
Public Sub objets_visibles(oui_ou_non)
for each objects in Fenetre
if objects.name = "Text1" or objects.name = "Picture1" then
if objects.index > 0 then
objects.visible=oui_ou_non
End If
End If
next
imagefond.visible=oui_ou_non
End Sub
fenetre.visible=false
objets_visibles false
bt.top=0
bt.left=0
AT=fenetre.top
AL=fenetre.left
AX=fenetre.width
AY=fenetre.height
fenetre.width=bt.width
fenetre.height=bt.height
fenetre.top=ecran.height/2-fenetre.height
fenetre.left=ecran.width/2-fenetre.width
bt.visible=true
fenetre.visible=true
fenetre.refresh
attendre Duree_Affichage
fenetre.visible=false
objets_visibles true
bt.visible=false
fenetre.top=AT
fenetre.left=AL
fenetre.width=AX
fenetre.height=AY
fenetre.visible=true
'########Fin !########

Maintenant vous devez configurer votre écran de démarrage grace aux deux premières lignes que du code ci-dessus.

Et voila c'est terminé !


Si vous avez le moindre problème, contactez moi : ng@babeuk.net


Script demandé par Patrice Ollier.





Commentaires sur l'article :



Retour au menu






    J'augmente la popularité de mon site grâce à PopuLiens !   Logiciel Référencé sur Free'n'Share, le Plein de Freeware et de Shareware     annuaire



Rentabilisez efficacement votre site



accès aux pages







Pour obtenir le Banner explode ID de ce site cliquez ici !



Site, scripts (sauf forum : © phorum.org) et programmes copyright © Nicolas GUILLAUME 2002-2003
Toute reproduction partielle ou complète sans l'accord du webmaster est interdite.