Visual Basic - REVERTIR LA MATRIX

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

REVERTIR LA MATRIX

Publicado por RUBEN20032004 (6 intervenciones) el 03/06/2005 04:41:45
… Hol@ a tod@s hace poco Dani un listero compartió esta idea de cómo generar automáticamente TextBox, por medio de matriz de controles:

'Debe existir un control txtBox, y debe tener el indice 0, y intNuevoIndice debe ser distinto de 0

Load txtBox(intNuevoIndice)
'Despues podemos asignar valores a los nuevos controles
txtBox(intNuevoIndice).Visible=True
txtBox(intNuevoIndice).Left=100
txtBox(intNuevoIndice).Top=100
'Etc...

... ahora he intentado revertir la generación de TextBox, sin éxito... lo q' busco ahora es q' borre todos los TextBox y solo quede el origen de la matriz de controles, es decir el TextBox(0) <---- el de indice 0 ---, para
volver a comenzar.... alguna idea???...

Ruben
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:REVERTIR LA MATRIX

Publicado por SetFocus (183 intervenciones) el 03/06/2005 05:28:52
Hola, quizas esto te sirva. Suponiendo que tenes un boton para borrar losTextbox podrias poner en el evento click del boton el siguiente codigo:

Private Sub Command1_Click()

Dim MiTextBox As Control

For Each MiTextBox In Controls
If TypeName(MiTextBox) = "TextBox" Then 'Verificas que es un TextBox
If MiTextBox.Index <> 0 Then 'Verificas que no sea el primero
Unload MiTextBox 'Descargas el TextBox
End If
End If
Next

End Sub

Bueno NEO...jijii Espero sea lo que buscas.Saludos
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

RE:REVERTIR LA MATRIX

Publicado por David (2 intervenciones) el 20/06/2005 19:46:46
probaste ya con

Unload <nombre_obj>(<indice>).
?

solo te permite eliminar los que creaste en tiempo de ejecucion.
espero que te ayude esto.

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