Variable objeto

03/11/2003 - 22:25 por julian-vlc-sp | Informe spam

¡Hola a tod@s!

Tengo el siguiente código que no hace lo que yo pretendo, (seguro que es
porque he puesto algo mal)

Private Sub abrir1_Click()

Dim a As Integer
Dim boton1 As CommandButton
Dim boton2 As CommandButton

'ajustar
a = 1

Set boton1 = "abrir" & Trim(Str(a))
Set boton2 = "cerrar" & Trim(Str(a))

. . . . . .

. . . . . .

boton1.Visible = False
boton2.Visible = True

End Sub

Como veis, este código se ejecuta al hacer click en un botón que se llama
abrir1.

Quiero poner mas botones, que llamaré abrir2, abrir3, etc, a estos botones
les pego el código que he puesto arriba y pongo a=2, a=3. etc.(esta variable
la necesito para otra parte de código)

En las dos ultimas filas quiero hacer visible y oculto, unos botones que se
llaman "abrir1" y "cerrar1", y para no tener que cambiar el 1 de los nombres
de estos botones, y dado que tengo la variable a, que tiene el valor que
necesito, he pensado hacer lo que veis en el código con unas variables as
objeto, pero no funciona.

¿Me podéis ayudar?

SALUDOS.
julian-valencia-españa

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Fernando Arroyo

04/11/2003 - 09:15 | Informe spam

Intenta:

Set boton1 = Me("abrir" & a)
Set boton2 = Me("cerrar" & a)

Un saludo.

Fernando Arroyo
MS MVP - Excel

PS: Envié este mismo mensaje hace un rato, pero por error debí darle a "Responder al remitente" en vez de a "Responder al grupo". Perdón.

"julian-vlc-sp" <ijulianARROBAiespana.es> escribió en el mensaje news:u$

¡Hola a !

Tengo el siguiente código que no hace lo que yo pretendo, (seguro que es
porque he puesto algo mal)

>Private Sub abrir1_Click()
>
> Dim a As Integer
> Dim boton1 As CommandButton
> Dim boton2 As CommandButton
>
> 'ajustar
> a = 1
>
> Set boton1 = "abrir" & Trim(Str(a))
> Set boton2 = "cerrar" & Trim(Str(a))
>
> . . . . . .
>
> . . . . . .
>
> boton1.Visible = False
> boton2.Visible = True
>
>End Sub

Como veis, este código se ejecuta al hacer click en un botón que se llama
abrir1.

Quiero poner mas botones, que llamaré abrir2, abrir3, etc, a estos botones
les pego el código que he puesto arriba y pongo a=2, a=3. etc.(esta variable
la necesito para otra parte de código)

En las dos ultimas filas quiero hacer visible y oculto, unos botones que se
llaman "abrir1" y "cerrar1", y para no tener que cambiar el 1 de los nombres
de estos botones, y dado que tengo la variable a, que tiene el valor que
necesito, he pensado hacer lo que veis en el código con unas variables as
objeto, pero no funciona.

¿Me podéis ayudar?

SALUDOS.
julian-valencia-españa

Responder a este mensaje

#7 julian-vlc-sp

04/11/2003 - 22:07 | Informe spam

Gracias, pero son solo 4 ó 5 los botones que necesito poner.

La hoja la tengo funcionando, porque cambiar abrir1 por abrir2, etc, no
cuesta tanto.

Mi interés era curiosidad, por si en otra ocasión me es totalmente
necesario.

SALUDOS
julian-valencia-españa

Responder a este mensaje

#8 julian-vlc-sp

04/11/2003 - 22:25 | Informe spam

Gracias, pero no funciona, me da error 438, que el objeto no admite esta
propiedad o metodo.

SALUDOS.
julian-valencia-españa

Siga el debate Respuesta

Responder a este mensaje

Ads by Google