Brevemente, vamos a ver esto:
1) activar los componentes "gb.media" y gb.media.form ;
2) poner sobre un Formulario un objeto "MediaView";
3) probar este codigo (EL problema !):
4) despues, probar este codigo, con el cual incorporamos un Button en MediaView:
Public Sub Form_Open()
Dim ob As Object
ob = MediaView1.Children[0]
ob = ob.Children[0]
ob = ob.Children[2]
With bt = New Button(ob.Children[3]) As "Abrir"
.X = 10
.Y = 5
.W = 40
.H = 20
.Text = "Abrir"
.Border = Border.None
End With
End
Public Sub Abrir_Click()
With Dialog
If .OpenFile() Then Return
MediaView1.URL = .Path
End With
End
Public Sub Abrir_Enter()
bt.Border = Border.Plain
End
Public Sub Abrir_Leave()
bt.Border = Border.None
End
Uruguay
