Keskustelu: Ohjelmointikysymykset: VB6: Picturebox

mites sais sellasen kun on pictureboxi ja siellä sit vaikka pallo niin että kun painaa välilyöntiä niin pallolähtee liikkeelle ja pysähtyy sit automaattisesti sinne alas.

Jotenkin näin:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode=vbKeySpace Then
    For i = Picture1.Top To Height-Picture1.Height
      Picture1.Top=i
      DoEvents
    Next
  End If
End Sub

Emmä saa tota toimiin siis mulla on picture1 eli se on tausta ja sit on picture2 joka on pallo. pallo pitäisi saada liikkeelle välilyöntiä painamalla jolloin picture2 eli pallo lähtee liikkeelle ja menee picture1 alas eli alussa se on ylhäällä ja sit painamisen jälkeen se pikkuhiljaa alas.

No korvaa sitten Picture1 Picture2:lla ja vaihda pelkkä Height Picture1.Heightiksi.

Muista myös laittaa Formin KeyPreview-arvoksi True.

toimii muuta mites mä siihen sit saisin että kun lisäsin siihen sellaset valot ja niitä on kolme eli kun 1 ja 2 ja 3 on syttynyt niin saa lähtee ja jos painaa ennen kuin noin valot sammunu niin tulee msgbox sanoo että älä huijaa.

Private Sub KeyDown(KeyCode as integer, shift as integer)
if valo3.visible = false then
msgbox ("joo, joo")
End If
End Sub

enhän minä muista mitään enkä kerkeä nyt koittaa...
en muista meneekö noin... no kertokaa mitä tohon väliin tulee että näppäimenä on kaikki näppäimet...
no ihan sama...

Katoppas:

Private Sub KeyDown(KeyCode as integer, shift as integer)
If KeyCode = vbKeyUp Then
If Valo3.Visible = False Then
msgBox ("Joo, joo")
Else:
End If
End If

tuolla on se koodi mitä oon nyt saanu aikaiseksi
http://www.monkeymania.com/koodi.txt
sanokaa mikä siinä nyt kusee.

Voitko kertoa mitä olet tekemässä tai mitä haluat tehdä? Tuo näyttää jonkunlaiselta lähtövalosysteemiltä, mutta mitä tulee tapahtua Space-näppäimestä, mitä Ylös-näppäimestä?

siis tarkotus olis tehdä joku just tällänen lähtöjuttu jossa olisi esim:2 autoa vastaikkain ja spaceistä auto lähtisi liikkeelle. nuoli näppäimestä ei pitäs tapahtua mitään.

No sitten korvaa molemmat KeyDown-aliohjelmat seuraavalla:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then
  If Shape3.FillColor<>vbGreen Then
    Msgbox "Joo joo!"
  Else
    For i = Picture2.Top To Height
      Picture2.Top = i
      DoEvents
    Next
  End If
  arvo = MsgBox("sinä tulit maaliin", 0, "Kilpailun tulos")
End If
End Sub

muuten toimii niin kuin pitäisi mutta pieni bugi on se että kun ottaa "varaslähdön" niin siihen tulee sit vielä että tulit maaliin boxi.
koodi on tän näkönen nyt
http://www.monkeymania.com/koodi.txt

Lisää MsgBox "Joo joo!" jälkeen
Exit Sub, niin pitäisi toimia

Missä/miten sä Antti oot oppinu visual basicin?

Viiden vuoden aikana kotona kokeilemalla.

Antti oot niin hyvä että kertoisit vielä miten saa tietokoneen vastaan

En, mutta jos vielä kerran vastaat yli kuukauden vanhaan viestiin, joudun poistamaan tunnuksesi. Sama pätee toistuviin turhiin viesteihin.