Make your own free website on Tripod.com

Cambiando colores de fondo y  primer plano en el momento...

Objetivo: Cambiar colores de fondo y de texto.
Muestra:





Texto de Muestra

Codigo:

Para los controles:
<INPUT TYPE="Button" NAME="cmdDocWhite" VALUE="Document - White">
<INPUT TYPE="Button" NAME="cmdDocBlack" VALUE="Document - Black"><BR><BR>
<INPUT TYPE="Button" NAME="cmdTBlue" VALUE="Text - Blue">
<INPUT TYPE="Button" NAME="cmdTRed" VALUE="Text - Red">
<INPUT TYPE="Button" NAME="cmdTBlack" VALUE="Text - Black"><BR><BR>>

Para el Script:
<script LANGUAGE="VBScript">
Function DRGB(rojo, verde, azul)
Dim r, v, a
If Len(Hex(rojo)) < 2 Then
r = "0" & Hex(rojo)
Else
r = Hex(rojo)
End If
If Len(Hex(verde)) < 2 Then
v = "0" & Hex(verde)
Else
v = Hex(verde)
End If
If Len(Hex(azul)) < 2 Then
a = "0" & Hex(azul)
Else
a = Hex(azul)
End If
DRGB = r & v & a
End Function

Sub cmdDocBlanco_OnClick()
Document.BGColor = DRGB(255,255,255)
End Sub

Sub cmdDocNegro_OnClick()
Document.BGColor = DRGB(0,0,0)
End Sub

Sub cmdTAzul_OnClick()
Document.FGColor = DRGB(0, 0, 255)
End Sub

Sub cmdTRojo_OnClick()
Document.FGColor = DRGB(255,0,0)
End Sub

Sub cmdTNegro_OnClick()
Document.FGColor = DRGB(0,0,0)
End Sub -->
</script>