Chica
24 de Enero del 2003

Hola, tengo un problemilla, con el vb6, os cuento... estoy haciendo un reproductor de video, y audio, y no consigo que hacer que lo reproduzca por culpa de un error, que me da, y se que lo escribo mal, pero no se que hay que poner, por favor ayudenme...

'Este es el formulario que me da problemas

Private Sub filficheros_Click()
If Right(filficheros.Path, 1) = "" Then
txtFichero.Text = filficheros.Path & filficheros.FileName
Else
txtFichero.Text = filficheros.Path & "" & filficheros.FileName
End If
frmreproductor!OLE1.(¿y aqui, que pongo?)= Load (¿¿que pongo aqui??)(txtFichero.Text)
frmreproductor.Width = frmreproductor!OLE1.Width
frmreproductor.Height = frmreproductor!OLE1.Height
frmreproductor.Show
frmreproductor.ZOrder
End sub

gracias y un saludo.

Perdonen mi ignoracia

jorge
24 de Enero del 2003

Espero que te sirva. He puesto comentarios sobre las lineas que he incorporado

Private Sub filficheros_Click()
If Right(filficheros.Path, 1) = "" Then
txtFichero.Text = filficheros.Path & filficheros.FileName
Else
txtFichero.Text = filficheros.Path & "" & filficheros.FileName
End If
'frmreproductor!OLE1.(¿y aqui, que pongo?)= Load (¿¿que pongo aqui??)(txtFichero.Text)

'Asignas la clase
frmreproductor.OLE1.Class = "MPlayer"

'Le dices el fichero a reproducir
frmreproductor.OLE1.SourceDoc = txtFichero.Text
frmreproductor.Width = frmreproductor!OLE1.Width
frmreproductor.Height = frmreproductor!OLE1.Height

'Le dices que te lo muestre embebido
frmreproductor.OLE1.Action = 0

'Que actualice los verbos del objeto
Call frmreproductor.OLE1.FetchVerbs

'Que ejecute el verbo reproducir
frmreproductor.OLE1.DoVerb (0)

frmreproductor.Show
frmreproductor.ZOrder
End Sub