[二级VB试题天天练]VB考试试题7

全国等级考试网 2019-01-23 14:16:18 1
常用标准控件练习(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个滚动条,看看结果吧——
2万+
1 点赞

相关阅读

精选计算机