Útil para cuando queremos generar una serie de controles nuevos sin depender del asistente de creación de controles manual.
Código VB6:
En los formularios DDA también podemos crear controles por código e invocarlos mediante gform.Controls("NombreControl). Pero si el control se ha creado por el entorno de diseño, deberá invocarse el control de la siguiente manera: gform.ControlesDDA ("NombreControl")
'Parámetros: Librería.Control, NombreDelControl, ControlContenedor
'El contenedor puede ser el propio formulario, un panel, una pestaña.
Para crear un texto alineado:
gForm.Controls.Add("AhoraOcx.TextoAlinDerecha", "Pers_MiControlTextoAD", Gform)
Para crear un Texto:
Set lControl = gForm.Controls.Add("AhoraOcx.TextoUsuario", "Pers_MiControlTexto", GForm)
Para crear un Combo
gForm.Controls.Add("AhoraOCX.ComboUsuario", "Pers_MiControlCombo", Gform..controls("TabDatos"))
Para crear un Grid
gForm.Controls.Add("AhoraOCX.cntGridUsuario", "Pers_MiControlGrid", Gform.TabGrid)
Para crear un panel y una pestaña
Set lPnl = gForm.Controls.Add("AhoraOCX.cntPanel", "PnCierresBolsas" )
lPnl.ResizeInterior =True
lPnl.ResizeEnabled = False
lPnl.Estilo=0
lPnl.Visible=True
gForm.TabGrids.InsertItem 100, "&Bolsas Cierres", lPnl.Hwnd, 1
Para crear un panel con una pestaña autodimensionable (threed.SSPanel) para un grid
Set lPnlMain = gForm.Controls.Add("AhoraOCX.CntTab", "PersTab") 'Crea el contenedor de pestañas
lpnlMain.Visible=True
Set lPnlGrid = gForm.Controls.Add("Threed.SSPanel", "Pers_PnlGrid",lPnlMain) 'Crea el Panel autoajustable a la grid
lPnlGrid.autosize = 3
lPnlGrid.visible = true
lPnlMain.InsertItem 1, "Líneas de pedido agrupado",lPnlGrid.Hwnd, 1 'Crea la pestañaCódigo C#: