Основы создания сценариев, знакомство с VBScript

       

Работа с цветом


<HTML>

<Head>

<TITLE>Цвет</TITLE>

<Script LANGUAGE="VBS">

Dim A(14)

A(0) = "WHITE"

A(1) = "BLACK"

A(2) = "BLUE"

A(3) = "RED"

A(4) = "YELLOW"

A(5) = "AQUA"

A(6) = "RED"

A(7) = "GRAY"



A(8) = "LIME"

A(9) ="MAROON"

A(l0)= "NAVY"

A(11)= "OLIVE"

A(12)= "PURPLE"

A(13) = "SILVER"

A(14)= "TEAL"

I = 0

J = 1

Document.BgColor = A(I)

Document.FgColor = A(J)

Sub Foreb_Onclick

If I = 14 THEN

I=0

end If

I = I + 1

Document.FgColor = A(I)

End Sub

Sub GROUNDB_Onclick

If J=14 THEN

J=0

end If

J = J + 1

Document.BgColor = A(J)

End Sub

</Script>

 </Head>

 <BODY>

 <CENTER>

<H2> РАБОТА С ЦВЕТОМ </H2>

 <Form>

 <INPUT TYPE="BUTTON" NAME="Foreb" VALUE="Изменить цвет текста">

<P>

<INPUT TYPE="BUTTON" NAME="GROUNDB" VALUE="Изменить цвет фона">

</Form>

</CENTER>

</Body>

</HTML>



Содержание раздела