Discussion :

[Jean-Luc80]

Bonjour
J'utilise WMP pour lire des vidéos dans un formulaire
A partie d'une liste basée sur une requête je crée une playlist à l'aide d'un bouton
Tout fonctionne à part un détail
Dans WMP j'ai soit en affichage le titre réel du film ou soit le nom du fichier
(par exemple 025.divx)
Coment faire pour avoir toujours le titre du film?
Est ce un Pb de tag ?
Si oui peut on les modifier avec un soft ?
Ou alors il faudrait récupérer le titre du film dans ma liste déroulante
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub PlayList_Click()
Ecran.currentPlaylist.Clear 'Ecran est le nom du player
Dim PListe As IWMPMedia
Dim i As Long
For i = 0 To ListeFilms.ListCount 'ListeFilms=liste déroulante
    Set PListe = Ecran.newMedia("c:\vidéos\" & ListeFilms.Column(1, i))
    Ecran.currentPlaylist.insertItem i, PListe
Next i
End Sub

J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Ecran.currentMedia.setItemInfo "title", ListeFilms.column(1,i)

mais ça ne va pas
Merci de vos conseils

[ilank]

Bonjour Jean-Luc,
certains iteminfo peuvent être ReadOnly IsReadOnlyItem(iteminfo)
Je ne sais plus mais il y a un moyen de récupérer la liste des iteminfos. Peut-être avec le GetAttributeName() et les lister de 0 (ou 1) à AttributeCount.

[Jean-Luc80]

Bonjour
Merci de ta réponse mais ce n'est pas très explicite
Peux tu m'en dire un peu plus SVP

[ilank]

Bonjour Jean-luc,
désolé j'ai mal lu ton premier post hier.
D'après ce que tu as écrit (et que je n'avais pas compris) tu fais ici un SetItemInfo avec le nom de fichier et non le titre.
donc un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Me.Ecran.currentMedia.setItemInfo "Title", ListeFilms.column(X,i)

Où X représente la colonne de la liste contenant le titre du film devrait suffir.

J'ai cru que tu ne pouvais pas modifier l'iteminfo "Title"; ce à quoi j'ai répondu que certains d'entre eux ne peuvent pas être modifié parce qu'en lecture seule, le SetItemInfo reste sans effet ou provoque une erreur "Permission Refusée".

[Jean-Luc80]

Bonjour
En faisant ça access me renvoie une erreur "Incompatibilité de type"
Je ne vois pas pourquoi

[ilank]

Essaie en passant d'abord par une variable de type string.

[Jean-Luc80]

Bonjour
Comme la solution n'était pas satisfaisante, plutôt que d'utiliser les boutons suivant ou précédent de WMP je gère la liste avec des boutons de commande
Je joins le code complet de mon formulaire si ça interresse quelqu'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Option Compare Database
Option Explicit
Dim i As Single

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub BFermer_Click()
    Ecran.Close
    DoCmd.Close acForm, Me.Name
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Dernier_Click()
ListeFilms = ListeFilms.ItemData(ListeFilms.ListCount - 1)
ListeFilms_AfterUpdate
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_Load()
Form.Caption = "Bandes annonce avec " & Acteur.value
EtiquetteFilm.value = "Liste des films avec " & Acteur.value
ListeFilms = ListeFilms.ItemData(0)
ListeFilms_AfterUpdate
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ListeFilms_AfterUpdate()
            If ListeFilms.Column(3) = 0 Then
            Me.Ecran.BorderStyle = 1
            Me.Ecran.BorderColor = 255
            Me.Ecran.URL = "c:\vidéos\9999.divx"
            TitreFilm.value = ListeFilms.Column(2)
            TitreFilm.ForeColor = 255
            Else
            Me.Ecran.BorderStyle = 1
            Me.Ecran.BorderColor = 1039370
            Me.Ecran.URL = "c:\vidéos\" & ListeFilms.Column(1)
            TitreFilm.value = ListeFilms.Column(2)
            TitreFilm.ForeColor = 32768
            Me.Ecran.currentMedia.setItemInfo "title", TitreFilm.value
            End If    
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Précédent_Click()
Dim A
If ListeFilms.ListIndex <> 0 Then
ListeFilms = ListeFilms.ItemData(ListeFilms.ListIndex - 1)
ListeFilms_AfterUpdate
Else
A = MsgBox("Premier film", 48, "Cinéma")
Exit Sub
End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Premier_Click()
ListeFilms = ListeFilms.ItemData(0)
ListeFilms_AfterUpdate
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Suivant_Click()
Dim A
If ListeFilms.ListIndex <> ListeFilms.ListCount - 1 Then
ListeFilms = ListeFilms.ItemData(ListeFilms.ListIndex + 1)
ListeFilms_AfterUpdate
Else
A = MsgBox("Dernier film", 48, "Cinéma")
Exit Sub
End If
End Sub

[ilank]

Ouais, il est beau le form.
Pour le fun je rajoueterai juste ceci en sortie du ListeFilms_AfterUpdate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Précédent.Enabled=Not (ListeFilms.Listindex=0)
Suivant.Enabled=Not (ListeFilms.Listindex=ListeFilms.ListCount-1)