Imprimir página | Cerrar ventana

Ayuda con Imagenes

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86733
Fecha de impresión: 27/Marzo/2026 a las 04:50


Tema: Ayuda con Imagenes
Publicado por: Tory1009
Asunto: Ayuda con Imagenes
Fecha de publicación: 04/Julio/2023 a las 20:24
Buenas, soy novato y tengo una imagen irregular que esta seccionada en 8 partes, de las 8 partes tengo que sombrear las partes seleccionadas que pueden ser 1 hasta las 8 no tengo idea de como abordar este problema desearia que alguien me dijera por donde puedo investigar sobre eso


Respuestas:
Publicado por: lbauluz
Fecha de publicación: 05/Julio/2023 a las 11:26
¿Estás intentando hacer un Captcha o algo similar?

Es solo para entender lo que pides.


Luis


-------------
El Búho es un pajarraco

Publicado por: Tory1009
Fecha de publicación: 05/Julio/2023 a las 16:12
No veras tengo esta imagen y un grupo de opciones para escoger dependiendo de la escogencia la imagen debe cambiar

Publicado por: lbauluz
Fecha de publicación: 06/Julio/2023 a las 10:35
Hasta donde yo se, no tienes una forma de cambiar el brillo de la imagen en VBA (a lo mejor existe, pero yo lo desconozco)

Lo que yo haría es tener dos imágenes de cada trozo, una con luz normal y otra sombreada y al hacer click, cambiarlas.

Lo he probado, a medias mirando solo el nombre de la imagen (es decir, he querido probar cómo capturar el click en una imágen) y he conseguido esto:

Crea un módulo de clase (en este ejemplo se llama Class_Imagen)

Pega esto:

Private WithEvents ImagenPersonalizada As Image

Public Sub InicialiceImagen(imgToCusomize As Image)
    Set ImagenPersonalizada = imgToCusomize 
End Sub

Private Sub ImagenPersonalizada_Click()
    MsgBox ImagenPersonalizada.Name
    'Aquí lo que quieras hacer con la imagen al recibir el click
End Sub


Ahora, en el Form (en este caso yo lo he dejado como UserForm1), que es donde tienes que tener las imágenes pon esto:

Public colImagenPersonalizadas As Collection

Private Sub UserForm_Initialize()
Dim ctl As Control
Dim clsImagenPersonalizada As Class_Imagen

Set colImagenPersonalizadas = New Collection
    
    For Each ctl In Me.Controls
        If TypeName(ctl) = "Image" Then
            Set clsImagenPersonalizada = New Class_Imagen
            clsImagenPersonalizada.InicialiceImagen ctl
            colImagenPersonalizadas.Add clsImagenPersonalizada
        End If
    Next ctl
End Sub


Creo que a partir de ese punto ya podrás seguir,

He buscado si hay una opción de "brightness" pero no la he encontrado en VBA, por eso te sugiero lo de cambiar la imagen por otra que ya tenga el brillo cambiado.

Un saludo.

Luis



-------------
El Búho es un pajarraco

Publicado por: Tory1009
Fecha de publicación: 06/Julio/2023 a las 18:24
Oye Muchas Gracias por lo que estoy leyendo ya me llegaron un par de ideas a la mente y seguro al probar la que me sugieres me ayudara un monton gracias de nuevo.


Imprimir página | Cerrar ventana