Indetectables

Publicado: **19 Jun 2012, 00:11**

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

Publicado: **19 Jun 2012, 12:05**

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

[Enlace externo eliminado para invitados]

Publicado: **19 Jun 2012, 19:19**

gracias x responder pero queria que el video que se visualizase fuera el que cargué en recursos.

Publicado: **21 Jun 2012, 02:13**

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

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 With

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

Indetectables

Reproducir video en VB6 (recursos)

Reproducir video en VB6 (recursos)

Re: Reproducir video en VB6 (recursos)

Re: Reproducir video en VB6 (recursos)

Re: Reproducir video en VB6 (recursos)