Pues eso he cargado un video como recurso en un proyecto , y me gustaria saber cual es el codigo que tengo que poner para que lo reproduzca desde el componente Windows Media PLayer en el Form, sin que se abra el reproductor de video por defecto del ordenador, sino que se abra en el Form
[Enlace externo eliminado para invitados]Manono escribió:Pues eso he cargado un video como recurso en un proyecto , y me gustaria saber cual es el codigo que tengo que poner para que lo reproduzca desde el componente Windows Media PLayer en el Form, sin que se abra el reproductor de video por defecto del ordenador, sino que se abra en el Form
gracias x responder pero queria que el video que se visualizase fuera el que cargué en recursos.
El link del niño está muy bien
Le agregue el control Multimedia , una picture para encerrar el video
y extraje el recurso, lo pase a un archivo así llamo al path
Tu lo mejoras a tu proyecto, una vez que termine el video puedes eliminar el archivo creado
esto es muy básico solo para mostrarte como extraer el recurso
Leí al respecto algo y de veras es muy complicado ejecutarlo solo del recurso me pareció la mejor opción crear un archivo con el
Tuve problemas con las extensiones de los videos este está cargado con *avi pero tu puedes elegir cual utilizar
Asi quedo
[Enlace externo eliminado para invitados]
Saludos espero te sirva
Le agregue el control Multimedia , una picture para encerrar el video
y extraje el recurso, lo pase a un archivo así llamo al path
Tu lo mejoras a tu proyecto, una vez que termine el video puedes eliminar el archivo creado
esto es muy básico solo para mostrarte como extraer el recurso
Leí al respecto algo y de veras es muy complicado ejecutarlo solo del recurso me pareció la mejor opción crear un archivo con el
Código: Seleccionar todo
Private Sub Form_Load()
Dim VID() As Byte
VID = LoadResData(101, "CUSTOM")
Open App.Path & "\Sonido.avi" For Binary As #1
Put #1, , VID
Close #1
Text1.Text = App.Path & "\Sonido.avi"
With MM
.FileName = Text1.Text
.DeviceType = "AviVideo"
.From = 0
.hWndDisplay = Picture1.hWnd
.Command = "open"
.Command = "Play"
End WithAsi quedo
[Enlace externo eliminado para invitados]
Saludos espero te sirva
