Crear controles

Creado por David Miralpeix, Modificado el Lun, 17 Nov a 8:22 A. M. por Pablo Céspedes

Ú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ña

Código C#:

TextoUsuario - Crear TextoUsuario / TextoMultilinea

ComboUsuario - Crear ComboUsuario

CheckBoxUser - Crear CheckBoxUser

Grid - Crear Grid

Panel - Crear un panel

Pestañas - Agregar una pestaña

Pestañas - Añadir pestaña con grid