Discussion :

[pirouge]

Voici mon programme :

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
17
18
19
20
21
 
Option Explicit
Dim m_VLCControl As Object
Dim WithEvents m_VLCPlayer As AXVLC.VLCPlugin2
'
Private Sub Form_Load()
    On Error GoTo ERR_HANDLER
 
    Set m_VLCControl = Me.Controls.Add("VideoLAN.VLCPlugin.2_VLCControl")
 
    m_VLCControl.Height = 6000
    m_VLCControl.Width = 10000
    m_VLCControl.Visible = True
 
    Rem Creo il player:
    Set m_VLCPlayer = m_VLCControl.object        
 
 
    m_VLCPlayer.playlist.Add ("file:///D:\GOPR0066.MP4")
    m_VLCPlayer.playlist.play
End Sub

Il me donne : Erreur dans la ligne 4
Erreur de compilation :
Type défini par l’utilisateur non défini

[l_autodidacte]

L'erreur devrait indiquer qu'une référence est manquante et elle ne peut pas être à la ligne 3 comme indiqué(Dim m_VLCControl As Object)

Il fallait ajouter la référence à C:\Program Files\VideoLAN\VLC\axvlc.dll puis ce

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Dim m_VLCControl As New VLCPlugin2
'
Private Sub Form_Load()
    m_VLCControl.FullscreenEnabled = True
    m_VLCControl.Toolbar = True
    m_VLCControl.Visible = True
    m_VLCControl.playlist.Add ("file:///D:\GOPR0066.MP4")
    m_VLCControl.playlist.play
End Sub

On obtient (le plain écran / écran normal) par double-clic dans la fenêtre de VLC.
On ne peut pas arrêter la vidéo sauf en fermant le programme(Form1 par exemple)
Les dimensions de la fenêtre ne sont pas gérées par le plugin

[pirouge]

J’ai pas bien compris "Il fallait ajouter la référence à C:\Program Files\VideoLAN\VLC\axvlc.dll puis ce Code :"


J’ai modifié dans mon program la ligne 2, comme souci :

Code :

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

1
2
Option Explicit
Dim m_VLCControl As New VLCPlugin2

et il me donne exactement le même problème
Erreur de compilation :
Type défini par l’utilisateur non défini

[l_autodidacte]

J’ai pas bien compris "Il fallait ajouter la référence à C:\Program Files\VideoLAN\VLC\axvlc.dlli

Clique sur le menu Projet et en bas de la liste des sous-menus tu as Références... Clique dessus
Dans la boite qui s'ouvre clique sur le bouton Parcourir et navigue jusqu'au fichier axvlc.dll (C:\Program Files\VideoLAN\VLC\axvlc.dll) puis le bouton Ouvrir ensuite Appliquer.
Une fois ceci fait essaie d'utiliser le code que je t'ai proposé

[pirouge]

Clique sur le menu Projet et en bas de la lise des sous-menus tu as Références... Clique dessus
Dans la boite qui s'ouvre clique sur le bouton Parcourir et navigue jusqu'au fichier axvlc.dll (C:\Program Files\VideoLAN\VLC\axvlc.dll) puis le bouton Ouvrir ensuite Appliquer.
Une fois ceci fait essaie d'utiliser le code que je t'ai proposé

Dans la boite de dialogue " Référence " je peux cliquer sur OK car il manque le bouton " Appliquer "
Mais dans le programme il me donne pas d’Erreur mais rien ne se passe

[l_autodidacte]

Dans la boite de dialogue " Référence " je peux cliquer sur OK car il manque le bouton " Appliquer"

Tout à fait car je t'ai répondu sans avoir VB6 installé sur la machine que j'utilise en ce moment.
Le code que je t'ai proposé marche très bien sur mes 2 machines(XP SP3 Win7 64)

[Mat.M]

Dans la boite de dialogue " Référence " je peux cliquer sur OK car il manque le bouton " Appliquer "
Mais dans le programme il me donne pas d’Erreur mais rien ne se passe

