用VB写的调色板

ID:11064 · 发表于 2017-6-18 09:12

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

帐号		自动登录	找回密码
密码			立即注册