home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1997 January / NETPower0197.iso / pc / nettools / webstuf / activex / samples / eggplant / fruit.alx < prev    next >
Encoding:
Text File  |  1996-09-08  |  13.1 KB  |  321 lines
  1. <SCRIPT LANGUAGE="VBScript">
  2. <!--------' A SCRIPT LANGUAGE tag should be the first item on this page ------->
  3. </SCRIPT>
  4. <!-- 
  5. This page is implemented using a draft specification recently published by the
  6. Worldwide Web Consortium (W3C) that extends HTML capabilities to provide exact,
  7. 2D layout features.  Refer to http://www.w3.org/pub/TR/WD-layout.htm for more
  8. information on the tags used in these pages. This source page is displayed in
  9. the Internet Explorer 3.0 using the Microsoft HTML Layout Control.
  10.  -->
  11.  
  12. <!-- 
  13. The following lines of VB Script accomplish the drag/drop of the images.
  14. Only five lines of script code are needed for each image.
  15.  -->
  16.  
  17. <SCRIPT LANGUAGE="VBScript" FOR="hair1" EVENT="mousemove( button, shift, x, y)">
  18. if  button=1 then
  19.     hair1.left= x+hair1.left-10
  20.     hair1.top=y+hair1.top-10
  21. end if
  22. </SCRIPT>
  23. <SCRIPT LANGUAGE="VBScript" FOR="hair2" EVENT="mousemove( button, shift, x, y)">
  24. if  button=1 then
  25.     hair2.left= x+hair2.left-10
  26.     hair2.top=y+hair2.top-10
  27. end if
  28. </SCRIPT>
  29. <SCRIPT LANGUAGE="VBScript" FOR="hair3" EVENT="mousemove( button, shift, x, y)">
  30. if  button=1 then
  31.     hair3.left= x+hair3.left-10
  32.     hair3.top=y+hair3.top-10
  33. end if
  34. </SCRIPT>
  35. <SCRIPT LANGUAGE="VBScript" FOR="ears1" EVENT="mousemove( button, shift, x, y)">
  36. if  button=1 then
  37.     ears1.left= x+ears1.left-10
  38.     ears1.top=y+ears1.top-10
  39. end if
  40. </SCRIPT>
  41. <SCRIPT LANGUAGE="VBScript" FOR="ears2" EVENT="mousemove( button, shift, x, y)">
  42. if  button=1 then
  43.     ears2.left= x+ears2.left-10
  44.     ears2.top=y+ears2.top-10
  45. end if
  46. </SCRIPT>
  47. <SCRIPT LANGUAGE="VBScript" FOR="ears3" EVENT="mousemove( button, shift, x, y)">
  48. if  button=1 then
  49.     ears3.left= x+ears3.left-10
  50.     ears3.top=y+ears3.top-10
  51. end if
  52. </SCRIPT>
  53. <SCRIPT LANGUAGE="VBScript" FOR="eyes1" EVENT="mousemove( button, shift, x, y)">
  54. if  button=1 then
  55.     eyes1.left= x+eyes1.left-10
  56.     eyes1.top=y+eyes1.top-10
  57. end if
  58. </SCRIPT>
  59. <SCRIPT LANGUAGE="VBScript" FOR="eyes2" EVENT="mousemove( button, shift, x, y)">
  60. if  button=1 then
  61.     eyes2.left= x+eyes2.left-10
  62.     eyes2.top=y+eyes2.top-10
  63. end if
  64. </SCRIPT>
  65. <SCRIPT LANGUAGE="VBScript" FOR="eyes3" EVENT="mousemove( button, shift, x, y)">
  66. if  button=1 then
  67.     eyes3.left= x+eyes3.left-10
  68.     eyes3.top=y+eyes3.top-10
  69. end if
  70. </SCRIPT>
  71. <SCRIPT LANGUAGE="VBScript" FOR="nose1" EVENT="mousemove( button, shift, x, y)">
  72. if  button=1 then
  73.     nose1.left= x+nose1.left-10
  74.     nose1.top=y+nose1.top-10
  75. end if
  76. </SCRIPT>
  77. <SCRIPT LANGUAGE="VBScript" FOR="nose2" EVENT="mousemove( button, shift, x, y)">
  78. if  button=1 then
  79.     nose2.left= x+nose2.left-10
  80.     nose2.top=y+nose2.top-10
  81. end if
  82. </SCRIPT>
  83. <SCRIPT LANGUAGE="VBScript" FOR="nose3" EVENT="mousemove( button, shift, x, y)">
  84. if  button=1 then
  85.     nose3.left= x+nose3.left-10
  86.     nose3.top=y+nose3.top-10
  87. end if
  88. </SCRIPT>
  89. <SCRIPT LANGUAGE="VBScript" FOR="mouth1" EVENT="mousemove( button, shift, x, y)">
  90. if  button=1 then
  91.     mouth1.left= x+mouth1.left-10
  92.     mouth1.top=y+mouth1.top-10
  93. end if
  94. </SCRIPT>
  95. <SCRIPT LANGUAGE="VBScript" FOR="mouth2" EVENT="mousemove( button, shift, x, y)">
  96. if  button=1 then
  97.     mouth2.left= x+mouth2.left-10
  98.     mouth2.top=y+mouth2.top-10
  99. end if
  100. </SCRIPT>
  101. <SCRIPT LANGUAGE="VBScript" FOR="mouth3" EVENT="mousemove( button, shift, x, y)">
  102. if  button=1 then
  103.     mouth3.left= x+mouth3.left-10
  104.     mouth3.top=y+mouth3.top-10
  105. end if
  106. </SCRIPT>
  107. <SCRIPT LANGUAGE="VBScript" FOR="hands1" EVENT="mousemove( button, shift, x, y)">
  108. if  button=1 then
  109.     hands1.left= x+hands1.left-10
  110.     hands1.top=y+hands1.top-10
  111. end if
  112. </SCRIPT>
  113. <SCRIPT LANGUAGE="VBScript" FOR="hands2" EVENT="mousemove( button, shift, x, y)">
  114. if  button=1 then
  115.     hands2.left= x+hands2.left-10
  116.     hands2.top=y+hands2.top-10
  117. end if
  118. </SCRIPT>
  119. <SCRIPT LANGUAGE="VBScript" FOR="hands3" EVENT="mousemove( button, shift, x, y)">
  120. if  button=1 then
  121.     hands3.left= x+hands3.left-10
  122.     hands3.top=y+hands3.top-10
  123. end if
  124. </SCRIPT>
  125. <SCRIPT LANGUAGE="VBScript" FOR="shoe1" EVENT="mousemove( button, shift, x, y)">
  126. if  button=1 then
  127.     shoe1.left= x+shoe1.left-10
  128.     shoe1.top=y+shoe1.top-10
  129. end if
  130. </SCRIPT>
  131. <SCRIPT LANGUAGE="VBScript" FOR="shoe2" EVENT="mousemove( button, shift, x, y)">
  132. if  button=1 then
  133.     shoe2.left= x+shoe2.left-10
  134.     shoe2.top=y+shoe2.top-10
  135. end if
  136. </SCRIPT>
  137. <SCRIPT LANGUAGE="VBScript" FOR="shoes3" EVENT="mousemove( button, shift, x, y)">
  138. if  button=1 then
  139.     shoes3.left= x+shoes3.left-10
  140.     shoes3.top=y+shoes3.top-10
  141. end if
  142. </SCRIPT>
  143. <DIV BACKGROUND="#408080" STYLE="LAYOUT:FIXED;WIDTH:412pt;HEIGHT:268pt;">
  144.     <OBJECT ID="egghead"
  145.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:83pt;LEFT:182pt;WIDTH:71pt;HEIGHT:121pt;ZINDEX:0;">
  146.         <PARAM NAME="PicturePath" VALUE="egghead.gif">
  147.         <PARAM NAME="AutoSize" VALUE="-1">
  148.         <PARAM NAME="BorderStyle" VALUE="0">
  149.         <PARAM NAME="Size" VALUE="2487;4260">
  150.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  151.     </OBJECT>
  152.     <OBJECT ID="hair1"
  153.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:8pt;LEFT:0pt;WIDTH:63pt;HEIGHT:38pt;ZINDEX:1;">
  154.         <PARAM NAME="PicturePath" VALUE="hair1.gif">
  155.         <PARAM NAME="AutoSize" VALUE="-1">
  156.         <PARAM NAME="BorderStyle" VALUE="0">
  157.         <PARAM NAME="Size" VALUE="2223;1349">
  158.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  159.     </OBJECT>
  160.     <OBJECT ID="hair2"
  161.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:116pt;LEFT:8pt;WIDTH:56pt;HEIGHT:33pt;ZINDEX:2;">
  162.         <PARAM NAME="PicturePath" VALUE="hair2.gif">
  163.         <PARAM NAME="AutoSize" VALUE="-1">
  164.         <PARAM NAME="BorderStyle" VALUE="0">
  165.         <PARAM NAME="Size" VALUE="1958;1164">
  166.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  167.     </OBJECT>
  168.     <OBJECT ID="hair3"
  169.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:58pt;LEFT:0pt;WIDTH:68pt;HEIGHT:50pt;ZINDEX:3;">
  170.         <PARAM NAME="PicturePath" VALUE="hair3.gif">
  171.         <PARAM NAME="AutoSize" VALUE="-1">
  172.         <PARAM NAME="BorderStyle" VALUE="0">
  173.         <PARAM NAME="Size" VALUE="2381;1773">
  174.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  175.     </OBJECT>
  176.     <OBJECT ID="ears1"
  177.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:8pt;LEFT:190pt;WIDTH:89pt;HEIGHT:45pt;ZINDEX:4;">
  178.         <PARAM NAME="PicturePath" VALUE="ears1.gif">
  179.         <PARAM NAME="AutoSize" VALUE="-1">
  180.         <PARAM NAME="BorderStyle" VALUE="0">
  181.         <PARAM NAME="Size" VALUE="3149;1588">
  182.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  183.     </OBJECT>
  184.     <OBJECT ID="ears2"
  185.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:8pt;LEFT:297pt;WIDTH:93pt;HEIGHT:48pt;ZINDEX:5;">
  186.         <PARAM NAME="PicturePath" VALUE="ears2.gif">
  187.         <PARAM NAME="AutoSize" VALUE="-1">
  188.         <PARAM NAME="BorderStyle" VALUE="0">
  189.         <PARAM NAME="Size" VALUE="3281;1693">
  190.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  191.     </OBJECT>
  192.     <OBJECT ID="ears3"
  193.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:8pt;LEFT:99pt;WIDTH:85pt;HEIGHT:44pt;ZINDEX:6;">
  194.         <PARAM NAME="PicturePath" VALUE="ears3.gif">
  195.         <PARAM NAME="AutoSize" VALUE="-1">
  196.         <PARAM NAME="BorderStyle" VALUE="0">
  197.         <PARAM NAME="Size" VALUE="2990;1535">
  198.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  199.     </OBJECT>
  200.     <OBJECT ID="nose1"
  201.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:99pt;LEFT:297pt;WIDTH:29pt;HEIGHT:35pt;ZINDEX:7;">
  202.         <PARAM NAME="PicturePath" VALUE="nose1.gif">
  203.         <PARAM NAME="AutoSize" VALUE="-1">
  204.         <PARAM NAME="BorderStyle" VALUE="0">
  205.         <PARAM NAME="Size" VALUE="1032;1217">
  206.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  207.     </OBJECT>
  208.     <OBJECT ID="nose2"
  209.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:58pt;LEFT:297pt;WIDTH:26pt;HEIGHT:41pt;ZINDEX:8;">
  210.         <PARAM NAME="PicturePath" VALUE="nose2.gif">
  211.         <PARAM NAME="AutoSize" VALUE="-1">
  212.         <PARAM NAME="BorderStyle" VALUE="0">
  213.         <PARAM NAME="Size" VALUE="900;1429">
  214.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  215.     </OBJECT>
  216.     <OBJECT ID="nose3"
  217.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:140pt;LEFT:297pt;WIDTH:29pt;HEIGHT:29pt;ZINDEX:9;">
  218.         <PARAM NAME="PicturePath" VALUE="nose3.gif">
  219.         <PARAM NAME="AutoSize" VALUE="-1">
  220.         <PARAM NAME="BorderStyle" VALUE="0">
  221.         <PARAM NAME="Size" VALUE="1032;1005">
  222.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  223.     </OBJECT>
  224.     <OBJECT ID="mouth1"
  225.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:107pt;LEFT:338pt;WIDTH:59pt;HEIGHT:20pt;ZINDEX:10;">
  226.         <PARAM NAME="PicturePath" VALUE="mouth1.gif">
  227.         <PARAM NAME="AutoSize" VALUE="-1">
  228.         <PARAM NAME="BorderStyle" VALUE="0">
  229.         <PARAM NAME="Size" VALUE="2064;688">
  230.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  231.     </OBJECT>
  232.     <OBJECT ID="mouth2"
  233.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:140pt;LEFT:338pt;WIDTH:50pt;HEIGHT:23pt;ZINDEX:11;">
  234.         <PARAM NAME="PicturePath" VALUE="mouth2.gif">
  235.         <PARAM NAME="AutoSize" VALUE="-1">
  236.         <PARAM NAME="BorderStyle" VALUE="0">
  237.         <PARAM NAME="Size" VALUE="1746;794">
  238.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  239.     </OBJECT>
  240.     <OBJECT ID="mouth3"
  241.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:74pt;LEFT:338pt;WIDTH:47pt;HEIGHT:23pt;ZINDEX:12;">
  242.         <PARAM NAME="PicturePath" VALUE="mouth3.gif">
  243.         <PARAM NAME="AutoSize" VALUE="-1">
  244.         <PARAM NAME="BorderStyle" VALUE="0">
  245.         <PARAM NAME="Size" VALUE="1640;794">
  246.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  247.     </OBJECT>
  248.     <OBJECT ID="eyes1"
  249.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:66pt;LEFT:91pt;WIDTH:47pt;HEIGHT:18pt;ZINDEX:13;">
  250.         <PARAM NAME="PicturePath" VALUE="eyes1.gif">
  251.         <PARAM NAME="AutoSize" VALUE="-1">
  252.         <PARAM NAME="BorderStyle" VALUE="0">
  253.         <PARAM NAME="Size" VALUE="1640;635">
  254.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  255.     </OBJECT>
  256.     <OBJECT ID="eyes2"
  257.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:99pt;LEFT:91pt;WIDTH:38pt;HEIGHT:19pt;ZINDEX:14;">
  258.         <PARAM NAME="PicturePath" VALUE="eyes2.gif">
  259.         <PARAM NAME="AutoSize" VALUE="-1">
  260.         <PARAM NAME="BorderStyle" VALUE="0">
  261.         <PARAM NAME="Size" VALUE="1323;661">
  262.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  263.     </OBJECT>
  264.     <OBJECT ID="eyes3"
  265.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:124pt;LEFT:83pt;WIDTH:50pt;HEIGHT:18pt;ZINDEX:15;">
  266.         <PARAM NAME="PicturePath" VALUE="eyes3.gif">
  267.         <PARAM NAME="AutoSize" VALUE="-1">
  268.         <PARAM NAME="BorderStyle" VALUE="0">
  269.         <PARAM NAME="Size" VALUE="1746;635">
  270.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  271.     </OBJECT>
  272.     <OBJECT ID="shoe1"
  273.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:173pt;LEFT:305pt;WIDTH:71pt;HEIGHT:21pt;ZINDEX:16;">
  274.         <PARAM NAME="PicturePath" VALUE="shoes1.gif">
  275.         <PARAM NAME="AutoSize" VALUE="-1">
  276.         <PARAM NAME="BorderStyle" VALUE="0">
  277.         <PARAM NAME="Size" VALUE="2487;741">
  278.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  279.     </OBJECT>
  280.     <OBJECT ID="shoe2"
  281.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:206pt;LEFT:305pt;WIDTH:74pt;HEIGHT:22pt;ZINDEX:17;">
  282.         <PARAM NAME="PicturePath" VALUE="shoes2.gif">
  283.         <PARAM NAME="AutoSize" VALUE="-1">
  284.         <PARAM NAME="BorderStyle" VALUE="0">
  285.         <PARAM NAME="Size" VALUE="2619;767">
  286.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  287.     </OBJECT>
  288.     <OBJECT ID="shoes3"
  289.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:231pt;LEFT:305pt;WIDTH:79pt;HEIGHT:20pt;ZINDEX:18;">
  290.         <PARAM NAME="PicturePath" VALUE="shoes3.gif">
  291.         <PARAM NAME="AutoSize" VALUE="-1">
  292.         <PARAM NAME="BorderStyle" VALUE="0">
  293.         <PARAM NAME="Size" VALUE="2778;688">
  294.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  295.     </OBJECT>
  296.     <OBJECT ID="hands1"
  297.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:157pt;LEFT:8pt;WIDTH:119pt;HEIGHT:32pt;ZINDEX:19;">
  298.         <PARAM NAME="PicturePath" VALUE="hands1.gif">
  299.         <PARAM NAME="AutoSize" VALUE="-1">
  300.         <PARAM NAME="BorderStyle" VALUE="0">
  301.         <PARAM NAME="Size" VALUE="4207;1111">
  302.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  303.     </OBJECT>
  304.     <OBJECT ID="hands2"
  305.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:223pt;LEFT:8pt;WIDTH:149pt;HEIGHT:41pt;ZINDEX:20;">
  306.         <PARAM NAME="PicturePath" VALUE="hands2.gif">
  307.         <PARAM NAME="AutoSize" VALUE="-1">
  308.         <PARAM NAME="BorderStyle" VALUE="0">
  309.         <PARAM NAME="Size" VALUE="5239;1455">
  310.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  311.     </OBJECT>
  312.     <OBJECT ID="hands3"
  313.      CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:190pt;LEFT:0pt;WIDTH:141pt;HEIGHT:26pt;ZINDEX:21;">
  314.         <PARAM NAME="PicturePath" VALUE="hands3.gif">
  315.         <PARAM NAME="AutoSize" VALUE="-1">
  316.         <PARAM NAME="BorderStyle" VALUE="0">
  317.         <PARAM NAME="Size" VALUE="4974;900">
  318.         <PARAM NAME="VariousPropertyBits" VALUE="19">
  319.     </OBJECT>
  320. </DIV>
  321.