• Martes 14 de Mayo de 2024, 03:33

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - BioK

Páginas: [1]
1
VBA / Re: Referenciar TextBox creado Dinamicamente
« en: Martes 17 de Marzo de 2009, 15:28 »
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

2
VBA / Re: Referenciar TextBox creado Dinamicamente
« en: Lunes 16 de Marzo de 2009, 19:50 »
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...

3
VBA / Referenciar TextBox creado Dinamicamente
« en: Sábado 14 de Marzo de 2009, 20:09 »
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

Páginas: [1]