<OBJECT ID=SVideo CLASSID="clsid:7142BA01-8BDF-11CF-9E23-0000E8A37440" CODEBASE="bin/svideo.inf#version=1,0,0,165" HEIGHT=190 WIDTH=300 HSPACE=5 VSPACE=0> <PARAM NAME="DataSourceName" VALUE="images/bridgesm.svh"> <PARAM NAME="MouseManipulation" VALUE="1"> <PARAM NAME="DefaultLocation" VALUE="220000"> <PARAM NAME="RotationFactors" VALUE="10"> <PARAM NAME="ZoomKeySet" VALUE="0"> <PARAM NAME="EnableHyperlinks" VALUE="1"> </OBJECT>
The PARAMs are described below.
NAME |
VALUE |
||
---|---|---|---|
DataSourceName | URL of the source image. | ||
MouseManipulation | If set to 0, then the mouse can not be used to manipulate the image. Possible values are 0(off) and 1(on). The default is 1 | ||
DefaultLocation | This is the starting location when the image is first displayed. The value is in ArcSeconds and can range from 0 to 1296000, which is from 0 to 360 degrees. The default is 0 | ||
RotationFactors | A non zero value causes the image to auto-scroll. Positive values scroll right while negative values scroll left. The units are in seconds. For example, if the value is set to -10, the image will scroll right and complete a full rotation every 10 seconds. The default value is 0 | ||
ZoomKeySet | This selects the zoom key set. Possible values are 0(+/- keys on keypad), 1(I/O keys) and 2(ctrl/shift keys). The default value is 0 | ||
EnableHyperlinks | Enable (value=1) or Disable (value=0) Hyperlinks. The default value is 1. |
Try clicking on the buttons under the image. This is a simple demonstration of how you can use Scripting to automate the control. The code listed below is what makes it all happen.
<CENTER> <OBJECT ID=SVideo1 CLASSID="clsid:7142BA01-8BDF-11CF-9E23-0000E8A37440" CODEBASE="bin/svideo.inf#version=1,0,0,165" HEIGHT=190 WIDTH=350 HSPACE=0 VSPACE=5> <PARAM NAME="DataSourceName" VALUE="images/marin.svh"> <PARAM NAME="MouseManipulation" VALUE="1"> <PARAM NAME="DefaultLocation" VALUE="220000"> <PARAM NAME="RotationFactors" VALUE="0"> <PARAM NAME="ZoomKeySet" VALUE="0"> <PARAM NAME="EnableHyperlinks" VALUE="1"> </OBJECT> <FORM NAME="Form1"> <INPUT TYPE=BUTTON NAME="cmdToggleMouse" VALUE="Disable Mouse"> <INPUT TYPE=BUTTON NAME="cmdToggleLinks" VALUE="Disable Hyperlinks"> <INPUT TYPE=BUTTON NAME="cmdRotate" VALUE="Rotate"> <INPUT TYPE=BUTTON NAME="cmdSwitchDirection" VALUE="Switch Direction"> </FORM> </CENTER> <SCRIPT LANGUAGE="VBS"> <!-- Sub cmdToggleMouse_onClick If SVideo1.MouseManipulation = 1 then Set SVideo1.MouseManipulation = 0 Set Form1.cmdToggleMouse.value ="Enable Mouse" else Set SVideo1.MouseManipulation = 1 Set Form1.cmdToggleMouse.value ="Disable Mouse" end if End Sub Sub cmdToggleLinks_onClick If SVideo1.EnableHyperlinks = 1 then Set SVideo1.EnableHyperlinks = 0 Set Form1.cmdToggleLinks.value ="Enable Hyperlinks" else Set SVideo1.EnableHyperlinks = 1 Set Form1.cmdToggleLinks.value ="Disable Hyperlinks" end if End Sub Sub cmdSwitchDirection_onClick Set SVideo1.RotationFactors = SVideo1.RotationFactors * -1 End Sub Sub cmdRotate_onClick Set SVideo1.RotationFactors = 10 End Sub --> </SCRIPT>