一道关于VB的问题

来源：百度知道编辑：UC知道时间：2024/05/24 15:57:51

Private Sub Form_Load()
scrcolor(0).Min = 0: scrcolor(1).Min = 0: scrcolor(2).Min = 0
scrcolor(0).Max = 255: scrcolor(1).Max = 255: scrcolor(2).Max = 255
Lblcorlor(0).Caption = CStr(strcolor(0).Value)
Lblcorlor(1).Caption = CStr(strcolor(1).Value)
Lblcorlor(2).Caption = CStr(strcolor(2).Value)
Lblshow.BackColor = RGB(scrcolor(0).Value, scrcolor(1).Value, scrcolor(2).Value)

End Sub

Private Sub scrcolor_Change(Index As Integer)
If Index = 0 Then
lblcolor(0).Caption = CStr(strcolor(0).Value)
Lblshow.BackColor = RGB(scrcolor(0).Value, scrcolor(1).Value, scrcolor(2).Value)
End If
If Index = 1 Then
lblcolor(1).Caption = CStr(strcolor(1).Value)
Lblshow.BackColor = RGB(scrcolor(0).Value, scrcolor(1).Value, scrcolor(2).Value)
End If
If Index = 2 Then
lblcolor(2).Caption = CStr(strcolor(2).Value)
Lblshow.BackColor = RGB(scrcolor(0).Value, scrcolor(1).Value, scrcolor(2).Valu

你那3个滚动条不是scrcolor嘛
Lblcorlor(0).Caption = CStr(strcolor(0).Value)
Lblcorlor(1).Caption = CStr(strcolor(1).Value)
Lblcorlor(2).Caption = CStr(strcolor(2).Value)

你这里写的都是strcolor

Sub Form_Load()里的：
Lblcorlor(0).Caption = CStr(strcolor(0).Value)
Lblcorlor(1).Caption = CStr(strcolor(1).Value)
Lblcorlor(2).Caption = CStr(strcolor(2).Value)

Sub scrcolor_Change(Index As Integer)里的：
lblcolor(0).Caption = CStr(strcolor(0).Value)
lblcolor(1).Caption = CStr(strcolor(1).Value)
lblcolor(2).Caption = CStr(strcolor(2).Value)

楼主，别这么粗心好不好！

VB，VB，关于VB的一道问题~~帮~~ 请教一道关于VB的问题一道vb的问题请教一道VB关于随机文件的问题？！谢谢一道关于VB的习题关于VB的一道题关于vb的一道题目关于vb.net的一道程序题关于VB的一道计算题一道关于VB的题目请解释一下