vb调节图片的颜色,该怎么解决

vb调节图片的颜色
如何在vb中调节图片的颜色。

运用三个滚动条，控制红、蓝、绿的变量，从而调节图片的颜色。就和ps中色彩平衡一样的



[解决办法]

VB code

Option ExplicitPrivate Sub Form_Load()    lblColor.Caption = ""   '显示设置颜色的标签控件    hscR.Min = 0            '红色滚动条，最小值 HScrollBar    hscG.Min = 0            '绿色滚动条，最小值 HScrollBar    hscB.Min = 0            '蓝色滚动条，最小值 HScrollBar    hscR.Max = 255          '红色滚动条，最大值 HScrollBar    hscG.Max = 255          '绿色滚动条，最大值 HScrollBar    hscB.Max = 255          '蓝色滚动条，最大值 HScrollBar    hscR.Value = 0          '红色元素当前值    hscG.Value = 0          '绿色元素当前值    hscB.Value = 0          '蓝色元素当前值    lblRValue.Caption = "0" '显示红色元素当前值    lblGValue.Caption = "0" '显示绿色元素当前值    lblBValue.Caption = "0" '显示蓝色元素当前值    lblColor.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)    '显示设定好的颜色End SubPrivate Sub hscB_Change()    lblColor.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)    lblBValue.Caption = CStr(hscB.Value)End SubPrivate Sub hscG_Change()    lblColor.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)    lblGValue.Caption = CStr(hscG.Value)End SubPrivate Sub hscR_Change()    lblColor.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)    lblRValue.Caption = CStr(hscR.Value)End Sub
[解决办法]
每调节一次,你得把图片中相应的颜色用新的颜色统统替换掉,然后再将修改后的数据显示出来.