3,スクリプトを移植してみましょう!ActiveX & VBScript を使ったサンプルを移植するには、スクリプトの大文字小文字や スペル間違い、スクリプトの配置場所などを注意する必要が有ります。 サンプルのスクリプトは、このまま、コピー&ペーストでご利用ください。1,テキスト文字をグリグリ回転させる ActiveX & VBScript (使用されている ActiveX Control) Microsoft IE 30 Label Control
|
|
<body> <OBJECT ID="IeLabel1" WIDTH=150 HEIGHT=100 CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"> <PARAM NAME="_ExtentX" VALUE="8281"> <PARAM NAME="_ExtentY" VALUE="7117"> <PARAM NAME="Caption" VALUE=" HTML ! "> <PARAM NAME="Angle" VALUE="0"> <PARAM NAME="Alignment" VALUE="1"> <PARAM NAME="Mode" VALUE="1"> <PARAM NAME="FillStyle" VALUE="0"> <PARAM NAME="ForeColor" VALUE="#0000FF"> <PARAM NAME="BackColor" VALUE="#C0C0C0"> <PARAM NAME="FontName" VALUE="Arial"> <PARAM NAME="FontSize" VALUE="30"> <PARAM NAME="FontItalic" VALUE="1"> <PARAM NAME="FontBold" VALUE="1"> <PARAM NAME="FontUnderline" VALUE="0"> <PARAM NAME="FontStrikeout" VALUE="0"> <PARAM NAME="TopPoints" VALUE="0"> <PARAM NAME="BotPoints" VALUE="0"> <h3>電子署名を確認して ActiveX Control<br> をダウンロードすると表示されます!</h3> </OBJECT> <SCRIPT LANGUAGE="VBScript"> <!--VBScript Sub IeTimer1_Timer() IeLabel1.Angle=IeLabel1.Angle+10 end sub --> </SCRIPT> <OBJECT ID="IeTimer1" WIDTH=39 HEIGHT=39 CLASSID="CLSID:59CCB4A0-727D-11CF-AC36-00AA00A47DD2"> <PARAM NAME="_ExtentX" VALUE="1005"> <PARAM NAME="_ExtentY" VALUE="1005"> <PARAM NAME="Interval" VALUE="100"> </OBJECT> </body> |