Mød en af Nordens fremmeste eksperter i adfærdsdesign – Morten Münster, der bl.a. har skrevet ” Jytte fra marketing er desværre gået for i dag” – på Computerworld Cloud & AI Festival.
Denne kode her skifter mellem hest og kat hvert 5. sekund, men kræver, at du har en imagebox på din form:
Dim blnVisHest As Boolean Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 5000 Image1.Stretch = True End Sub Private Sub Timer1_Timer() blnVisHest = Not blnVisHest If blnVisHest Then Image1.Picture = LoadPicture("C:\hest.gif") Else Image1.Picture = LoadPicture("C:\kat.gif") End If End Sub
Men som jeg forstår vil du loade et nyt hvert 3. eller 5. sekund - dvs. at der med tiden vil være uendeligt mange heste og katte på din form, eller?
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.