SoloCodigo

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

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...

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