我刚开始学VB,谁帮我解释一下啊?

来源:百度知道 编辑:UC知道 时间:2024/09/26 14:22:44
有了前面那段为什么还要后面三段啊,后面三段是什么过程啊?
Option Explicit

Private Sub form_load()
Label1.Caption = "红色值:" & VScroll1.Value
Text1.BackColor = RGB(VScroll1.Value, 0, 0)
Label2.Caption = "绿色值" & VScroll2.Value
Text2.BackColor = RGB(VScroll2.Value, 0, 0)
Label3.Caption = "蓝色值:" & VScroll3.Value
Text3.BackColor = RGB(VScroll3.Value, 0, 0)
Label4.Caption = "你调出的颜色:"
Text4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub
Private Sub vscroll1_change()
Label1.Caption = "红色值:" & VScroll1.Value
Text1.BackColor = RGB(VScroll1.Value, 0, 0)
Text4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub
Private Sub vscroll2_change()
Label2.Caption = "绿色值:" & VScroll2.Value
Text2.BackColor = RGB(0, VScroll2.Value, 0)
Text4.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
End Sub
Priv

前面这个 Private Sub form_load()
是窗体装入时的事件,是初始化

后边
Private Sub vscroll1_change()
Private Sub vscroll2_change()
Private Sub vscroll3_change()
这三个 Sub 才能实现
文本框随着滑动条的变化来改变背景色,Label中显示各颜色分量值

先把前面三段删掉,然后运行一下,看看。
保留前面三段,把后面三段删掉,再运行看看。
都保留,运行看看。
比较三种结果的不同,你就明白啦!

一般来说还要再跟3个的,
private sub vscroll3_scroll()
end sub
private sub vscroll2_scroll()
end sub
private sub vscroll1_scroll()
end sub
这个事件是拖动滑块的时候触发的。

Private Sub vscroll1_change() '这是垂直滚动条1的改变事件
Private Sub vscroll2_change() ’这是垂直滚动条2的改变事件

Private Sub vscroll3_change()’这是垂直滚动条3的改变事件
这代表三个垂直滚动条的change(改变)事件,利用change(改变)事件来达到改变文本颜色的目的
Text1.BackColor = RGB(a, b, c)
这个a的作用是,通过改变他的值来达到改变颜色的目的
你这里的a就是vscroll1.value
以此类推,下面的就是
b=vscroll2.value
c=vscroll3.value