求高手写出源代码,急急急急急急!!!!!!!!!!!!

解决方案 »

  1.   

    Private Sub Form_Load()
        HScroll1.Min = 0
        HScroll1.Max = 255
        
    End SubPrivate Sub HScroll1_Change()
        Label1.BackColor = RGB(255 - HScroll1.Value, 255 - HScroll1.Value, 255 - HScroll1.Value)
        
    End Sub
      

  2.   

    Private Sub Form_Load()
        HScroll1.Max = 255
        HScroll1.Min = 0
        HScroll1.SmallChange = 1
        HScroll1.LargeChange = 10
        HScroll2.Max = 255
        HScroll2.Min = 0
        HScroll2.SmallChange = 1
        HScroll2.LargeChange = 10
        HScroll3.Max = 255
        HScroll3.Min = 0
        HScroll3.SmallChange = 1
        HScroll3.LargeChange = 10
    End SubPrivate Sub HScroll1_Change()
        Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
    End SubPrivate Sub HScroll1_LostFocus()
        Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
    End SubPrivate Sub HScroll2_Change()
        Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
    End SubPrivate Sub HScroll2_Scroll()
        Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
    End SubPrivate Sub HScroll3_Change()
        Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
    End SubPrivate Sub HScroll3_Scroll()
        Label1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll2.Value)
    End Sub