Главная Контакты


  На сайте

  Java, JavaScript
  Документация Perl
  Документация PHP
  Документация ASP
  Новости сайта
  Flash
  Интернет протоколы
  Apache
  Уроки программирования
  Язык программирования C
 


Технологии Internet


Цвет можно представлять и в виде шестнадцатеричных цифр. Первые две цифры представляют красную составляющую, две последующие - зеленую, а две последние - синюю. Черный цвет кодируется числом 000000, а белый - FFFFFF. Цифровое представление позволяет создавать эффекты, связанные с постепенным изменением цвета Web-страницы. Изменять цвет достаточно просто, но надо быть уверенным, что свойство bgColor корректно сформатирована. Для корректного форматирования ее можно производить Hex языка VBScript. Аргументом этой функции является число, а значением, которое она возвращает, - текстовое представление его шестнадцатеричного представления. Например, нужно прочитать существующий цвет, а затем сменить его на белый. Это можно сделать так:
Dim ColorPage
ColorPage = Document.bgColor
ColorPage = & HFFFFFF
Document.bgColor = Hex (ColorPage)

Для получения эффекта освещение - постепенного изменения цвета от черного до белого, нужно просто увеличивать значение цвета до тех пор, пока фон не станет абсолютно белым. Вот как выглядит код, что усиливает яркость фона:
ColorPage = ColorPage + & H111111
Document.bgColor = Hex (ColorPage)

Для того чтобы выполнять код такого увеличения яркости через одинаковые интервалы, можно применить метод SetTimeout. Полный HTML-текст такой Web-страницы может выглядеть так:
<HTML>
<HEAD>
<TITLE> Освещение </ TITLE>
<SCRIPT Language="vbs">
<! -
'Цветные константы:
Const conColorStart = & H0
Const conColorStep = & H111111
Const conColorEnd = & HFFFFFF
Const conTimerStep = 100
Public ColorPage
Sub Window_OnLoad ()

'Инициирование цвета фона:
ColorPage = conColorStart
Document.BGColor = Hex (ColorPage)
'Вызов программы через указанный интервал времени (миллисекунды):
intTimeout = Window.SetTimeout ("ColorChange", conTimerStep)
End Sub 'Window_OnLoad ()
Sub ColorChange ()
ColorPage = ColorPage + conColorStep
Document.BGColor = Hex (ColorPage)
If ColorPage <conColorEnd Then
intTimeout = Window.SetTimeout ("ColorChange", conTimerStep)
End If
End Sub 'ColorChange ()
->
</ SCRIPT>
</ HEAD>
<BODY>
<CENTER> <H1> Посетите мою Web-страницу </ H1> </ CENTER>
</ BODY>
</ HTML>

Другие статьи по теме:

- Понятие алгоритма
- Технологии Internet
- Этапы проектирования при разработке программного продукта
- Разработка программного продукта. Этапы проектирования и построение модели
- Понятие языка программирования


Голосование:
Чего Вы хотели бы видеть больше на сайте?

Статей, документации
Скриптов
Программ для вебмастера
Я не знаю



Другие голосования

Обмен кнопочками:



Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.


Новые статьи:


Наши партнеры:





2006-2024 © SMTI.RU
Главная страница | Связаться с нами