Keskustelu: Ohjelmointikysymykset: VB6: näppäimistö\LoadPicture

Taas vaihteeks mulla on ongelma.... niinkuin yleensä :D

Tällä kertaa en osaa koodia näppäimien painamiseen

Pitäisi vaihtaa kuvaa aina kun painaa ylös\alas
esim.
jos picture1.picture = (App. Path & "\1.bmp") ni sit ku painaa ylös ni tuleeki (App. Path & "\2.bmp") ja jos on 2.bmp ja painaa alas ni tulee 1.bmp

private sub keydown(jotain tässä oli mutta en muista mitä)
case vbkeyup
label1.caption = label1.caption +1
picture1.picture = ("/" & label1.caption & ".bmp")
case vbkeydown
label1.caption = label1.caption -1
picture1.picture = ("/" & label1.caption & ".bmp")
end select

noin mä sen tekisin. Luo yks label ja laita sitte sen captioniks 1

estot voit viel tohon lisätä siihen kohtaa minne haluut et se ei mee yli, kun picturet loppuu

Ton labelin voi korvata ihan yksin kertaisella muuttujalla.

Dim kuva As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case 38
        kuva = kuva + 1
        Picture1.Picture = LoadPicture(App.Path & "\" & kuva & ".bmp")
    Case 40
        kuva = kuva - 1
        Picture1.Picture = LoadPicture(App.Path & "\" & kuva & ".bmp")
End Select
End Sub

Mutta jos tarkoitat että ylös ja alas menolle on eri kuva eli kuvaa 0 ja 3 ei ole niin laita tälläi.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
    Case 38
        Picture1.Picture = LoadPicture(App.Path & "\2.bmp")
    Case 40
        Picture1.Picture = LoadPicture(App.Path & "\1.bmp")
End Select
End Sub

et oo määritelly et mikä toi kuva on ;)

määritelly mikä toi kuva on? siis hä? =) :D

The Znottari kirjoitti:

määritelly mikä toi kuva on? siis hä? =) :D

Sulta puuttui sun koodistasi esimerkiksi: LoadPicture(tähän sitten filun nimi jne...)

Ja turhaa mitään labeleita mukaan. ;)