crear en tiempo de ejecucion...

[Manu_Leon]

Mi pregunta es si se pueden crear labels o botones en tiempo de ejecucion. es decir:
if algo = true then
creo el boton y el label
end if

no me vale tenerlo oculto y hacer .visible = true
hay alguna forma de crear?? Gracias

[lop7]

HOLA....
pega este codigo en un form necesitaras dos botones un textbox y un label para
que veas como funciona

'
'Ejemplo de creación de controles en tiempo de ejecución
Option Explicit

'Llevará la cuenta de los controles creados
Private numControles As Long
Private Sub cmdCrear_Click()
'Crear un nuevo control de cada tipo'numControles está declarada a nivel de módulo
numControles = numControles + 1
'Crear los controles
Load Label1(numControles)
Load Text1(numControles)

'Posicionarlos y hacerlos visibles
With Label1(numControles)
.Visible = True
.Top = Label1(numControles - 1).Top + .Height + 120
.Caption = "Label1(" & numControles & ")"
End With
With Text1(numControles)
.Visible = True
.Top = Text1(numControles - 1).Top + .Height + 60
.Text = "Text1(" & numControles & ")"
End With
End Sub


Private Sub cmdEliminar_Click()
'Eliminar un elemento de cada control anteriormente creado'El control CERO no se puede eliminar
If numControles > 0 Then
'Descargarlos de la memoria
Unload Label1(numControles)
Unload Text1(numControles)
numControles = numControles - 1
End If
End Sub


Private Sub Form_Load()
'Por defecto creamos un control de cada array:
'un Label y un Textbox

' cmdCrear_Click
End Sub


saludos espero te sirva

[Manu_Leon]

Gracias, claro que me sirve

[Manu_Leon]

nada mas, gracias.. ;)

[aldo1982]

n las FAQs habia un ejemplo.
salu2