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
