LAB - créateur de menus ! | Créez des menus pour vos DivX | Créez des menus autorun pour vos CDs

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

Gestion des menus déroulants

(en vue d'un "chapitrage" pour bsplayer, lecteur qui fera l'objet de nombreux articles)

1) Dans la feuille de travail, placer le code (1 par menu) :

'ajout du menu déroulant :
Set MonMenu = Fenetre.Controls.Add("VB.ComboBox", "MonMenu")
'on le place :
MonMenu.Left = 850 'coordonée X
MonMenu.Top = 3450 'coordonée Y
MonMenu.Width = 1200 'largeur
MonMenu.AddItem "Chapitre 1" 'nom
MonMenu.ItemData(MonMenu.ListCount - 1) = 10 'position en secs pour bsplayer
MonMenu.AddItem "Chapitre 2"
MonMenu.ItemData(MonMenu.ListCount - 1) = 20
MonMenu.AddItem "Chapitre 3"
MonMenu.ItemData(MonMenu.ListCount - 1) = 30
MonMenu.AddItem "Chapitre 4"
MonMenu.ItemData(MonMenu.ListCount - 1) = 40
MonMenu.AddItem "Chapitre 8"
MonMenu.ItemData(MonMenu.ListCount - 1) = 50

'etc etc...

MonMenu.Visible = True

2) Activer le minuteur sur 10 ms, et placer le code (1 par menu):

Set MonMenu = Fenetre.Controls("MonMenu")

If MonMenu.Text <> MonMenu.Tag and monmenu.listindex<>-1 Then
     'on lance le player

     Set exe_f = CreateObject("WScript.Shell")
     exe_f.Run("[lect]:\bsplay.exe [lect]:\titre_du_film.avi -stime=" + CStr(MonMenu.ItemData(MonMenu.ListIndex)))

     MonMenu.Tag=MonMenu.Text

End If

3) Pour le bouton "lancement direct", placer ce code sur un bouton :

Set exe_f = CreateObject("WScript.Shell")
exe_f.Run("[lect]:\bsplay.exe [lect]:\titre_du_film.avi -stime=" + CStr(MonMenu.ItemData(MonMenu.ListIndex)))

Article de Jean-Jacques Fouillard et ng.

Commentaires sur l'article :

Retour au menu

accès aux pages

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