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

Comment créer un diaporama ?


Voici un petit code VBS pour créer un diaporama :

I) Après avoir créé un bouton VBS, insérez ce code :

'##############################Diaporama##############################
Dim liste(100),dern
Public Sub lancer_diapo()
Set fso=CreateObject("Scripting.FileSystemObject")
Set fich=fso.createtextfile("diapo.m3u")
do while i<dern
    fich.writeline liste(i)
    i=i+1
loop
fich.close
Set exe_f = CreateObject("WScript.Shell")
exe_f.Run("mplayer2.exe diapo.m3u")
End Sub
Public Sub ajout_img(img)
liste(dern)=img
dern=dern+1
End Sub
Public Sub nouveau_diapo()
do while i<dern
    liste(i)=""
    i=i+1
loop
dern=0
End Sub
'##############################Fin Diaporama##############################

II) Maintenant il faut configurer et lancer votre diaporama :

Pour cela ajoutez ceci :

nouveau_diapo 'pour prevenir qu'on va configurer
ajout_img "c:\windows\egypte.bmp" 'Pour ajouter une image (une ligne par image, 100 imgs max)
ajout_img "[LECT]:\diapo\1.bmp" 'Ouvrira l'img 1.bmp du repertoire diapo du futur CD
lancer_diapo 'Pour démarrer le diaporama créé

Note : pour un seul bouton vbs, vous pouvez créer plusieurs diaporama.







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.