[VB6]Skift af billeder

Hej.

Skal billederne vises på selve formen?  og ikke i en picture- eller imageboks.

Under timeren:

Form1.Picture = LoadPicture(sti & "bil" & a & ".jpg")
a = a + 1
If a = 11 then a = 0

billederne skal selvfølgelig så hedde bil0.jpg, bil1.jpg bil2.jpg ...

M.v.h.  Jørn

hej og tak for hurtig svar gerne i en Picruerbox vis det er ok

Hej.

Imageboks og Pictureboks har forskellige egenskaber.  Læs i hjælpen hvilken der bedst dækker dit behov.

Ellers er koden den samme.

For at blanke:  image1.picture = LoadPicture()

M.v.h.  Jørn

hej igen det kan jeg ikke få til at virke gider du prøve at lave hele soursen til mig
på forhånd tak
nvh HC

HC>>
Skriv her den kode du har lavet!

m.v.h.  Jørn

hej jeg har ikke noget der bare er i nærheden af at virke er ret begynder agtig med mit vb6 såå...
mvh HC

Hej.

Jeg vil ikke skrive din kode.  Bliv inspireret af dette projekt.
http://www.jkfsoft.dk/pakker/kilde8.zip
Programmet kan ses på http://jkfsoft.dk/visbill.htm

Kildeteksten ligger der 2 dage.  Tak for point!

M.v.h.  Jørn

Hej og mange tak
du skal heller ikke skrive min kode

hej ville bare lige sige at nu virker det.
men det er lavet med 11 Pictureboxe på en form en der heder Picture1 og 10 der heder SkjultBillede i en arry så er der en timer og en knap

Private Sub Command1_Click()
Timer1 = True
End Sub

Sub Timer1_Timer()
    Static iCount As Integer

    iCount = iCount + 1
    Picture1.Picture = SkjultBillede(iCount).Picture
    If iCount >= 10 Then
        iCount = 0
    End If

End Sub

mvh HC og igen tak for hjælpen

Hej.

Ok, så behøver billederne jo heller ikke navngives systematisk, men de skal have den rigtige størrelse og forhold mellem siderne.

Hav en god dag.  m.v.h. Jørn