Visual Basic para Aplicaciones - EVENTO PARA LABELS EN UN FORM

Hola,

En un formulario he insertado unos diferentes labels (unos 40). Lo que deseo hacer es ejecutar una macro cuando se haga clic sobre alguna de esas 40 labels.

Podría crear un evento para cada una de esas label, pero esto me supondría generar mucho código.

¿Se puede generar un mismo evento que se ejecute cuando se haga clic sobre cualquier label que tengo en formulario?

Gracias

Hola, no queda muy claro que es lo que queres hacer, si queres poner un texto en todos los labels es sencillo, si en cada label queres poner un texto diferente es otro tema.
Aclará primero que queres hacer y de ahí se vé cómo.

Una opción es crear un label, que se llame por ejemplo "label1", pones copiar y pegar y te va a pregunar si querés crear una matriz de controles y le decis que sí, de esa manera te va a crear todos los labels como label1 y en la propiedad "index" te va a figurar del 0 al 39, de esa forma, en el evento "click" del label pones un buble similar a esto:


eso va a hacer que te lleno los 40 labels con la misma leyenda.
Si lo que queres es poner algo diferente en cada una tendras uqe hacer algo así.

Hola Jose
Puedes crear un procedimiento con lo que deseas que haga el Label y llamarlo desde el evento click, P.ej:


Pero tendrías que editar el procedimiento click de cada label como el ejemplo

Saludos

Muchas gracias por vuestras contestaciones. Con ambas se consigue lo que pretendo pero me obliga a desarrollar un sin fin de eventos (uno por label) o un case por cada label.

Podría ser una opción crear un evento mediante un módulo clase que agruparse a todos los label que tengo en el formulario? No tengo ninguna experiencia al respecto y no sé si sería posible...

Hola de nuevo José

Efectivamente, mediante un modulo de clase se pueden crear todos los controles que deses y controlar sus eventos mediante un arreglo, te adjunto un ejemplo de esto, estudialo y aplicalo a tus necesidades.

Espero sea lo que necesitas.

Saludos

• Crear-controles.zip(27,3 KB)

Muchisimas gracias!! El módulo clase es la solución perfecta a lo que buscaba...con unas pocas lineas de código he conseguido que todas las labels reaccionen conforme esperaba. Mil gracias Alfredo por tu archivo me ha sido de gran ayuda y además tampoco sabía que se pueden general controles, así que 2 en 1!! Sensacional!!

Buenas Jose

Otra forma de modificar el caption de los label seria con un array, te dejo un ejemplo, aunque tendrías que editar el procedimiento click de cada label, suena a mucho trabajo pero no es así, es solo copiar y pegar en cada evento, te tomara a lo mucho 10 min editar los 40 labels.

Básicamente es lo que te propuso Alfredo en su primer comentario, solo que no es como piensas, no se requiere hacer un case o if por cada texto que quieras poner a x label.

Incluso lo podrías combinar con el ejemplo que te compartió Alfredo

Espero te sirva

Saludos

• EjemploJosemod.zip(25,9 KB)

Muchas gracias Miguel, tu solución también es muy buena y funciona perfectamente. El problema es que realmente tengo 457 labels en el formulario, asi que el modulo clase me evita crear 457 eventos.De cualquier modo, me parece una solución genial!! Mil Gracias!!