Después de un tiempo de abandonar gambas he vuelto a coger el tema, pero ando un poco oxidado.
El caso es que recurro para solventar una pequeña duda a ver si alguien me puede ayudar.
Estoy haciendo un pequeño programa en el cual creo una serie de PictureBox a través de código. estos PictureBox cargan una imagen. Hasta aquí todo perfecto. Pero ahora es cuando me surge la pregunta ¿cómo puedo hacer que estos PictureBox al hacer click con el ratón hagan algo? El tema es que puede ser que en algún momento sólo haya un par de PictureBox o más, el número es variable. Este sería el código donde hago las pruebas:
Private a As String
Private objeto As New Object[20]
Public Sub _new()
End
Public Sub Form_Open()
Dim c As Integer
a = ("/home/santos/Gambas/Gambas 3/prueba/flecha 1.jpg")
For c = 0 To 5
objeto[c] = New PictureBox(FMain)
objeto[c].x = 50 * c
Next
objeto[0].Picture = Picture.Load(a)
objeto[1].Picture = Picture.Load("/home/santos/Gambas/Gambas 3/prueba/flecha 2.jpg")
End
Public Sub objeto_MouseDownk()
Print "si"
End
Private objeto As New Object[20]
Public Sub _new()
End
Public Sub Form_Open()
Dim c As Integer
a = ("/home/santos/Gambas/Gambas 3/prueba/flecha 1.jpg")
For c = 0 To 5
objeto[c] = New PictureBox(FMain)
objeto[c].x = 50 * c
Next
objeto[0].Picture = Picture.Load(a)
objeto[1].Picture = Picture.Load("/home/santos/Gambas/Gambas 3/prueba/flecha 2.jpg")
End
Public Sub objeto_MouseDownk()
Print "si"
End
Si alguien me pudiera aconsejar le estaría muy agradecido.
Un saludo.