vbvb期末考试实验答案(3)

vb作业

2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。

255]

4. 要求在任意一个颜色成分输入文本框中输入一个0-255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随之而调整。

5. 单击"应用"按钮后将调好的颜色作为文本框中文字的颜色。

思考题：拖动滚动条时有没有触发滚动条的Change事件？ 3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。[注意：滚动条最大值为

提示:

1. 应用程序界面设计参考图示。

程序界面右下角的预览框架里的长方形是形状控件Shape1（工具箱中的

2. 要求水平滚动条和颜色成分输入文本框分别采用控件数组实现。 ），将其FillStyle属性设置为0。

三个滚动条的Min设为0，Max设为255；三个文本框的Text属性设为空字串。

3. 要求操作任意一个滚动条，都会在相应的文本框中显示该颜色成分的当前取值，并且动态改变预览框中长方形的颜色。

颜色是利用Rgb(r,g,b）函数来表示，其中r,g,b是红、绿、兰颜色的饱和度，分别通过滚动条来控制。

Private Sub HScroll1_Change(Index As Integer)

Text1(Index).Text = HScroll1(Index).Value

Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value)

End Sub

之而调整。

设计文本框的Change事件：

Private Sub Text1_Change(Index As Integer)

HScroll1(Index).Value = Val(Text1(Index).Text)

End Sub

5. 单击“应用”按钮后将调好的颜色作为文本框中文字的颜色。

Text2.ForeColor = Shape1.FillColor

下载10_3.exe 4. 要求在任意一个颜色成分输入文本框中输入一个0—255的数据，相应的滚动条的滑块都会移到正确的位置上，并且预览框中长方形的颜色也随

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vbvb期末考试实验答案(3)在线全文阅读。