0

Hola a todos estoy diseñandoun tablero dejuego con el control image, y esto controles los genero de manera dinamica, este es el codigo que utilizo:

Private Sub UserForm_Initialize()
 Dim i, j, top, left, z As Integer
 top = 0
 left = 0
 z = 1
 For i = 1 To 5
    For j = 1 To 8
        Set Imagen = userform1.Controls.Add("Forms.Image.1")
        With Imagen
            '.Name = "img" & j
            .AutoSize = True
            .Picture = LoadPicture("C:\Users\Sebastián Valencia\Desktop\Nueva carpeta (2)\" & z & ".jpg")
            .PictureSizeMode = fmPictureSizeModeStretch
            .top = top
            .left = left
            left = left + 108
            z = z + 1
        End With
    Next
    left = 0
    top = top + 115
    j = 1
Next

End Sub

Este codigo me crea 40 image, pero lo que quiero ahora es saber a cual de ellos lo presione para asignarle una imagen diferente,no he logrado encontrar la solucion al problema.

Gracias por la ayuda que me puedan brindar

4
  • bueno y que has intentando para llevar ese control de conteo de click por imagenes?????? creo que a tu objetivo le falta codigo ... tiene que en teoria... caturar el evento de click en la imagen y llevarlo a un contado por imagen ... eso lo puedes hacer con un arreglo ... pero todo eso tienes que programarlo, son solo conceptos ... Commented el 25 ene. a las 20:20
  • Hola, no se como hacerlo, si me ayudas Commented el 25 ene. a las 20:35
  • ok primero tienes que buscar en google como hacerlo... hay muchos tutoriales Commented el 25 ene. a las 20:36
  • Me imagino que las imágenes tendrán eventos asociados. Juega con el evento correspondiente (no sé si click o activate) para que envíe la información de dónde se ha hecho clic. Aquí puedes ver los eventos asociados en la parte izquierda
    – Esei
    Commented el 26 ene. a las 15:21

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.