est-ce que tu sais utiliser les "watches" avec VB6 ? Bref les variables espions.
Si rien ne se pase c'est un problème de paramètrage de l'object crée sur VLC , ça peut venir du chemin d'accès au média

[pirouge]

Tout à fait car je t'ai répondu sans avoir VB6 installé sur la machine que j'utilise en ce moment.
Le code que je t'ai proposé marche très bien sur mes 2 machines(XP SP3 Win7 64)

Chez mois fonctionne aussi, sauf que dans mon programme j’ai un menu pour choisir le film que je veux voir, donc là où je click c’est le Nom du Film, Qui va s’appeler :
"NomeFilm"mais ton programme ne l’accepte pas, ils va falloir changer le nom du film par un nom commun ,j ai voulu le faire par ce texte :

Code :

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

FileSystem.RenameFile("C:\Users\Calogero\Videos\Trombello Giacomina.mp4", "NomeFilm.mp4")

mais ne fonctionne pas il me donne : Erreur de compilation :Erreur de syntaxe
si tu peuxm’aider merci et merci pour la réponse et de m’avoir aidé sans toi je n’aurais pas terminer ce programme, Merci

[l_autodidacte]

Tu n'as pas besoin de renommer le film mais si tu utilises CommonDialog(Issu du composant Mscomdlg32.ocx) tu peux faire ceci :

Code :

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

1
2
3
4
Commondialog1.Filter = "Fichier mp4(*.mp4)|*.mp4"
Commondialog1.ShowOpen
m_VLCControl.playlist.Add("file:///" & CommonDialog1.FileName) 
m_VLCControl.playlist.Play

[pirouge]

Tu n'as pas besoin de renommer le film mais si tu utilises CommonDialog(Issu du composant Mscomdlg32.ocx) tu peux faire ceci :

Code :

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

1
2
3
4
Commondialog1.Filter = "Fichier mp4(*.mp4)|*.mp4"
Commondialog1.ShowOpen
m_VLCControl.playlist.Add("file:///" & CommonDialog1.FileName) 
m_VLCControl.playlist.Play

J'ai modifie mon programme comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
NomeFilm = lstDoc1
    Commondialog1.Filter = "NomeFilm.mp4"
    Commondialog1.ShowOpen
    '
    m_VLCControl.FullscreenEnabled = True
    m_VLCControl.Toolbar = True
    m_VLCControl.Visible = True
    m_VLCControl.playlist.Add ("file:///C:\Users\Calogero\Videos\& CommonDialog1.FileName")
    m_VLCControl.playlist.play
    '

Il me donne "Erreur d'excécution '424':Un objet est requis" a la ligne 2

[l_autodidacte]

C'est normal puisque tu n'as ajouté le composant Mscomdlg32.ocx
Alors dans la liste des composants à gauche de l'éditeur VB6 fais un clic droit et choisis Composants...
Dans la boite qui s'ouvre utilise le bouton Parcourir tu es dirigé directement dans le dossier système où se trouvent les bibliothèques (dll et ocx)
Sélectionne le fichier Mscomdlg32.ocx puis ouvrir.

Place alors une instance de CommonDialog (qui sera appelé CommonDialog1) sur l'objet Form puis ce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit 
Dim m_VLCControl As New VLCPlugin2 ' 
Private Sub Form_Load()     
    m_VLCControl.FullscreenEnabled = True     
    m_VLCControl.Toolbar = True     
    m_VLCControl.Visible = True
    Commondialog1.Filter = "Fichier mp4(*.mp4)|*.mp4"
    Commondialog1.ShowOpen
    m_VLCControl.playlist.Add("file:///" & CommonDialog1.FileName) 
    m_VLCControl.playlist.Play
End Sub

[pirouge]

Sélectionne le fichier Mscomdlg32.ocx puis ouvrir.

