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>
|