Programación General > VBA

 Referenciar TextBox creado Dinamicamente

(1/2) > >>

BioK:
Hola todos he creado N TextBox en forma dinamica. Pero el problema es que ahora no puedo recuperar el contenido de la propiedad .text de cada CajaDeTexto pareciera como si no me anduviera el atributo Name del Controls.Add Ayuda por favor no se que mas hacer...Este es el codigo que tengo

topFreq = 60
leftFreq = 200

For i = 1 To N

Dim txtFreq As TextBox
Set txtFreq = Form.Controls.Add("Forms.TextBox.1", CStr("textFreq" & CStr(i)))


txtFreq.Top = topFreq
txtFreq.Left = leftFreq

topFreq = topFreq + 30

Next i

'*********

Private Sub CommandButton1_Click()
Dim variableX as integer

variableX = textFreq1.Text

End Sub



Saludos desde  de Corrientes. BioK

m0skit0:
Bienvenido al foro BioK.

UTILIZA LAS ETIQUETAS DE CÓDIGO

Tu problema radica en que estás haciendo referencia a textFreq1, que no existe. Sólo existe txtFreq.

Salud

BioK:
se supone que tendria que existir porque al poner Set txtFreq = form.Controls.Add(id,[nombre],[visible]) el atributo nombre sirve para despues hacer referencia al objeto, que como esta en un ciclo tengo varios por eso uso un subindice... Pero igualmente fuera de Private Sub UserForm_initialize() no me anda ni tratando de usar la referencia a txtFreq.Text. La verdad ya nose que mas probar...

m0skit0:
:ph34r:  :ph34r:  :ph34r:

Vuelve a mirar bien el código que tienes. Míralo fijamente... ¿De verdad no lo ves, o estás de broma?  :alien:

BioK:
Jaja no la verdad no lo veo. Y de verdad este codigo asi no me anda por favor si ves algo raro decimelo. Gracias (si decias por la "e" estaba probando nomas llamarlo de otra forma distinta a la definición Dim txtFreq As TextBox pero tampoco anda )

Private Sub UserForm_initialize()
topFreq = 60
leftFreq = 200

For i = 1 To N

Dim txtFreq As TextBox
Set txtFreq = Form.Controls.Add("Forms.TextBox.1", CStr("txtFreq" & CStr(i)))


txtFreq.Top = topFreq
txtFreq.Left = leftFreq

topFreq = topFreq + 30

Next i

'*********

Private Sub CommandButton1_Click()
Dim variableX as integer

variableX = txtFreq1.Text

End Sub

Navegación

[0] Índice de Mensajes

[#] Página Siguiente