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émarrageEn 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 |