Animationer

Hejsa,

Jeg er i gang med komponenten "ASP-Image" at lave nogle animationer.
Til at starte med vil jeg bare have at siden laver en box, som flytter sig.
Det eneste jeg kan få den til, er at lave en ny box ved siden af den anden!

Det den derfor skal gøre, er at slette den gamle firkant, før end den begynder på den nye.
Hvordan gør jeg det?

Min kode er:


<%
Server.ScriptTimeout = 300

    sub drawmybot (xoffset, yoffset)
    for a = 1 to 7
        for b = 1 to 7
              Image.SetPixel b+xoffset, a+yoffset, vbGreen
        next
    next
    end sub

  Set Image = Server.CreateObject("AspImage.Image")

  Image.Padsize = "0"

  Image.BackgroundColor = vbBlack
  Image.MaxX = 256
  Image.MaxY = 256
  intDelay = 15 'how long time between each sequence?
 
  Image.StartAnimation false 'false = no loop

for i=1 to 10

drawmybot i*10,i*10

    Image.AddImageToAnimation

    Image.AddAnimationControl intDelay, false, 0
   
   
next


 
  'set your path to webserver
  Image.FileName = "d:\wwwroot\minside\test\test\msg1.gif"
  Image.SaveAnimation
  Response.Write "<img src=""test\msg1.gif""><br>"
  Set Image = nothing

%>