Access - Como añadir un control dinamicamente?

 
Vista:

Como añadir un control dinamicamente?

Publicado por Betty (1 intervención) el 25/06/2008 09:30:21
Hola!

Como se añade un control a un formulario dinamicamente?

Estoy intentando lo siguiente:
Dim txt As TextBox
txt = New TextBox
txt.Top = 5
txt.Left = 5
Me.Controls.Add(txt)

Pero el metodo Add no aparece para Controls.

De todas formas aunque el ejemplo es para un textbox me gustaria aprender de manera general
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como añadir un control dinamicamente?

Publicado por mi menda (1111 intervenciones) el 27/06/2008 07:11:22
Hola Betty:

Primero decirte que es la primera vez que me he puesto a ver esto, y de la ayuda de VBA he adaptado un ejemplo.

Private Sub Comando0_Click()

Dim frm As Form, ctl As Control
DoCmd.OpenForm "Formulario1", acDesign

Set frm = Forms!Formulario1

Set ctl = CreateControl(frm.Name, _
acTextBox, acDetail, , , 500, 500, 1500, 300)
ctl.BackColor = vbYellow

DoCmd.OpenForm frm.Name, acNormal


End Sub

Simplemente creas un formulario y lo llamas Formulario1, luego pones este código en un botón de otro formulario, y te creara un textbox con fondo amarillo en el Formulario1. Para crear controles parece ser que hay que hacerlos en la vista diseño. La función CreateControl(), puedes verla en la ayuda.

Un Saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar