vb rgb函数随机改变颜色

这个是这样实现的：
举一个滚动条改变一个数据的例子，那么你的问题无非就是3个滚动条改变三个数据而已！
用一个变量，比如：r，用垂直滚动条，vscroll1
设置滚动条的最大值为255，最小值为0，value为0
设置变量r=0
然后，编写代码：
private
sub
vscroll1_change()
r
=
vscroll1value
end
sub
这个变量r，你可以放在你的代码里直接使用
rgb（r，value，value）
这仅仅是一个r参数，你用三个滚动条，就可以解决r，g，b问题，
当然你可以这样：
private
sub
vscroll1_change()
控件名backcolor
=
rgb(
vscroll1value,vscroll2value,vscroll3value)
end
sub
private
sub
vscroll2_change()
控件名backcolor
=
rgb(
vscroll1value,vscroll2value,vscroll3value)
end
sub
private
sub
vscroll3_change()
控件名backcolor
=
rgb(
vscroll1value,vscroll2value,vscroll3value)
end
sub

X:=DATAPERIOD;
WX:=X>3 AND (X=11)=0;
STICKLINE(WX=0 AND BARPOS+50=DATACOUNT,1,-1,500,0),COLOR993322;
DRAWTEXT(WX=0 AND BARPOS+46=DATACOUNT,08,'十五分钟以上周期的时候生效 '),COLOR00FFFF,FONTSIZE15;
DRAWTEXT(WX=0 AND BARPOS+46=DATACOUNT,-02,'作者：长阳真人 466231800'),COLOR00FFFF,FONTSIZE15;
DRAWGBK(WX=0,COLORRGB(130,220,255),COLORRGB(0,100,200),1);
CC:MA(C,20)WX;

==============================================
如果不能用，注意看博易大师的版本

X:=MAX(HHV(C,10)-LLV(C,10),ABS(C-REF(C,10)))/SUM(ABS(C-REF(C,1)),10);
X1:=EMA(X,10);
Y:=INTPART(10-(X1-05)13);
Y1:=SUM((C-REF(C,1))VOL,Y);
Z:EMA(Y1,10),COLORSTICK;

RGB函数
描述：返回代表 RGB 颜色值的整数。
部分描述：red 必选。0 到 255 间的整数，代表颜色中的红色成分。
green 必选。0 到 255 间的整数，代表颜色中的绿色成分。
blue 必选。0 到 255 间的整数，代表颜色中的蓝色成分。
说明：
接受颜色说明的应用程序方法和属性，要求该说明以整数代表 RGB 颜色值。RGB 颜色值指定了红色、绿色、蓝色的相对强度，三色组合形成显示的特定颜色。
低字节值表示红色，中字节值表示绿色，高字节值表示蓝色。
对于要求反转字节顺序的应用程序，下面函数在反转字节顺序下提供相同信息：
Function RevRGB(red, green, blue)
RevRGB= CLng(blue + (green 256) + (red 65536))
End Function
RGB 函数中任一超过 255 的参数都假定为 255。
在js网页脚本中的写法：
function jsRGB(b,g,r){
return r65536+g256+b ;
}

---