new - keybord does not work anymore

[vito49]

Hello all, I'm more or less new to Gambas, I was out for about a year, but picked up Gambas again to compose small programs ... just to keep the brain cells going, I'm 71
And now I have a small problem, I can't program the keyboard anymore.
The code:

Code: Select all

Public Sub Form1_KeyPress()                           
 If Key.Code = Key.F5 
      PictureBox1.Picture = Picture[("/home/zzz/zzz/" & "start.jpg")]
       Message("well done")
 Endif     
 End

What am I doing wrong?
Thanks in advance.

BTW: hopefully my English is good enough

[stevedee]

...What am I doing wrong?...

I created a new project and added this:-

Public Sub Form_KeyPress()                           
 If Key.Code = Key.F5 
       Message("well done")
 Endif     
End

which works.

It could be that you have written in error: Form1

[cogier]

Hi vito49 and welcome to the Forum.

I agree with Steve that it should be 'Form_KeyPress()' not 'Form1_KeyPress()'. Also I suggest you use 'User.Home' and the '&/' which means you don't have to worry about the correct amount of '/'.

Public Sub Form_KeyPress()    'Form1_KeyPress()

  If Key.Code = Key.F5
    PictureBox1.Picture = Picture[User.Home &/ "zzz/zzz/start.jpg"]   'Picture[("/home/zzz/zzz/" & "start.jpg")]
    Message("well done")
  Endif

End

[vito49]

Public Sub Form_KeyPress()    'Form1_KeyPress()

  If Key.Code = Key.F5
    PictureBox1.Picture = Picture[User.Home &/ "zzz/zzz/start.jpg"]   'Picture[("/home/zzz/zzz/" & "start.jpg")]
    Message("well done")
  Endif

End

Hi, that was the error. thanks to you all.