Agregar Control X en tiempo de ejecución Visual Basic .Net

El siguiente código sirve para agregar Control X en tiempo de ejecución en esta oportunidad agregaremos un Flash (.swf) a un panel llamado panelPrincipal dejo en claro que son elementos de ejemplo y que podrían ser cambiados por los que ustedes necesiten utilizar.

 
 Dim swfBanner = New AxShockwaveFlashObjects.AxShockwaveFlash() 'recuerden inicializar cada control que agreguen 

 CType(swfBanner, System.ComponentModel.ISupportInitialize).BeginInit() 'Esta linea establece el estado para poder crearlo y bloquea el Control X
 swfBanner.OcxState = CType(resources.GetObject("swfBanner.OcxState"), System.Windows.Forms.AxHost.State)
 swfBanner.Dock = DockStyle.Fill
 swfBanner.Enabled = True
 swfBanner.Location = New System.Drawing.Point(0, 0)
 swfBanner.Name = "swfBanner" + indice
 swfBanner.Size = New Size(131, 107)
 swfBanner.TabIndex = 0
 CType(swfBanner, System.ComponentModel.ISupportInitialize).EndInit() 'No olviden agregar esta linea ya que es la que cambia el estado del Control X para ser utilizado
 swfBanner.Movie = Path.GetFullPath("C://video.swf")
 swfBanner.Play()

 panelPrincipal.Controls.Add(swfBanner)

Esperamos sea de su utilidad, cualquier duda o sugerencia no duden en comentar

Saludos

También te podría gustar...