打印本文   关闭窗口

［二级VB试题天天练］VB考试试题7

作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:49:43  文章录入：杜斌  责任编辑：杜斌

常用标准控件练习（4）  下列程序是滚动条的练习： 在窗体上建立一个包含3个水平滚动条的控件数组，然后编写下列事件过程 Private Sub Form_Load()     HScroll1(0).Max = 255     HScroll1(1).Max = 255     HScroll1(2).Max = 255 End Sub Private Sub HScroll1_Change(Index As Integer) Static intColor(2) As Integer     intColor(Index) = HScroll1(Index).value     Form1.BackColor = RGB(intColor(0), intColor(1), intColor(2)) End Sub 程序运行后随意拖动3个滚动条，看看结果吧——

打印本文   关闭窗口