VBScript 样例 启始页 MSDN Online
说明：Colortime

工作原理

这是一个用 VBScript 使控件进行彼此“交谈”的优秀样例。此文档含有两种类型的 Microsoft Forms 2.0 控件：TextBox 控件和 ScrollBar 控件。这些控件是用 <Object> 标记插入到 HTML 中的。

以下代码是为每个 ScrollBar 控件的 Change 事件所编写的，当用户滚动这些控件或修改控件的 Value 属性值时，将激活此代码。此代码更新插入到页面中的 TextBox 控件的值。

代码

<SCRIPT LANGUAGE="VBScript">
<!--

Dim TempHexR
Dim TempHexG
Dim TempHexB

Sub RedScroll_Change()
   RedDec.Text=RedScroll.Value
   RedHex.Text=Hex(RedScroll.Value)
   UpdateVals
End Sub

Sub GreenScroll_Change()
   GreenDec.Text=GreenScroll.Value
   GreenHex.Text=Hex(GreenScroll.Value)
   UpdateVals
End Sub

Sub BlueScroll_Change()
   BlueDec.Text=BlueScroll.Value
   BlueHex.Text=Hex(BlueScroll.Value)
   UpdateVals
End Sub

Sub UpdateVals
   ColorTextBox.Backcolor = RGB(RedScroll.Value, GreenScroll.Value, BlueScroll.Value)
   RGBDec.Text=RedDec.Text + (GreenDec.Text * 256) + (BlueDec.Text * 65536)
   TempHexR="0" & Hex(RedScroll.Value)
   TempHexG="0" & Hex(GreenScroll.Value)
   TempHexB="0" & Hex(BlueScroll.Value)
   TempHexR=Right(TempHexR, 2)
   TempHexG=Right(TempHexG, 2)
   TempHexB=Right(TempHexB, 2)
   RGBHex.Text="&H" & TempHexB & TempHexG & TempHexR
   HTMLHex.Text= TempHexR & TempHexG & TempHexB
End Sub

-->
</SCRIPT>