Se connecter avec
S'enregistrer | Connectez-vous
Votre question
Résolu

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

Tags :
  • Creation
  • Programmation
  • VB
Dernière réponse : dans Programmation
Partagez
22 Novembre 2007 15:07:46

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éé:

  1. Dim WMP As New AxWMPLib.AxWindowsMediaPlayer
  2. WMP.Name = "WMP"
  3. WMP.Location = New Point(0, 54)
  4. WMP.Size = New Point(213, 31)
  5. WMP.BeginInit()
  6.  
  7. WMP.Ctlenabled = True
  8. WMP.enableContextMenu = True
  9. WMP.fullScreen = False
  10. WMP.stretchToFit = False
  11. WMP.windowlessVideo = False
  12. WMP.uiMode = "full"
  13. 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 ;) 

Autres pages sur : net windows media player probleme creation controle

26 Novembre 2007 11:02:29

svp heeeeelp... snif.. je suis perdu la...
m
0
l
26 Novembre 2007 13:25:32

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 ?
m
0
l

Meilleure solution

28 Décembre 2012 16:38:10

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
partage