Ukážka

Script <SCRIPT language=VBSCRIPT><!--
const Cykly=-1'-1/0/n
const Rychlost=0.001'n
const StartPo=5'sekunda n
const UholX=2'0...360
const UholY=4'0...360
const UholH=-1'-360...0...360
Sub Window_OnLoad
call obMSDASG.SetIdentity
Button1.Value="Pauza"
End Sub

Sub Seq_OnInit
call seq("ActionSet1").At(StartPo, "RotateAll",Cykly , Rychlost, 1)
Call Seq("ActionSet1").Play
End Sub

Sub RotateAll
Call obMSDASG.Rotate(UholX,UholY,UholH,1)
End Sub

Sub StartPauza
Select Case Button1.Value
Case "Play"
Call Seq("ActionSet1").Play
Button1.Value="Pauza"
Case "Pauza"
Call Seq("ActionSet1").Pause
Button1.Value="Play"
End Select
End Sub
--></SCRIPT>

Objekty <OBJECT id=obMSDASG style="LEFT: 0px; TOP: 0px" height=400 width=600
classid=CLSID:369303C2-D7AC-11d0-89D5-00A0C90833E6 viewastext>
<PARAM NAME="SourceURL" VALUE="">
<PARAM NAME="CoordinateSystem" VALUE="0">
<PARAM NAME="MouseEventsEnabled" VALUE="0">
<PARAM NAME="HighQuality" VALUE="0">
<PARAM NAME="PreserveAspectRatio" VALUE="-1">
<PARAM NAME="Line0001" VALUE="SetLineColor(0,0,255)">
<PARAM NAME="Line0002" VALUE="SetFillColor(0,255,0,0,0,0)">
<PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
<PARAM NAME="Line0004" VALUE="SetLineStyle(1,2)">
<PARAM NAME="Line0005" VALUE="SetFont('arial',50,650,0,0,0)">
<PARAM NAME="Line0006" VALUE="Text('www.somr.szm.sk',-180,-40)">
<PARAM NAME="Line0007" VALUE="Text('SomrSoftware',-140,0)">
<PARAM NAME="Line0008" VALUE="Text('VBScript',-100,40)">
<PARAM NAME="Line0009" VALUE="Text('somr@extel.sk',-145,80)">
<PARAM NAME="Line0010" VALUE="Text('KOŠICE',-85,130)">
</OBJECT>
<OBJECT id=Seq style="WIDTH: 5px; HEIGHT: 5px"
classid=CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96>
</OBJECT>
<INPUT type=button id=Button1 onclick=StartPauza value="Pauza">
Názov objektu Microsoft MMCtls(Microsoft Multimedia Controls)
  • MicrosoftDirectAnimationStructuredGraphics
  • MicrosoftDirectAnimationSequencer
Názov súboru

daxctle.ocx

140kB