Arrays dinamicas

24/11/2003 - 19:25 por Anonimo | Informe spam
gracias anticipadas
sabeis alguien como crear un array e ir añadiendo objetos
mediante un bucle?
necesito crear un array con cien botones y no me aptc
escribir el nombre de todos

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
25/11/2003 - 04:55 | Informe spam
Hola, [¿?] !

... como crear un array e ir añadiendo objetos mediante un bucle?
necesito crear un array con cien botones y no me aptc escribir el nombre de todos



es posible que no sea 'necesario crear' una matriz e 'ir cargando' los objetos [o elementos]
[p.e.] podrias 'aprovechar' una 'coleccion de objetos' [en lugar de crear una matriz] 'pero'...
1.- ¿que es 'exactamente' lo que necesitas hacer?
- 'crear' botones
- 'buscar' botones [...]
2.- ¿en 'donde' lo tienes que hacer?
- en hojas de calculo
- en formularios de usuario [...]

¿comenta datos adicionales?
saludos,
Héctor.
Respuesta Responder a este mensaje
#2 Zapata
25/11/2003 - 19:38 | Informe spam
Hola Hector
Se me paso lo del nombre. Necesito cambiar propiedades a
unos botones en un formulario..
gracias, one more time.
Respuesta Responder a este mensaje
#3 Héctor Miguel
26/11/2003 - 07:53 | Informe spam
Hola, Zapata !

Se me paso lo del nombre. Necesito cambiar propiedades a unos botones en un formulario...



[entonces] SI puedes 'aprovechar' la coleccion de objetos 'Controls' del formulario [p.e.]
'recorrer' la coleccion... 'descartar' lo que NO sean del tipo 'CommandButton' y modificar sus propiedades
[solo] 'procura' NO cambiar la propiedad 'Name' [el CodeName] o tendras 'problemas' al 'buscarlo' de nuevo :((
un ejemplo [de algunas propiedades] seria +/- como la siguiente macro:
en un modulo de codigo 'normal' ==Sub Controles_En_Formulario()
Dim Objeto As MSForms.Control, ObjetoMaestro As String
For Each Objeto In UserForm1.Controls
If TypeName(Objeto) = "CommandButton" Then
With Objeto
If TypeName(.Parent) = .Parent.Name _
Then ObjetoMaestro = "El Formulario" _
Else ObjetoMaestro = TypeName(.Parent)
MsgBox "Nombre del botón: " & .Name & vbCr & _
" Texto en el botón: " & .Caption & vbCr & _
" Está en el objeto: " & ObjetoMaestro & vbCr & _
" Que se llama: " & .Parent.Name & vbCr & _
" Con el texto de: " & .Parent.Caption
End With
End If
Next
End Sub

saludos,
Héctor.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida