Webbrowser et player flv embedded

Résolu
PORTE_BLINDEE Messages postés 30 Date d'inscription dimanche 10 décembre 2006 Statut Membre Dernière intervention 15 avril 2008 - 25 juil. 2007 à 02:00
PORTE_BLINDEE Messages postés 30 Date d'inscription dimanche 10 décembre 2006 Statut Membre Dernière intervention 15 avril 2008 - 26 juil. 2007 à 18:24
Bonjour

je crée dynamiquement des forms avec un webbrowser  comme controle pour afficher un player flv embedded
(genre youtube, daylymotion etc...)

exemple
Player  =  

 Dim form As New Form
 Dim wb As New WebBrowser
 wb.Navigate("about:blank")
 wb.Document.Write(" & Player & ")
 wb. ... diverses propriétés

form. ... diverses propriétés
form .Controls.Add(wb)
form.show
Sa marche impec.

Mais au niveau du player donc du webbbrowser , il ne répond qu'a un clik.
Je peut cliquer sur play mais apres les autre boutons ne répondent plus, (je clike mais rien ne se passe)
Je dois perdre le focus puis récupérer le focus pour pouvoir cliquer une seconde fois

Vous savez comment je pourrait resoudre ce probleme.

Une propriété du fomulaire ou du webbrowser a modifier?

1 réponse

PORTE_BLINDEE Messages postés 30 Date d'inscription dimanche 10 décembre 2006 Statut Membre Dernière intervention 15 avril 2008
26 juil. 2007 à 18:24
pour résoudre le bug (car c'est un bug)

faut faire un nouveau webbrowser

Public Class WebbrowserNBC
    Inherits System.Windows.Forms.WebBrowser

    Public Sub New()
        'Activate double buffering
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.AllPaintingInWmPaint, True)

        'Enable the OnNotifyMessage event so we get a chance to filter out
        ' Windows messages before they get to the form's WndProc
        Me.SetStyle(ControlStyles.EnableNotifyMessage, True)
    End Sub

    Protected Overloads Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case 513, 516, 519, 33
                MyBase.DefWndProc(m)
                Return
        End Select
        MyBase.WndProc(m)
    End Sub
End Class
3
Rejoignez-nous