El nuevo objeto "MediaView" no tiene instrumentos, objetos para abrir una ventana de la Clase ''Dialog'' que nos permita de eligir un archivo........


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:
Private bt As Button


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

no me funciona el código

 

esto si pero se ve raro:

v3ctor escribió: [Ver mensaje]

no me funciona el código

Probablemente entretanto han cambiado algo en el Componente gb.media.form .

El nuovo codigo:

ahora si anda perfecto