none
Reproducir un Video WMV en FullScreen en VB2005 RRS feed

  • Pregunta

  • Hola a todos necesito una ayuda tengo un Prouecto Smart Device en VB 2005

    Plataforma de Destino: Windows CE

    aqui tengo un control WebWrobser que utilizo para reproducir un video WMV, para esto al control le paso Codigo HTML

    AQUI EL CODIGO

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim videos() As String = Directory.GetFiles("\Application\Videos\", "*.wmv")
            Dim CantVideos As Integer = videos.Length
    
            If CantVideos = 0 Then
                Return
            End If
    
          
            Me.WebBrowser1.ScriptErrorsSuppressed = False
    
                   RUTA_VIDEO = "\Application\Videos\"
            Dim VideoActual = Path.GetFileName(videos(0))
            Dim RutaTransWeb = RUTA_VIDEO.Replace("\", "/")
            HTML.Append("<HTML>	<HEAD>")
            HTML.Append("<style type='text/css'>html,body { overflow: auto; } </style>")
    
            HTML.Append("<SCRIPT LANGUAGE = 'JScript'  FOR = Player EVENT = playStateChange(NewState)>")
            HTML.Append("switch (NewState){")
            HTML.Append("case 1:  location.href = 'http://www.s.com.pe';  break;")
            HTML.Append("case 2: location.href = 'http://www.d.com.pe'; break;")
            HTML.Append("default: a='' ;} </SCRIPT> </HEAD>")
    
                  HTML.Append("<BODY bgcolor='black' leftmargin='0' marginwidth='0' topmargin='0' marginheight='0'>")
              
             
             Html.Append("<OBJECT ID='Player' NAME='Player'  CLASSID='CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6' WIDTH='" & ANCHO_VIDEO & "' HEIGHT='" & ALTO_VIDEO & "' VIEWASTEXT>")
    
            HTML.Append("<PARAM NAME='FileName' VALUE='file://" & RutaTransWeb & VideoActual & "'>")
            HTML.Append("<PARAM NAME='AutoStart' VALUE='True'>")
            HTML.Append("<PARAM NAME='ShowControls' VALUE='False'>")
            HTML.Append("<PARAM NAME='ShowPositionControls' VALUE='False'>")
            HTML.Append("<PARAM NAME='ShowAudioControls' VALUE='False'>	")
            HTML.Append("<PARAM NAME='ShowTracker' VALUE='False'>")
            HTML.Append("<PARAM NAME='AutoSize' value='FALSE'>")
            HTML.Append("<PARAM NAME='ShowDisplay' VALUE='True'>")
            HTML.Append("<PARAM NAME='ShowStatusBar' VALUE='False'>")
            HTML.Append("<PARAM NAME='loop' VALUE='False'>")
            HTML.Append("<PARAM NAME='AnimationatStart' Value='True'>")
            HTML.Append("<param name='allowFullScreen' value='true'>")
            HTML.Append("<PARAM NAME='uiMode' value='full'>")
            HTML.Append("</OBJECT>	</BODY></HTML>")
            Me.WebBrowser1.DocumentText = HTML.ToString
        End Sub

    BUENO Si me reproduce el video pero como el control WebWrobser tienes su propiedad DOCK=FILL

    y el video se ve pequeño a pesar que tiene el mismo tamaño que el control, como haria para que el video se repordusca en FullScreen mediante html , e intentado lo siguiente HTML.Append("<param name='allowFullScreen' value='true'>")

    pero no funciona, si me pueden ayudar se los agradeceria


    jeferson

    miércoles, 5 de noviembre de 2014 22:39