Le fichier "Mscomdlg32.ocx" je le trouve pas!!

[ProgElecT]

Salut

chez moi le chemin est C:\Windows\SysWOW64\comdlg32.oca

[pirouge]

Salut

chez moi le chemin est C:\Windows\SysWOW64\comdlg32.oca

J’ai trouvé le fichier comdlg32.oca, j’a cliqué Sur Ouvrir et Appliquer et OK mais le résultat est le même,j’ai toujours un défaut
"Erreur d'exécution : Qualificateur Incorrect" a la ligne 8
Voici mon Programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
    Public  Commondialog1  As String
    Dim m_VLCControl As New VLCPlugin2
    NomeFilm = lstDoc1
    m_VLCControl.FullscreenEnabled = True
    m_VLCControl.Toolbar = True
    m_VLCControl.Visible = True
    Commondialog1.Filter = "C:\Users\Calogero\Videos\& NomeFilm mp4(*.mp4)|*.mp4"
    Commondialog1.ShowOpen
    m_VLCControl.playlist.Add ("file:///" & Commondialog1.FileName)
    m_VLCControl.playlist.play

[l_autodidacte]

Désolé pour le nom du fichier : C'est Comdlg32.ocx (ou Comdlg32.oca peu importe) car j'ai répondu sans avoir VB6 sur la machine.

Pour l'erreur invoquée, c'est à cause de la déclaration Public Commondialog1 As String qui est incorrecte car Commondialog1 est un contrôle qu'on doit placer sur l'objet Form1 et ce en faisant un double-clic sur son icône dans la liste des composants à gauche; il sera automatiquement placé sur l'objet Form1(ou formulaire actif).

Une fois ceci fait l'erreur disparait et ton programme tournera s'il n'y a pas d'autres bugs ailleurs.

[pirouge]

Pour l'erreur invoquée, c'est à cause de la déclaration Public Commondialog1 As String

J’ai pas bien compris ,je dois Effacer "Public Commondialog1 As String" et le mettre en "Dim Commondialog1" ?

[ProgElecT]

Salut

J’ai pas bien compris ,je dois Effacer "Public Commondialog1 As String"

OUI,mais il faut avoir placé ce composant sur le formulaire

[pirouge]

Salut
OUI,mais il faut avoir placé ce composant sur le formulaire

C'est quoi le formulaire ?

[ProgElecT]

Cela devrait ressembler à ce

Code :

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

1
2
3
4
5
NomeFilm = lstDoc1
CommonDialog1.Filter = "*MP4|*.mp4"
CommonDialog1.InitDir = "c:\Users\Calogero\Videos\"
CommonDialog1.FileName = NomeFilm & ".mp4"
CommonDialog1.ShowOpen

a toi de modifier/adapter.

[pirouge]

Cela devrait ressembler à ce

Code :

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

1
2
3
4
5
NomeFilm = lstDoc1
CommonDialog1.Filter = "*MP4|*.mp4"
CommonDialog1.InitDir = "c:\Users\Calogero\Videos\"
CommonDialog1.FileName = NomeFilm & ".mp4"
CommonDialog1.ShowOpen

a toi de modifier/adapter.

Voici mon programme modifié :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim Commondialog1
Dim WithEvents m_VLCPlayer As AXVLC.VLCPlugin2
'
     NomeFilm = lstDoc1
    m_VLCControl.FullscreenEnabled = True
    m_VLCControl.Toolbar = True
    m_VLCControl.Visible = True
    Commondialog1.Filter = "*MP4|*.mp4"
    Commondialog1.InitDir = "C:\Users\Calogero\Videos\"
    Commondialog1.FileName = NomeFilm & ".mp4"
    Commondialog1.ShowOpen
    m_VLCControl.playlist.Add ("file:///" & Commondialog1.FileName)
    m_VLCControl.playlist.play

j’ai toujours un défaut
"Erreur d'exécution : Un objet est requis" a la ligne 9