Hola : Estoy realizando una aplicación que ejecuta videos. Con un command llamo a ejecutarse al mismo de este modo :
WindowsMediaPlayer1.URL = App.Path & "\video1.wmv" )
la propiedad fullScreen del objeto está en true por lo que se ejecuta a pantalla completa, tal como lo quiero.
'Cuando se termina el video lo cierro
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = wmppsStopped Then
WindowsMediaPlayer1.close
end if
Luego con otro comando me desplazo al siguiente registro de una tabla de la que leo el campo y cuando ejecuto nuevamente el sigueinte video lo hace pero no a pantalla completa, sino dimensionado como está el objeto WindowsMediaPlayer1.
¿ Alguien sabrá porque ?
He probado cambiar la propiedad fullScreen en tiempo de ejecución con fullScreen = true , o también con fullScreen = 1 como ví en algún lado en la red ,, pero me arroja error.
He probado quitando la linea WindowsMediaPlayer1.close y todo sigue igual.
Desde ya gracias
