Button, billede og tæller

Sæt en PictureBox, en Commandbutton og en timer på formen. Skriv følgende:

Private Sub Command1_Click()
  Picture1.Picture = LoadPicture(\"C:\\Indsæt eget billede her\")
  Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Static intTimer As Integer
  intTimer = intTimer + 1
  If intTimer = 10 Then
    Set Picture1.Picture = Nothing
    Timer1.Interval = 0
  End If
End Sub

Når du trykker på knappen vises dit billede i 10 sekunder og så fjernes det igen.

Er det det du mener?

2 sek. jeg skal lige prøve.

Nej der står: Compile error: Expected End Sub

Jo du er tæt på.
Men det skal være sådan at det er \"knappen\" man skal trykke på.
Og at billede skal skifte til et andet billede.
Og så skal man kunne se hvor meget tid der er gået

jamen du trykker da også på knappen for at vise billedet?

i private sub timer1_timer() tilføjer du bare
label1.caption = \"tid tilbage: \" & 10 - inttimer

hvilke billeder der skal vises bestemmer du i picture1.picture = loadpicture(billednavn)

ellers må du forklare lidt nærmere

Kan du ikke skrive det hele i ét?
Så kan jeg bedre forstå det :)

du skal sætte en label ind et sted på formen.

Private Sub Command1_Click()
  Picture1.Picture = LoadPicture(\"C:\\Indsæt eget billede her\")
  Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Static intTimer As Integer
  intTimer = intTimer + 1
  label1.caption = \"Tid tilbage: \" & 10 - intTimer
  If intTimer = 10 Then
    Set Picture1.Picture = Nothing
    Timer1.Interval = 0
  End If
End Sub

Du vil vise forskellige billeder hver gang brugeren trykker på knappen, eller hvad vil du?

okay vær lidt tålmodig..jeg prøver lige.

du skal nok få dine points

Jo nu er den rigtig nok.
Der manger 1 ting, kan du lave sådan at man kan se hvor mange gange man ahr nået at klikke på de 10 sekunder?

Altså det er jo det spillet går ud på :)

Her er det hele:

Option Explicit

Dim intAntal As Integer

Private Sub Command1_Click()
  If intAntal = 0 Then
    Picture1.Picture = LoadPicture(\"C:\\graphics\\sample.jpg\")
    Timer1.Interval = 1000
  End If
  intAntal = intAntal + 1
End Sub

Private Sub Timer1_Timer()
  Static intTimer As Integer
  intTimer = intTimer + 1
  Label1.Caption = \"Sek: \" & 10 - intTimer
  If intTimer = 10 Then
    Set Picture1.Picture = Nothing
    Timer1.Interval = 0
    MsgBox \"Du trykkede \" & intAntal & \" gange på knappen\"
    intAntal = 0
    intTimer = 0
  End If
End Sub

God fornøjelse :)

Dejligt!
Mega tak for hjælpen :)

ARGH! kaffe det hele virkede pånær 1 eneste ting!

´Når tiden er gået står der \"Du har trykket  gange på knappen\"

Der såtr ikke hvor mange?!

selvtak :)

Der står ikke hvor mange gange man har trykket!

Check lige linien med

msgbox \"Du har trykket \" & intAntal & \" gange på knappen\"

Jeg checkede det her og det virker....

hvad mener du ?

skal jeg ændre noget?

altså jeg har fået alt det andet til at virke