Résolu [VB .NET] Windows Media Player - probleme a la creation du controle ?

[yozart]

Bonjour,

J'ai un probleme avec un controle Windows Media Player. Je cherche a ajouter Windows Media player a mon form. Cependant, je souhaite le creer dynamiquement. Voici donc le code que j'ai créé:

Dim WMP As New AxWMPLib.AxWindowsMediaPlayer
WMP.Name = "WMP"
WMP.Location = New Point(0, 54)
WMP.Size = New Point(213, 31)
WMP.BeginInit()

WMP.Ctlenabled = True
WMP.enableContextMenu = True
WMP.fullScreen = False
WMP.stretchToFit = False
WMP.windowlessVideo = False
WMP.uiMode = "full"
WMP.URL = radio.Item(1)

Cependant, lorsque je lance l'application, l'exception suivante est generée:

"Impossible d'appeler la propriété 'set' de 'CtlEnabled' actuellement"

En supprimant les lignes numerotées 7 a 13 les unes après les autres, a chaque fois, j'ai la meme erreur (avec le nom de la propriete qui suit la ligne supprimée".

Je suppose qu'il me manque quelque chose dans la creation de la variable WMP. Mais je n'arrive pas a trouver quoi.

Merci pour votre aide

 

[yozart]

svp heeeeelp... snif.. je suis perdu la...

 

[tegu]

Je ne connais pas l'utilisation de ce composant, mais les propriétés que tu remplis ne sont peut-être pas accessibles en écriture après le .BeginInit().
Que se passe-t-il si tu déplaces la ligne 5 (BeginInit) à la fin ?

 

[Djedjeska]

Punaise, je viens de passer une demi-heure pour trouver la réponse, et en fouillant dans le designer d'un form qui contenait un WMP ajouté manuellement, j'ai fini par trouver la réponse !!!

Il te manquait simplement UNE ligne : le EndInit

J'ai fait comme ça :

PlayerIntroduction = New AxWMPLib.AxWindowsMediaPlayer

CType(PlayerIntroduction, System.ComponentModel.ISupportInitialize).BeginInit()

PlayerIntroduction.Name = "PlayerIntroduction"
PlayerIntroduction.Left = 0
PlayerIntroduction.Top = 0
PlayerIntroduction.Width = My.Computer.Screen.Bounds.Width
PlayerIntroduction.Height = My.Computer.Screen.Bounds.Height
Me.Controls.Add(Me.PlayerIntroduction)
CType(Me.PlayerIntroduction, System.ComponentModel.ISupportInitialize).EndInit()

PlayerIntroduction.URL = CheminMonde & "\Introduction.mov"
PlayerIntroduction.Ctlcontrols.play()

C'est un peu tard pour répondre je sais, mais si comme moi des gens ne trouvaient pas la solution, la voici