Problemas con controls.add

[shiningp]

Alguien sabe como puedo agregar un control flash con el metodo Controls.add

[luciano]

Hola, yo lo probé con este Id de clase "ShockwaveFlash.ShockwaveFlash.1"

...y me funcionó perfecto:

Código:

Private WithEvents obj As ShockwaveFlash
Private Sub Form_Load()

Set obj = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash.1", "sh1")

obj.Visible = True

obj.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

'obj.LoadMovie
' etc....

End Sub

Nota: Tenés que ir a opciones de proyecto, Solapa "Generar", y marcar la opción : "Quitar información de controles Activex no usados"

saludos


---------

[shiningp]

Funciono muy bien, Gracias Luciano

[luciano]

Hola, otra forma de crearlo, sin tener que incluir la referencia y eso que te dije antes, es declarando la variable como Object, pero de esta forma no podés usar Eventos para ese control (WidthEvents)

es deir esto te daria error

Código:

Private WithEvents obj As Object

.. y tendría que ser

Código:

Private  obj As Object

saludos

[adunafel]

Hola buenas,

y si en vez de un control estandar

Me.Controls.Add("VB.CommandButton", "miBoton")

fuera un control creado en un formulario de la aplicación?

Controls.Add("frmTipos.botMiboton", "miBoton")

esto no funciona!!! Algún consejo?
Muchas gracias