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 Sub
Kristallipalloni 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.