Dim i As Integer Private Sub Form_Load() Timer1.Interval = 50 i = 1 Image1.Picture = loadpicture(App.Path & "\mypic" & i & ".jpg") End Sub
Private Sub Timer1_Timer() If i = 100 Then i = 1 ElseIf i < 100 Then Image1.Picture = loadpicture(App.Path & "\mypic" & i & ".jpg") i = i + 1 End If End Sub
Denne funktion kræver 100 billeder navngivet mypic1.jpg, mypic2.jpg osv....
Synes godt om
Slettet bruger
02. oktober 2002 - 23:19#5
Nej Det jeg søger er hvordan jeg får system til at sætte en picture ind i samme stil som den kode jeg har vist i starte. Jeg ved det kan lade sige gøre kan bare ikke huske hvordan man gør. Det er ikke nåde med bruge af loadpicture. men nåde af denne stil
dim ny_images as picture ny_images.move 55,5,5,5 ny_images.enabel = True load ny_images
Selv om du selv fandt løsningen må du godt paste den her, så vi andre kan se din løsning på dit spg :O)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.