Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
[SOLUCIONADO] Click En PictureBox
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Click En PictureBox 
 
Hola comunidad.

 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
 


 Si alguien me pudiera aconsejar le estaría muy agradecido.

Un saludo.
 



 
Guizans - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Click En PictureBox 
 
Aprovecha la propiedad tag, para asignarle a cada picturebox que se cree un codigo de identificacion (un numero que se a distinto para cada uno), y luego usa el objeto last, para saber cual es el ultimo objeto pulsado:

objeto[0].Picture = Picture.Load(a)
objeto[0].Picture.tag =0
 objeto[1].Picture = Picture.Load("/home/santos/Gambas/Gambas 3/prueba/flecha 2.jpg")
objeto[1].Picture.tag =1




Print "si", last.picture.tag 'escribiria el identificador del ultimo objeto pulsado.



Creo que asi te puede funcionar

Ejemplo de la documentacion de gambasdoc: http://gambasdoc.org/help/lang/last?es

Nota:
Mirate bien el codigo del ejemplo de documentación, ya que es muy similar a lo que quieres hacer:

DIM hButton[3] AS Button
 
hButton[0] = NEW Button(ME) AS "MyButtons"
 hButton[0].Text = "Rojo";
 
hButton[1] = NEW Button(ME) AS "MyButtons"
 hButton[1].Text = "Verde"
 
hButton[2] = NEW Button(ME) AS "MyButtons"
 hButton[2].Text = "Azul"
 
...
 
PUBLIC SUB MyButtons_Click()
 
  PRINT LAST.Text
 
END

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Viernes, 13 Septiembre 2013, 13:14; editado 4 veces 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Click En PictureBox 
 
Gracias por contestar tan rápido.

Voy un poco justo de tiempo y no me da tiempo ahora mismo pero en cuanto tengo un hueco miro el código que me has puesto de ejmplo.

En cuanto a lo de las etiquetas me da un error:

Citar:
Símbolo 'tag' desconocido en la clase 'Picture'


Lo dicho, en cuanto pueda me pongo.

Un saludo.
 



 
Guizans - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Click En PictureBox 
 
Si, no es correcto, prueba esto:


objeto[0].tag =0
 objeto[1].Picture = Picture.Load("/home/santos/Gambas/Gambas 3/prueba/flecha 2.jpg")
 objeto[1].tag =1


Y luego para leer la propiedad

print objeto[1].tag

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Viernes, 13 Septiembre 2013, 13:14; editado 3 veces 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Click En PictureBox 
 
Siento el retraso jsban, no he podido estar delante del ordenador hasta hoy.

He hecho evoluciones, ahora sólo tengo un pequeño escollo.

Public botones[3] as Button
public dibujo as new Picture[20]

Public Sub Form_Open()

botones[0] = New Button(Me) as "Misbotones"

dibujo[0]= Picture.Load("/home/santos/imagen.jpg")
botones[0].Picture = dibujo[0]
botones[0].w =50
botones[0].y = 50
botones[0].tag = 1
end

Public sub Misbotones_Click()

Print botones[0].tag

End
 


Este código hace lo que yo quería, las imágenes se convierten en botones y cuando se pulsa responde al evento. Pero el problema al que me enfrento es que cuando le toca imprimir la etiqueta que le asignado me devuelve una cadena vacía. ¿A que puede ser?

Muchas gracias por la paciencia.
 



 
Guizans - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Click En PictureBox 
 
Creo que ya lo tengo, no se la razón pero no se puede imprimir la etiqueta en la pantalla, pero si hago esto si que funciona:

If botones[0].tag = 1 then
 print "Es correcto"
Endif
 


Y es lo que necesito.

Un saludo.
 



 
Guizans - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Click En PictureBox 
 
Me extraña que sea lo que necesites, deberia de ser asi:
Citar:

If last.tag = 1 then
 print "Es correcto, has pulsado el boton UNO"
Endif


Ya que "last" es el ultimo objeto en el que has hecho click..., se la otra manera que expones siempre se va a ejecutar .... aunque no sea el ultimo boton pulsado el "1"
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Click En PictureBox 
 
Hola jsban.

Muy cierto, se me escapó ese pequeño detalle,  

Edito como resuelto.

Muchas gracias por todo.

Un saludo.
 



 
Guizans - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Matriz De PictureBox skhaliburg Controles/Librerías/Componentes 7 Miercoles, 12 May 2010, 01:38 Ver último mensaje
chen_08
No hay nuevos mensajes Cargar Imagen URL En PictureBox Cubel General 2 Jueves, 18 Noviembre 2010, 09:25 Ver último mensaje
Cubel
No hay nuevos mensajes Ayuda Con PictureBox Haseo Controles/Librerías/Componentes 5 Sabado, 14 May 2011, 17:08 Ver último mensaje
Haseo
No hay nuevos mensajes Path En Un Objeto PictureBox tomas Controles/Librerías/Componentes 3 Miercoles, 29 Agosto 2012, 10:17 Ver último mensaje
tomas
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron