Yritän saada liikutettua nuolinäppäimillä pientä kuvaa. Katsoin oppaasta vinkkiä, mutta jotain on pielessä. Käynnistyttyään ohjelm ei tee yhikäs mittää...?
Tällaiselta näyttää koodi:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
Picture1.Left = Picture1.Left - 10
Case vbKeyRight
Picture1.Left = Picture1.Left + 10
Case vbKeyUp
Picture1.Top = Picture1.Top - 10
Case vkeydown
Picture1.Top = Picture1.Top + 10
End Select
End SubKristallipalloni sanoo, että formin KeyPreview-ominaisuuden asettaminen trueksi auttaa.
Nykyisellään ne napinpainallukset menevät aktiiviselle kontrollille, joka ei ole se formi, vaan se PictureBoxi. KeyPreview saa aikaan sen, että ne menevät ensin formille, ja sitten vasta aktiiviselle kontrollille.
No juupa juu.... Niinhän se onkin
Kiitokset vastauksesta jatketaan...
Aihe on jo aika vanha, joten et voi enää vastata siihen.