Crear controles

Creado por David Miralpeix, Modificado el Vie, 16 Feb, 2024 a 12:26 P. M. por David Miralpeix

Ú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#:

Creación TextoUsuario

Creación ComboUsuario

Creación CheckBoxUser

Creación GridUsuario

Creación Panel

Creación Pestaña y Panel

Creación Pestaña y Grid

¿Le ha sido útil este artículo?