NET Infor
Fundo personalizado
White
Black
Blue
Red
Yellow
Fushia
Gray
Lime
Maroon
Navy
Olive
Purple
Silver
Teal
Copie o código fonte do script abaixo:
<SCRIPT LANGUAGE="vbscript"> Document.bgColor = "White" Sub cmdChangeBGColor_OnClick intIndex = Document.Colors.Background.SelectedIndex strColorChoice = Document.Colors.Background.Options(intIndex).Text Document.bgColor = strColorChoice End Sub Sub cmdChangeFGColor_OnClick intIndex = Document.Colors.ForeGround.SelectedIndex strColorChoice = Document.Colors.ForeGround.Options(intIndex).Text Document.fgColor = strColorChoice End Sub </SCRIPT> <FORM NAME="Colors"> <SELECT NAME="BackGround"> <OPTION selected>White <OPTION>Black <OPTION>Blue <OPTION>Red <OPTION>Yellow <OPTION>Fushia <OPTION>Gray <OPTION>Lime <OPTION>Maroon <OPTION>Navy <OPTION>Olive <OPTION>Purple <OPTION>Silver <OPTION>Teal </SELECT> <INPUT TYPE="button" NAME="cmdChangeBGColor" VALUE="Cor do Fundo"> </FORM>