https://foro.gambas-es.org/viewtopic.php?f=1&t=819
-----------------------------------
Invitado
Sabado, 31 Julio 2010, 18:31

"On Press" En Gambas [SOLVED]
-----------------------------------
Hola, me gustaria algún ejemplo de lo que llamo "on press" no se como se llama realmente..xD
La cuestión, tengo botones, quiero que al apretar la letra A (por ejemplo) se ejecute ese botón...
Saludos


-----------------------------------
abarzuaf
Sabado, 31 Julio 2010, 19:50

Re: "On Press" En Gambas
-----------------------------------
Hola.

¿Te refieres a esto?

[code linenumbers=false syntax=gambas]PUBLIC SUB Label1_MouseDown()

Button1_Click

END

PUBLIC SUB Button1_Click()

  Message("Hola Mundo")

END[/code]

Saludos


-----------------------------------
Invitado
Sabado, 31 Julio 2010, 19:56

Re: "On Press" En Gambas
-----------------------------------
Gracias por responder, pero me temo que no es eso..

Pongo un ejemplo, tengo un botón que se llama letra_a, cuando [b]con mi teclado [/b] aprete a la letra A quiero que se ejecute el boton letra_a (que obviamente tiene un código)


-----------------------------------
AnSnarkista
Sabado, 31 Julio 2010, 20:02

Re: "On Press" En Gambas
-----------------------------------
Se hace con los eventos Key_Press y Key_Release y en el codigo del evento, añadirias un SELECT CASE con cada posibilidad.

La cosa es que no se hacer el codigo del SELECT CASE...


-----------------------------------
abarzuaf
Sabado, 31 Julio 2010, 20:27

Re: "On Press" En Gambas
-----------------------------------
Hola.

¿y este?

[code linenumbers=false syntax=gambas]PUBLIC SUB Button1_Click()
   Message("Hola Mundo")


END

PUBLIC SUB Form_KeyPress()

 IF Key[Key.Text] = Key["a"] THEN 
    Button1_Click
    
  END IF

END[/code]

Saludos


-----------------------------------
fabianfv
Sabado, 31 Julio 2010, 20:59

Re: "On Press" En Gambas
-----------------------------------
[quote]
tengo un botón que se llama letra_a, cuando con mi teclado  aprete a la letra A quiero que se ejecute el boton letra_a 
[/quote]

Si el botón se llama "letra_a" podrías establecer su propiedad Text (caption) a algo como "&A" o "Letra &A" que se verá como [u]A[/u] o Letra [u]A[/u]. Al pulsar la tecla A se lanzará el evento predefinido del botón (que es el evento Click).


-----------------------------------
Invitado
Domingo, 01 Agosto 2010, 09:49

Re: "On Press" En Gambas
-----------------------------------
Gracias abarzuaf, es justo lo que necesitaba :)
A los otros dos gracias también.. 

Una cuestión mas y cierro, como represento el INTRO? o sea, al apretar la tecla intro ocurra algo..


-----------------------------------
CanihoJR
Domingo, 01 Agosto 2010, 10:54

Re: "On Press" En Gambas
-----------------------------------
yo buscaba los códigos con key.code para saber que había pulsado xDD un warning mismo que muestre el key.code. :P


-----------------------------------
abarzuaf
Domingo, 01 Agosto 2010, 15:02

Re: "On Press" En Gambas
-----------------------------------
Hola.

[code linenumbers=false syntax=gambas]PUBLIC SUB Button1_Click()
   Message("Hola Mundo")


END

PUBLIC SUB Form_KeyPress()

 IF Key.code = Key.RETURN THEN
    Button1_Click
    
  END IF

END[/code]

Saludos


