Объекты браузера

Демонстрация замены цвета у фона и у текста

Программные коды приложения

<HTML>
  <HEAD>
   <TITLE>Объекты браузера</TITLE>
  <SCRIPT Language="VBScript">
Sub Kn1_OnClick ' В подпрограммах использованы переменные одинаковые, чтобы использовать одну и ту же таблицу цветов
intIn=Document.F1.vid.SelectedIndex ' Задаем переменную intIn, которую будем выбирать по индексу
svet=document.F1.vid.Options(intIn).Text ' Передаем текстовую константу в переменную intIn
Document.bgColor=svet ' Отображаем значение цвета в виде фона
End Sub
Sub Kn2_OnClick
intIn=Document.F1.vid.SelectedIndex ' Задаем переменную intIn, которую будем выбирать по индексу
svet=document.F1.vid.Options(intIn).Text ' Передаем текстовую константу в переменную intIn
Document.fgColor=svet ' Отображаем значение цвета текста
End Sub
  </SCRIPT>
  <STYLE TYPE="text/css">
#Sp {background-color:white;
     font-family:Arial; Color:navy;
     border-style:ridge; border-color:silver;}
  </STYLE>
  </HEAD>
 <BODY>
  <FORM Name="F1">
<DIV ID="Sp">
 В раскрывающемся списке, а это объект OPTION
 использованы наименования цветов, которые
 являются константами для VBScript, поэтому
 они записаны на английском языке.
</DIV>
В раскрывающемся списке можно выбрать любой цвет
    <SELECT Name="vid">
      <OPTION>Red    
      <OPTION>Blue   
      <OPTION>White  
      <OPTION>Lime   
      <OPTION>Purple
      <OPTION>Olive
      <OPTION>Yellow
    </SELECT>
    <P>   
   <INPUT TYPE=Button Name="Kn1" Value=" Заменить цвет фона  "><BR>
   <INPUT TYPE=Button Name="Kn2" Value="Заменить цвет текста"><BR>
  </FORM>
<H2><B>Демонстрация замены цвета у фона и у текста</B></H2>
 
<div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s201.ucoz.net/img/cp/8.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div>
</body>
</html>