用vb 遍的調色板：vb 調色板
Private Sub Form_Load()
Form1.BackColor = RGB(255, 255, 255)
End Sub
Private Sub HScroll1_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.Caption = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label5.Caption = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label6.Caption = HScroll3.Value
End Sub
|
樓主: xuwei
[復制鏈接]
