vb中这段代码为什么不行

更新时间2019-10-23 06:32:50

Private Sub Form_Load()

Dim n1, n2, n3 As Integer

Label1.BackColor = vsbRed.Value

Label2.BackColor = vsbgreen.Value

Label3.BackColor = vsbblue.Value

n1 = Val(vsbRed.Value)

n2 = Val(vsbgreen.Value)

n3 = Val(vsbblue.Value)

Label4.BackColor = RGB(n1, n2, n3)

Picture1.ForeColor = Label4.BackColor

List1.BackColor = Label4.BackColor

List2.BackColor = Label4.BackColor

List3.BackColor = Label4.BackColor

List4.BackColor = Label4.BackColor

List2.Value = True

 

Picture1.DrawWidth = 2

 

Picture1.Tag = 1

Frame3.Tag = 0

Frame2.Tag = 0

End Sub

VB代码要配合相应的FORM+构件才能运行的，

像你的程序，你的form上必须有Label1~3，vsbRed/green/。。，List1~4，Picture11，Frame2/3等控件才能运行，且你的

List2.Value = True

应该是

List2.Visible = True

正常的List控件，没有Value的，除非 它是其它控件

说具体点，什么地方不行，。报什么错误