NET Infor

Circulo Animado

Copie o código fonte do script abaixo:

Sub RotateAll
	Call Oval1.Rotate(-5,0,5)
	Call Oval2.Rotate(5,0,5)
	Call Oval3.Rotate(-5,0,5)
	Call SG1.Rotate(-5,10,5)
	AVAR = Window.SetTimeOut("Call RotateAll", 10, "VBScript")
End Sub
</script>
<div ID="DivRegion" align STYLE="POSITION:ABSOLUTE; WIDTH:353px;HEIGHT:355px"> 
  <p align="center">
<object ID="SG1" STYLE="POSITION:ABSOLUTE; HEIGHT:350; WIDTH:350 ;LEFT:0 ;TOP:0"
CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" width="14" height="14">
  <param name="Line0001" value="SetFillStyle(1)">
  <param name="Line0002" value="SetFillColor(210,210,210)">
  <param name="Line0003" value="Pie(-160,-160,320,320,0,10,0)">
  <param name="Line0004" value="SetFillColor(0,0,100)">
  <param name="Line0005" value="Pie(-160,-160,320,320,0,10,18)">
  <param name="Line0006" value="SetFillColor(210,210,210)">
  <param name="Line0007" value="Pie(-160,-160,320,320,0,10,36)">
  <param name="Line0008" value="SetFillColor(0,0,100)">
  <param name="Line0009" value="Pie(-160,-160,320,320,0,10,54)">
  <param name="Line0010" value="SetFillColor(210,210,210)">
  <param name="Line0011" value="Pie(-160,-160,320,320,0,10,72)">
  <param name="Line0012" value="SetFillColor(0,0,100)">
  <param name="Line0013" value="Pie(-160,-160,320,320,0,10,90)">
  <param name="Line0014" value="SetFillColor(210,210,210">
  <param name="Line0015" value="Pie(-160,-160,320,320,0,10,108)">
  <param name="Line0016" value="SetFillColor(0,0,100)">
  <param name="Line0017" value="Pie(-160,-160,320,320,0,10,126)">
  <param name="Line0018" value="SetFillColor(210,210,210)">
  <param name="Line0019" value="Pie(-160,-160,320,320,0,10,144)">
  <param name="Line0020" value="SetFillColor(0,0,100)">
  <param name="Line0021" value="Pie(-160,-160,320,320,0,10,162)">
  <param name="Line0022" value="SetFillColor(210,210,210)">
  <param name="Line0023" value="Pie(-160,-160,320,320,0,10,180)">
  <param name="Line0024" value="SetFillColor(0,0,100)">
  <param name="Line0025" value="Pie(-160,-160,320,320,0,10,198)">
  <param name="Line0026" value="SetFillColor(210,210,210)">
  <param name="Line0027" value="Pie(-160,-160,320,320,0,10,216)">
  <param name="Line0028" value="SetFillColor(0,0,100)">
  <param name="Line0029" value="Pie(-160,-160,320,320,0,10,234)">
  <param name="Line0030" value="SetFillColor(210,210,210)">
  <param name="Line0031" value="Pie(-160,-160,320,320,0,10,252)">
  <param name="Line0032" value="SetFillColor(0,0,100)">
  <param name="Line0033" value="Pie(-160,-160,320,320,0,10,270)">
  <param name="Line0034" value="SetFillColor(210,210,210)">
  <param name="Line0035" value="Pie(-160,-160,320,320,0,10,288)">
  <param name="Line0036" value="SetFillColor(0,0,100)">
  <param name="Line0037" value="Pie(-160,-160,320,320,0,10,306)">
  <param name="Line0038" value="SetFillColor(210,210,210)">
  <param name="Line0039" value="Pie(-160,-160,320,320,0,10,324)">
  <param name="Line0040" value="SetFillColor(0,0,100)">
  <param name="Line0041" value="Pie(-160,-160,320,320,0,10,342)">
  <param name="Line0042" value="SetFillColor(210,210,210)">
  <param name="Line0043" value="Pie(-160,-160,320,320,0,10,360)">
</object>
<object ID="OVAl1" STYLE="POSITION:ABSOLUTE;HEIGHT:350;WIDTH:350;LEFT:0;TOP:0"
CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" width="14" height="14">
  <param name="Line0001" value="SetFillStyle(0)">
  <param name="Line0002" value="SetLineStyle(1)">
  <param name="Line0003" value="SetLineColor(210,210,210)">
  <param name="Line0004" value="SetFillColor(210,210,210)">
  <param name="Line0005" value="OVAL(-160,-160,320,320,0)">
</object>
<object ID="OVAl2" STYLE="POSITION:ABSOLUTE;HEIGHT:350;WIDTH:350;LEFT:0;TOP:0"
CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" width="14" height="14">
  <param name="Line0001" value="SetFillStyle(0)">
  <param name="Line0002" value="SetLineStyle(1)">
  <param name="Line0003" value="SetLineColor(210,210,210)">
  <param name="Line0004" value="SetFillColor(210,210,210)">
  <param name="Line0005" value="OVAL(-160,-160,320,320,0)">
    </object> <object ID="OVAl3" STYLE="POSITION:ABSOLUTE;HEIGHT:350;WIDTH:350;LEFT:0;TOP:0"
CLASSID="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6" width="239" height="262">
      <param name="Line0001" value="SetFillStyle(0)">
  <param name="Line0002" value="SetLineStyle(1)">
  <param name="Line0003" value="SetLineColor(210,210,210)">
  <param name="Line0004" value="SetFillColor(210,210,210)">
  <param name="Line0005" value="OVAL(-160,-160,320,320,0)">
  
</object></p>