I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.