Miten onnisuisi tehdä animoitu sprite VB6:lla? Eli kun painetaan vasemmalle tulee animaatio missä sprite kävelee vasemmalle ja kun painetaan oikealle niin tulee tietenkin animaatio missä sprite kävelee oikealle?
Vaikka näin:
Private Animaatiomuisti As Double Private Sub Form_Load() Animaatiomuisti=0 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'kun nappia painetaan vasemmalle If KeyCode = vbKeyLeft Then Liikuta_Vasemmalle 'kun nappia painetaan oikealle If KeyCode = vbKeyRight Then Liikuta_Oikealle End Sub Private Sub Liikuta_Vasemmalle() Äijä.Left = Äijä.Left - 1 Äijä.Picture = LoadPicture(App.Path & "/Vasemmalle/" & Animaatiomuisti & ".jpg") Animaatiomuisti = Animaatiomuisti + 1 'Tähän sitte ton 5:n tilalle se luku kui monta kuvaa siellä on... If Animaatiomuisti = 5 Then Animaatiomuisti = 0 End Sub Private Sub Liikuta_Oikealle() Äijä.Left = Äijä.Left + 1 Äijä.Picture = LoadPicture(App.Path & "/Oikealle/" & Animaatiomuisti & ".jpg") Animaatiomuisti = Animaatiomuisti + 1 'Tähän sitte ton 5:n tilalle se luku kui monta kuvaa siellä on... If Animaatiomuisti = 5 Then Animaatiomuisti = 0 End Sub
laita noi sitten vaikka timeriin (ei hyvä) jos haluat hidastaa liikettä...
Eikö tuo ole hieman hidasta ladata kuva joka käänteessä uudestaan? Blittais vaikka isommasta kuvasta aina oikean palan tms.
nii on joo! mut toi oli lähinnä toi et miten sen saa animoitua! :)
hmm noh tjaa.. Mites tämä onnistuu DirectX8 käyttäen?
Periaatehan on täysin sama, Picture-ominaisuuden asettamisen sijaan vain piirrät DX:n tarjoamilla työkaluilla (D3DSprite.Draw())
Joo kiitos paljon...Osaanin tästä luultavasti itse..
Aihe on jo aika vanha, joten et voi enää vastata siihen.