control con Tag
Publicado por guihe (40 intervenciones) el 03/06/2008 12:52:26
Hola a todos,
tengo un formulario con un ComboBox que muestra números del 1 al 15. Según el número que elija aparecen tantos Textbox como el número seleccionado. Para que aparezcan utilizo 'tag'.Funciona bien si seleccionas numeros ascendentes, es decir, que si seleccion 4 aparecen 4 textbox. Si vuelvo a seleccionar 6, aparecen 6 textbox, pero si de nuevo selecciono 2, siguen los 6 textbox.
Bueno os pongo el código a ver si os aclara un poco (que sé que me explico fatal):
Dim c As Object
If NSIMULACION = 1 Then
For Each c In Frame5.Controls
If c.Tag <= 5 Then c.Visible = True
Next
Set c.Tag = Nothing
Else
If NSIMULACION = 2 Then
For Each c In Frame5.Controls
If c.Tag <= 10 Then c.Visible = True
Next
Else
If NSIMULACION = 3 Then
For Each c In Frame5.Controls
If c.Tag <= 15 Then c.Visible = True
Next
Set c.Tag = Nothing
Else
..... (sigue asi hasta NSIMULACION = 15)
Muchas gracias
tengo un formulario con un ComboBox que muestra números del 1 al 15. Según el número que elija aparecen tantos Textbox como el número seleccionado. Para que aparezcan utilizo 'tag'.Funciona bien si seleccionas numeros ascendentes, es decir, que si seleccion 4 aparecen 4 textbox. Si vuelvo a seleccionar 6, aparecen 6 textbox, pero si de nuevo selecciono 2, siguen los 6 textbox.
Bueno os pongo el código a ver si os aclara un poco (que sé que me explico fatal):
Dim c As Object
If NSIMULACION = 1 Then
For Each c In Frame5.Controls
If c.Tag <= 5 Then c.Visible = True
Next
Set c.Tag = Nothing
Else
If NSIMULACION = 2 Then
For Each c In Frame5.Controls
If c.Tag <= 10 Then c.Visible = True
Next
Else
If NSIMULACION = 3 Then
For Each c In Frame5.Controls
If c.Tag <= 15 Then c.Visible = True
Next
Set c.Tag = Nothing
Else
..... (sigue asi hasta NSIMULACION = 15)
Muchas gracias
Valora esta pregunta


0