Voici mon programme :Il me donne : Erreur dans la ligne 4
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
Erreur de compilation :
Type défini par l’utilisateur non défini
Partager